modules/rosenthal/examples/emacs/fonts.el

@@ -7,14 +7,11 @@
 ;; https://github.com/DogLooksGood/meomacs/blob/master/laf.org
 ;; https://github.com/nykma/nema/blob/develop/my-sample/font.el
 
-;;guix:font-adobe-source-serif
-;;guix:font-google-noto-emoji
-;;guix:font-sarasa-gothic
 (defvar nema--font-size 12 "Font size")
-(defvar nema-fonts '((sans     . "sans")
+(defvar nema-fonts '((mono     . "monospace")
+                     (sans     . "sans")
                      (serif    . "serif")
-                     (mono     . "Sarasa Mono CL")
-                     (cjk      . "Sarasa Mono CL")
+                     (cjk      . "Noto Serif CJK SC")
                      (symbol   . "Noto Color Emoji")
                      (modeline . "Source Serif 4"))
   "Fonts to use.")

modules/rosenthal/examples/emacs/init.el

@@ -39,7 +39,7 @@
   (setopt initial-scratch-message
           ";;; Type your Guile program here and evaluate it.\n\n")
   (scheme-mode)
-  (geiser-repl-import-module "(nonguix)")
   (geiser-repl-import-module "(rosenthal)")
+  (geiser-repl-import-module "(nonguix transformations)")
   (delete-window)
   (display-splash-screen))