Add system.el

1 files changed, 36 insertions, 15 deletions

@@ -52,41 +52,63 @@ See `no-littering' for examples.")
 (+define-dir sync/ (expand-file-name "~/Sync")
   "My Syncthing directory.")
 
+;; Load system-specific changes.
+(progn (require 'system)
+       (setq system-load-directory (sync/ "emacs/systems/" t))
+       (system-settings-load nil :nowarn))
+
 ;;; Default frame settings
 
 (setq default-frame-alist '((tool-bar-lines . 0)
-                                        (menu-bar-lines . 0)
-                                        (vertical-scroll-bars)
-                                        (horizontal-scroll-bars))
+                            (menu-bar-lines . 0)
+                            (vertical-scroll-bars)
+                            (horizontal-scroll-bars))
       frame-inhibit-implied-resize t
       frame-resize-pixelwise t
       window-resize-pixelwise t
       inhibit-x-resources t
       indicate-empty-lines nil
       indicate-buffer-boundaries '((top . right)
-                                                   (bottom . right)))
+                                   (bottom . right)))
+
+;;; Fonts
 
-;; Fonts
+;; Set default faces
 
-(let ((font-name "DejaVu  Sans Mono")
-      (font-size 105)
-      (variable-font-name "DejaVu Sans")
-      (variable-font-size 1.0))
-  (set-face-attribute 'default nil :family font-name
+(let ((font-name system-default-font)
+      (font-size system-default-height)
+      (variable-font-name system-variable-pitch-font)
+      (variable-font-size system-variable-pitch-height))
+  (set-face-attribute 'default nil :family system-default-font
                       :height font-size :weight 'book)
   (set-face-attribute 'italic nil :family font-name
                       :height font-size :slant 'italic)
   (set-face-attribute 'variable-pitch nil :family variable-font-name
                       :height variable-font-size))
 
+;; Emoji fonts
+
+(let ((ffl (font-family-list)))
+  (dolist (font '("Noto Color Emoji"
+                  "Noto Emoji"
+                  "Segoe UI Emoji"
+                  "Apple Color Emoji"
+                  "FreeSans"
+                  "FreeMono"
+                  "FreeSerif"
+                  "Unifont"
+                  "Symbola"))
+    (when (member font ffl)
+      (set-fontset-font t 'symbol (font-spec :family font) nil :append))))
+
 ;;; Packages
 
 (setq package-enable-at-startup nil
       package-quickstart nil
       straight-host-usernames '((github . "duckwork")
-                                                (gitlab .  "acdw"))
+                                (gitlab .  "acdw"))
       straight-check-for-modifications '(check-on-save
-                                                             find-when-checking))
+                                         find-when-checking))
 
 (setq no-littering-etc-directory .etc
       no-littering-var-directory .etc
@@ -117,8 +139,8 @@ See `no-littering' for examples.")
 (require 'straight-x)
 
 (dolist (pkg '(el-patch
-                   no-littering
-                   setup))
+               no-littering
+               setup))
   (straight-use-package pkg)
   (require pkg)
   (require (intern (format "+%s" pkg)) nil :noerror))
@@ -137,4 +159,3 @@ See `no-littering' for examples.")
 
 (provide 'early-init)
 ;;; early-init.el ends here
-