linum toggle on theme change; comic mono; t h e m e s

1 files changed, 24 insertions, 6 deletions

diff --git a/init-el.org b/init-el.org
index f253d56..dc99347 100644
--- a/init-el.org
+++ b/init-el.org
@@ -391,14 +391,16 @@ New in emacs 28, native compilation can be enabled:
 ** Fonts
 #+name: ui-fonts
 #+begin_src elisp :noweb no-export
-  (add-to-list 'default-frame-alist
-               '(font . "Victor Mono-10"))
+(add-to-list 'default-frame-alist
+             '(font . "Comic Mono-12")
+             ;'(font . "Victor Mono-10")
+             )
 
 
 #+end_src
 
 #+RESULTS: ui-fonts
-: ((font . Victor Mono-10) (vertical-scroll-bars))
+: ((font . Comic Mono-10) (font . Victor Mono-10) (vertical-scroll-bars) (left-fringe . 4) (right-fringe . 0))
 
 ** UI Chrome
 
@@ -600,8 +602,12 @@ New in emacs 28, native compilation can be enabled:
 (setq my-installed-themes
       '(modus-themes
         sweet-theme
+        yoshi-theme
         wildcharm-theme
+        goose-theme 
         poet-theme
+        nezburn-theme
+        sunburn-theme
         moe-theme
         solarized-theme))
 
@@ -621,11 +627,15 @@ New in emacs 28, native compilation can be enabled:
       '(modus-operandi-tritanopia
         moe-light
         solarized-selenized-light
+        goose
+        sunburn
         moe-dark
         solarized-selenized-dark 
+        yoshi
         sweet
+        nezburn
         wildcharm
-        modus-vivendi-tritanopia))
+        modus-vivendi))
 
 (setq *writing-themes*
       '(poet-monochrome
@@ -666,6 +676,12 @@ New in emacs 28, native compilation can be enabled:
       (message (format  "%s [n]ext or [p]evious. Anything else to quit."
                         (my-theme-string))))))
 
+(defun my-theme-linum-mode-cycler ()
+  "sometimes cycling themes when linum mode is on causes screwy display. cycling helps."
+  (when (symbol-value linum-mode)
+    (linum-mode -10)
+    (linum-mode)))
+
 (defun my-theme-command-next ()
   (interactive)
   (let* ((active-theme (car custom-enabled-themes))
@@ -674,7 +690,8 @@ New in emacs 28, native compilation can be enabled:
     (if next-theme (load-theme next-theme t)
       (load-theme (car *current-theme-set*) t))
     (setq cursor-type 'box)
-    (setq-default cursor-type 'box)))
+    (setq-default cursor-type 'box)
+    (my-theme-linum-mode-cycler)))
 
 (defun my-theme-command-previous ()
   (interactive)
@@ -685,7 +702,8 @@ New in emacs 28, native compilation can be enabled:
     (if next-theme (load-theme next-theme t)
       (load-theme (car themes) t))
     (setq cursor-type 'box)
-    (setq-default cursor-type 'box)))
+    (setq-default cursor-type 'box)
+    (my-theme-linum-mode-cycler)))
 
 #+end_src