1 files changed, 0 insertions, 69 deletions

@@ -1,69 +0,0 @@
-;;; bob.el --- Customizations for "bob" -*- lexical-binding: t; -*-
-
-;;; Commentary:
-
-;;; Code:
-
-(require 'acdw)
-(require 'machine)
-
-(defcustom +bob-face-plist
-  '( :dejavu ("DejaVu Sans Mono" "DejaVu Sans")
-     :iosevka ("Iosevka Comfy Wide" "Iosevka Comfy Duo")
-     :plex ("IBM Plex Mono" "IBM Plex Serif")
-     :go/djv ("Go Mono" "DejaVu Sans")
-     :tt (("TT2020Base" 120) "TT2020 Base Style E") ; no italic
-     :courier ("Courier Prime Code" "Courier Prime")
-     :gaegu (("Gaegu" 140) "Gaegu")     ; no italic
-     :comic (("Comic Code" 100) "Comic Code")
-     :comic/fantasque (("Comic Code" 100) "Fantasque Sans Mono")
-     :terminus (("Terminus (TTF)" 120) "Terminus (TTF)")
-     :cmu (("CMU Typewriter Text" 160) "CMU Concrete")
-     :apl (("APL386 Unicode" 120) "Comic Code")
-     )
-  "A plist of possible font combinations.")
-
-(defcustom +bob-face-pair :comic ;; (+bob-set-faces)
-  "The index of `+bob-face-pairs' to use.")
-
-(defun +bob-set-faces (&rest _)
-  (let* ((face-pair (plist-get +bob-face-plist +bob-face-pair))
-         (base-face (if (stringp (car face-pair))
-                        (car face-pair)
-                      (caar face-pair)))
-         (var-face (if (stringp (cadr face-pair))
-                       (cadr face-pair)
-                     (caadr face-pair)))
-         (base-size (or (ignore-errors (cadar face-pair))
-                        100))
-         (var-size (or (ignore-errors (cadadr face-pair))
-                       1.0))
-         (italic-face nil)
-         ;; (bold-face nil)
-         (mono-face nil))
-    (+set-faces
-     `((default
-         :family ,base-face
-         :height ,base-size
-         :weight regular)
-       (bold :family ,(or (bound-and-true-p bold-face) base-face)
-             :weight extra-bold)
-       (italic :family ,(or (bound-and-true-p italic-face) base-face)
-               :weight normal
-               :slant italic)
-       (fixed-pitch :family ,(or (bound-and-true-p mono-face) base-face)
-                    :height 1.0)
-       (variable-pitch
-        :family ,(or var-face base-face)
-        :height ,var-size
-        ;; :weight medium
-        )
-       ;; (org-italic
-       ;;  :family ,(or var-face base-face)
-       ;;  :slant italic)
-       ))))
-
-;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
-(add-hook 'machine-after-load-theme-hook #'+bob-set-faces)
-
-;; bob.el ends here (+bob-set-faces)