about summary refs log tree commit diff stats
path: root/machines
diff options
context:
space:
mode:
Diffstat (limited to 'machines')
-rw-r--r--machines/bob.el69
-rw-r--r--machines/gnu-linux.el5
-rw-r--r--machines/larry.el13
-rw-r--r--machines/windows-nt.el23
4 files changed, 0 insertions, 110 deletions
diff --git a/machines/bob.el b/machines/bob.el deleted file mode 100644 index a408e5c..0000000 --- a/machines/bob.el +++ /dev/null
@@ -1,69 +0,0 @@
1;;; bob.el --- Customizations for "bob" -*- lexical-binding: t; -*-
2
3;;; Commentary:
4
5;;; Code:
6
7(require 'acdw)
8(require 'machine)
9
10(defcustom +bob-face-plist
11 '( :dejavu ("DejaVu Sans Mono" "DejaVu Sans")
12 :iosevka ("Iosevka Comfy Wide" "Iosevka Comfy Duo")
13 :plex ("IBM Plex Mono" "IBM Plex Serif")
14 :go/djv ("Go Mono" "DejaVu Sans")
15 :tt (("TT2020Base" 120) "TT2020 Base Style E") ; no italic
16 :courier ("Courier Prime Code" "Courier Prime")
17 :gaegu (("Gaegu" 140) "Gaegu") ; no italic
18 :comic (("Comic Code" 100) "Comic Code")
19 :comic/fantasque (("Comic Code" 100) "Fantasque Sans Mono")
20 :terminus (("Terminus (TTF)" 120) "Terminus (TTF)")
21 :cmu (("CMU Typewriter Text" 160) "CMU Concrete")
22 :apl (("APL386 Unicode" 120) "Comic Code")
23 )
24 "A plist of possible font combinations.")
25
26(defcustom +bob-face-pair :comic ;; (+bob-set-faces)
27 "The index of `+bob-face-pairs' to use.")
28
29(defun +bob-set-faces (&rest _)
30 (let* ((face-pair (plist-get +bob-face-plist +bob-face-pair))
31 (base-face (if (stringp (car face-pair))
32 (car face-pair)
33 (caar face-pair)))
34 (var-face (if (stringp (cadr face-pair))
35 (cadr face-pair)
36 (caadr face-pair)))
37 (base-size (or (ignore-errors (cadar face-pair))
38 100))
39 (var-size (or (ignore-errors (cadadr face-pair))
40 1.0))
41 (italic-face nil)
42 ;; (bold-face nil)
43 (mono-face nil))
44 (+set-faces
45 `((default
46 :family ,base-face
47 :height ,base-size
48 :weight regular)
49 (bold :family ,(or (bound-and-true-p bold-face) base-face)
50 :weight extra-bold)
51 (italic :family ,(or (bound-and-true-p italic-face) base-face)
52 :weight normal
53 :slant italic)
54 (fixed-pitch :family ,(or (bound-and-true-p mono-face) base-face)
55 :height 1.0)
56 (variable-pitch
57 :family ,(or var-face base-face)
58 :height ,var-size
59 ;; :weight medium
60 )
61 ;; (org-italic
62 ;; :family ,(or var-face base-face)
63 ;; :slant italic)
64 ))))
65
66;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
67(add-hook 'machine-after-load-theme-hook #'+bob-set-faces)
68
69;; bob.el ends here (+bob-set-faces)
diff --git a/machines/gnu-linux.el b/machines/gnu-linux.el deleted file mode 100644 index 309ca34..0000000 --- a/machines/gnu-linux.el +++ /dev/null
@@ -1,5 +0,0 @@
1;;; linux.el -*- lexical-binding: t; -*-
2
3(setq machine-default-height 105)
4
5;;; linux.el ends here
diff --git a/machines/larry.el b/machines/larry.el deleted file mode 100644 index ba4edb2..0000000 --- a/machines/larry.el +++ /dev/null
@@ -1,13 +0,0 @@
1;;; larry.el --- Customizations for "larry" -*- lexical-binding: t; -*-
2
3;;; Code:
4
5(require 'acdw)
6(require 'machine)
7
8(add-function :after machine-after-load-theme
9 (defun +larry-set-faces (&rest _)
10 (+set-faces
11 `((default :family "DejaVu Sans Mono")
12 (fixed-pitch :family "DejaVu Sans Mono")
13 (variable-pitch :family "DejaVu Sans")))))
diff --git a/machines/windows-nt.el b/machines/windows-nt.el deleted file mode 100644 index a95754e..0000000 --- a/machines/windows-nt.el +++ /dev/null
@@ -1,23 +0,0 @@
1;;; windows.el --- Windows settings! -*- lexical-binding: t; -*-
2
3;; Annoying gnu-tls bug; I "always" trust the certificate anyway, so let's be
4;; insecure.
5(setq network-security-level 'low
6 debug-on-error t)
7
8;; Fonts
9
10(setq machine-default-font "Cascadia Mono"
11 machine-default-height 90
12 machine-variable-pitch-font "Carlito"
13 machine-variable-pitch-height 1.2)
14
15;; Add C:\Program Files\* and C:\Program Files (x86)\* to exec-path
16(dolist (path (append (file-expand-wildcards "C:/Program Files/*")
17 (file-expand-wildcards "c:/Program Files (x86)/*")
18 ;; Others...
19 (save-match-data
20 (split-string (getenv "PATH") ";" t))))
21 (add-to-list 'exec-path path :append))
22
23;;; windows.el ends here