diff options
| author | LLoyderino <adrijan.bjedov@gmail.com> | 2026-05-08 22:15:15 +0200 |
|---|---|---|
| committer | LLoyderino <adrijan.bjedov@gmail.com> | 2026-05-08 22:25:51 +0200 |
| commit | 6c8a5814842a581ee8bb92a446b9e02a2a035f77 (patch) | |
| tree | eeade8696d7824012b5aa1721789cff02bb59d98 | |
| parent | 425c4453df2e4c44fd9629c236eae1fa43fbd246 (diff) | |
Switched theme from Catppuccin to Tokyo Night
| -rw-r--r-- | init.el | 6 | ||||
| -rw-r--r-- | theme.el | 44 |
2 files changed, 4 insertions, 46 deletions
@@ -117,8 +117,10 @@ :config (org-roam-db-autosync-mode)) -;; Catppuccin theme -(load (locate-user-emacs-file "theme.el")) +;; Emacs theme +(use-package tokyonight-themes + :vc (:url "https://github.com/xuchengpeng/tokyonight-themes") + :config (load-theme 'tokyonight-moon :no-confirm)) (use-package company :hook (after-init . company-mode)) diff --git a/theme.el b/theme.el deleted file mode 100644 index 2a574bd..0000000 --- a/theme.el +++ /dev/null @@ -1,44 +0,0 @@ -;;; theme.el -*- lexical-binding: t; -*- - -;; Utility to set light & dark theme that follows system -;; This has only been tested on Gnome 48 and depends on gsettings - -(use-package catppuccin-theme) - -(defun has-gsettings () - (= (call-process-shell-command "gsettings --version") 0)) - -(defun set-color-scheme () - (set-theme - (string-trim - (shell-command-to-string "gsettings get org.gnome.desktop.interface color-scheme")))) - -(defun set-theme (scheme) - (setq catppuccin-flavor (cond ((string-equal scheme "\'default\'") 'latte) - ((string-equal scheme "\'prefer-light\'") 'latte) - ((string-equal scheme "\'prefer-dark\'") 'mocha))) - (load-theme 'catppuccin :no-confirm)) - -(defun monitor-theme-changes () - "Listen to gnome theme changes and run set the correct flavor" - (let ((process (make-process - :name "gsettings-monitor" - :command '("gsettings" "monitor" "org.gnome.desktop.interface" "color-scheme") - :filter (lambda (_ output) - (when (string-match-p "color-scheme" output) - (set-color-scheme)))))) - ;; Kill on exit without user prompt - (set-process-query-on-exit-flag process nil))) - -;; Initialize settings -(when (has-gsettings) - (set-color-scheme) - (monitor-theme-changes)) - -(when (not (has-gsettings)) - (setq catppuccin-flavor 'mocha) - (load-theme 'catppuccin :no-confirm)) - -(provide 'theme) - -;;; theme.el ends here |
