diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-12-31 22:14:32 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-12-31 22:14:32 +0100 |
| commit | 647cc70cecca5c946d9c454ee7395a65e477bc29 (patch) | |
| tree | 606b39a5966caf7ff3a185dcfb14638687048ffb | |
| parent | 73f90ee5b11acecfbf836e91394c8f1f4885f7b6 (diff) | |
Replace smart mode line with Doom modeline.
| -rw-r--r-- | guile-studio-configure.scm | 19 | ||||
| -rw-r--r-- | guix/rekado/guile-studio.scm | 5 |
2 files changed, 8 insertions, 16 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index de6e722..3745754 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -216,21 +216,10 @@ with the " (setq-default save-place t) ;; Mode line settings - (require 'smart-mode-line) - (setq sml/no-confirm-load-theme t) - (setq sml/theme 'respectful) - (setq sml/position-percentage-format nil) - (setq sml/mule-info nil) - (setq sml/read-only-char - (propertize "R" 'display - (create-image "<svg xmlns=\"http://www.w3.org/2000/svg\" width=\"20\" height=\"14\" viewBox=\"0 0 448 612\">\ -<path fill=\"currentColor\" \ -d=\"M400 224h-24v-72C376 68.2 307.8 0 224 0S72 68.2 72 \ -152v72H48c-26.5 0-48 21.5-48 48v192c0 26.5 21.5 48 48 48h352c26.5 \ -0 48-21.5 48-48V272c0-26.5-21.5-48-48-48zm-104 0H152v-72c0-39.7 \ -32.3-72 72-72s72 32.3 72 72v72z\"></path></svg>" 'svg t))) - (sml/setup) - (setq rm-whitelist '("Paredit")) + (require 'doom-modeline) + (setq doom-modeline-buffer-encoding nil) + (doom-modeline-mode 1) + (require 'uniquify) (setq uniquify-buffer-name-style 'forward) diff --git a/guix/rekado/guile-studio.scm b/guix/rekado/guile-studio.scm index 2b0fe3e..f101683 100644 --- a/guix/rekado/guile-studio.scm +++ b/guix/rekado/guile-studio.scm @@ -49,13 +49,16 @@ `(("guile" ,guile-3.0) ("guile-picture-language" ,guile-picture-language) ("emacs" ,emacs) + ("emacs-f" ,emacs-f) ; TODO: needed by doom-modeline + ("emacs-memoize" ,emacs-memoize) ; TODO: needed by all-the-icons + ("emacs-all-the-icons" ,emacs-all-the-icons) + ("emacs-doom-modeline" ,emacs-doom-modeline) ("emacs-modus-themes" ,emacs-modus-themes) ("emacs-geiser" ,emacs-geiser) ("emacs-company" ,emacs-company) ("emacs-ivy" ,emacs-ivy) ("emacs-flycheck" ,emacs-flycheck) ("emacs-flycheck-guile" ,emacs-flycheck-guile) - ("emacs-smart-mode-line" ,emacs-smart-mode-line) ("emacs-paren-face" ,emacs-paren-face) ("adwaita-icon-theme" ,adwaita-icon-theme))) (native-inputs |