5 files changed, 20 insertions, 11 deletions

@@ -649,7 +649,7 @@
            tab-bar-tab-name-ellipsis truncate-string-ellipsis
            tab-bar-show t
            tab-bar-close-button-show t
-           tab-bar-close-button (propertize " â—¦ "
+           tab-bar-close-button (propertize " ✕ "
                                             'display t
                                             'close-tab t)
            tab-bar-new-button (propertize "+ " 'display t))
@@ -1444,7 +1444,8 @@ See also `crux-reopen-as-root-mode'."
                    :host github :repo "duckwork/machine.el"))
   (:option machine-default-font "DejaVu Sans Mono"
            machine-variable-pitch-font "DejaVu Sans")
-  (machine-settings-load))
+  (+with-ensure-after-init              ; So that they override anything here.
+   (machine-settings-load)))
 
 (setup (:straight macrostep)
   (:require macrostep)
@@ -1505,6 +1506,14 @@ See also `crux-reopen-as-root-mode'."
            modus-themes-bold-constructs t
            modus-themes-italic-constructs t
            modus-themes-headings '((t . (background))))
+  (dotimes (facen-1 8)
+    (let ((facen (1+ facen-1)))
+      (custom-set-faces
+       `(,(intern (format "org-level-%s" facen))
+         ((t :inherit
+             (,(intern (format "modus-themes-heading-%s" facen))
+              fixed-pitch))
+          :now)))))
   (dawn-schedule #'modus-themes-load-operandi
                  #'modus-themes-load-vivendi))
 
@@ -224,9 +224,9 @@ The order of elements matters: whichever one matches first is applied."
       (:propertize (line-number-mode
                     ((column-number-mode
                       (column-number-indicator-zero-based
-                       ,(concat before "%3l" sep "%2c" after)
-                       ,(concat before "%3l" sep "%2C" after))
-                      ,(concat before "%3l" sep "" after)))
+                       ,(concat before "%2l" sep "%2c" after)
+                       ,(concat before "%2l" sep "%2C" after))
+                      ,(concat before "%2l" sep "" after)))
                     ((column-number-mode
                       (column-number-indicator-zero-based
                        ,(concat before sep "%2c" after)
@@ -269,7 +269,7 @@ instead of the true count."
                                                            (region-end))))
          (org-link (when clipboard-url
                      (org-link-make-string
-                      clipboard-url
+                      (string-trim clipboard-url)
                       (or region-content
                           (read-string  "title: "
                                         (with-current-buffer
@@ -5,7 +5,7 @@
 ;;(require 'scratch)
 
 (defun +scratch-immortal ()
-  "Bury, don't kill \"*scratc*\" buffer.
+  "Bury, don't kill \"*scratch*\" buffer.
 For `kill-buffer-query-functions'."
   (if (eq (current-buffer) (get-buffer "*scratch*"))
       (progn (bury-buffer)
@@ -24,6 +24,5 @@ For `kill-buffer-query-functions'."
         (next-line 2))
       (rename-buffer (concat "*scratch<" mode ">*") t)))
 
-
 (provide '+scratch)
 ;;; +scratch.el ends here
@@ -6,9 +6,10 @@
 
 (require 'acdw)
 
-(+set-faces `((default :family "CMU Typewriter Text"
-                       :height 120)
-              (variable-pitch :family "CMU Typewriter Text Variable Width"
+(+set-faces `((default :family "DejaVu Sans Mono"
+                       :height 105)
+              (fixed-pitch :inherit default)
+              (variable-pitch :family "DejaVu Sans"
                               :height 1.1)))
 
 ;;; bob.el ends here