From 647cc70cecca5c946d9c454ee7395a65e477bc29 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 31 Dec 2020 22:14:32 +0100
Subject: Replace smart mode line with Doom modeline.

---
 guile-studio-configure.scm   | 19 ++++---------------
 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
-- 
cgit v1.2.3