diff options
Diffstat (limited to 'emacs/inits/01-basic.el')
| -rw-r--r-- | emacs/inits/01-basic.el | 110 |
1 files changed, 54 insertions, 56 deletions
diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el index 65dd445..343ac68 100644 --- a/emacs/inits/01-basic.el +++ b/emacs/inits/01-basic.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2026-03-22 19h15 GMT (11978fd4)> +;; Time-stamp: <2026-03-27 12h10 GMT (anker)> ;; ----------------------------------------------------------------------------- ;; Interface @@ -33,61 +33,59 @@ (split-window-horizontally) (enlarge-to-fill))) -(if (display-graphic-p) - (progn - (add-to-list 'custom-theme-load-path "~/.config/emacs/themes/") - - ;; listen for theme changes - (defconst dark-theme 'dracula) - (defconst light-theme 'acme) - - (defun my-switch-to-light () - (disable-theme dark-theme) - (load-theme light-theme t)) - - (defun my-switch-to-dark () - (disable-theme light-theme) - (load-theme dark-theme t)) - - (require 'dbus) - (pcase (caar (dbus-ignore-errors - (dbus-call-method - :session - "org.freedesktop.portal.Desktop" - "/org/freedesktop/portal/desktop" - "org.freedesktop.portal.Settings" "Read" - "org.freedesktop.appearance" "color-scheme"))) - (1 (my-switch-to-dark)) - (2 (my-switch-to-light))) - - (dbus-register-signal - :session - "org.freedesktop.portal.Desktop" - "/org/freedesktop/portal/desktop" - "org.freedesktop.portal.Settings" - "SettingChanged" - (lambda (path var val) - (when (and (string= path "org.freedesktop.appearance") - (string= var "color-scheme")) - (pcase (car val) - (1 (my-switch-to-dark)) - (2 (my-switch-to-light)))))) - - ;; fonts - (progn - (setq my-font "Commit Mono-14") - (setq my-font "Berkeley Mono-14") - (setq my-font "Monaspace Krypton-14") - (setq my-font "Sudo-14") - (setq my-font "Iosevka Term Slab-14") - (setq my-font "PxPlus IBM VGA 9x16-14") - (setq my-font "Myna-14") - (setq my-font "BQN386 Unicode DZ-14") - ;; (setq line-spacing 4) - (set-frame-font my-font) - (set-face-attribute 'font-lock-comment-face nil :slant 'italic)) - ) - (load-theme 'challenger-deep t)) +(when (display-graphic-p) + (add-to-list 'custom-theme-load-path "~/.config/emacs/themes/") + + ;; listen for theme changes + (defconst dark-theme 'dracula) + (defconst light-theme 'acme) + + (defun my-switch-to-light () + (disable-theme dark-theme) + (load-theme light-theme t)) + + (defun my-switch-to-dark () + (disable-theme light-theme) + (load-theme dark-theme t)) + + (require 'dbus) + (pcase (caar (dbus-ignore-errors + (dbus-call-method + :session + "org.freedesktop.portal.Desktop" + "/org/freedesktop/portal/desktop" + "org.freedesktop.portal.Settings" "Read" + "org.freedesktop.appearance" "color-scheme"))) + (1 (my-switch-to-dark)) + (2 (my-switch-to-light))) + + (dbus-register-signal + :session + "org.freedesktop.portal.Desktop" + "/org/freedesktop/portal/desktop" + "org.freedesktop.portal.Settings" + "SettingChanged" + (lambda (path var val) + (when (and (string= path "org.freedesktop.appearance") + (string= var "color-scheme")) + (pcase (car val) + (1 (my-switch-to-dark)) + (2 (my-switch-to-light)))))) + + ;; fonts + (progn + (setq my-font "Commit Mono-14") + (setq my-font "Berkeley Mono-14") + (setq my-font "Monaspace Krypton-14") + (setq my-font "Sudo-14") + (setq my-font "Iosevka Term Slab-14") + (setq my-font "PxPlus IBM VGA 9x16-14") + (setq my-font "Myna-14") + (setq my-font "BQN386 Unicode DZ-12") + ;; (setq line-spacing 4) + (set-frame-font my-font) + (set-face-attribute 'font-lock-comment-face nil :slant 'italic)) + ) (setq-default line-spacing nil) |