Update fonts

1 files changed, 24 insertions, 12 deletions

@@ -1,6 +1,8 @@
 ;;; ~/.emacs  -*- mode: emacs-lisp; lexical-binding: t; -*-
 ;; by Case Duckworth <acdw@acdw.net>
 ;; Bankruptcy 10: "Annoyance"
+;;
+;; License: GPLv3+
 
 ;;; Commentary:
 
@@ -11,9 +13,12 @@
 
 ;;; Code:
 
+(defun sync/ (&optional file-name)
+  (expand-file-name (or file-name "") "~/sync"))
+
 (add-hook 'after-init-hook
           (lambda ()
-            (load (locate-user-emacs-file "private"))))
+            (load (sync/ "private"))))
 
 ;;; Definitions:
 
@@ -40,7 +45,13 @@
                   font-lock-misc-punctuation-face
                   font-lock-bracket-face))
     (face-spec-set face '((t :foreground unspecified
-                             :background unspecified)))))
+                             :background unspecified))))
+  (dolist (face '(font-lock-comment-face
+                  font-lock-doc-face
+                  font-lock-string-face))
+    (face-spec-set face '((t :foreground unspecified
+                             :background unspecified
+                             :slant italic)))))
 
 (defun electric-pair-local-mode-disable ()
   "Disable `electric-pair-mode', locally."
@@ -427,11 +438,12 @@ If LOCALP is a string, add that directory to the `load-path'."
 
 (tool-bar-mode -1)
 
-(setopt modus-themes2-bold-constructs nil
+(setopt modus-themes-bold-constructs nil
         modus-themes-italic-constructs t
         modus-themes-variable-pitch-ui t)
 
 (add-hook 'modus-themes-after-load-theme-hook #'reset-faces)
+(add-hook 'after-init-hook #'reset-faces)
 
 (load-theme 'modus-vivendi :no-confirm :no-enable)
 (load-theme 'modus-operandi :no-confirm)
@@ -922,16 +934,16 @@ ORG-EXPORT-ARGS are passed to `org-export-to-buffer'."
 
 ;; Wayland version.. TODO: make it work for both
 ;; (defun org-to-html-to-clipboard (&rest org-export-args)
-  ;; "Export current org buffer to HTML, then copy it to the clipboard.
+;; "Export current org buffer to HTML, then copy it to the clipboard.
 ;; ORG-EXPORT-ARGS are passed to `org-export-to-file'."
-  ;; (let ((buf (generate-new-buffer "*org-html-clipboard*" t)))
-    ;; (apply #'org-export-to-buffer 'html buf org-export-args)
-    ;; (with-current-buffer buf
-      ;; (call-process-region (point-min) (point-max)
-                           ;; "wl-copy" nil nil nil
-                           ;; "-t" "text/html")
-      ;; (kill-buffer-and-window))
-    ;; (message "HTML copied to clipboard.")))
+;; (let ((buf (generate-new-buffer "*org-html-clipboard*" t)))
+;; (apply #'org-export-to-buffer 'html buf org-export-args)
+;; (with-current-buffer buf
+;; (call-process-region (point-min) (point-max)
+;; "wl-copy" nil nil nil
+;; "-t" "text/html")
+;; (kill-buffer-and-window))
+;; (message "HTML copied to clipboard.")))
 
 (defun org-subtree-to-html-to-clipboard ()
   "Export current subtree to HTML."