From 480933745f0a358c9bff9840b9527925dcf5fee6 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 23 May 2021 00:33:29 +0100
Subject: refactorings

---
 init.org | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/init.org b/init.org
index dc9c30c..7a7a038 100644
--- a/init.org
+++ b/init.org
@@ -655,7 +655,10 @@
     #+END_SRC
 *** Mode line format
     #+begin_src emacs-lisp
-      (setq line-number-display-limit-width 250)
+      (setq line-number-display-limit-width 250
+            display-time-string-forms '(24-hours ":" minutes))
+      (display-time-mode -1)
+
       (setq mode-line-position-column-format '(" %c")
             mode-line-position-line-format '(" %l,%c"))
       (setq mode-line-percent-position
@@ -663,15 +666,10 @@
       (line-number-mode -1)
       (column-number-mode 1)
       (when (jao-colors-scheme-dark-p)
-        (setq jao-minibuffer-active-buffer-line-color "seashell4"
-              jao-minibuffer-inactive-buffer-line-color "grey30"))
+        (setq jao-minibuffer-active-buffer-line-color "grey35"
+              jao-minibuffer-inactive-buffer-line-color "grey20"))
       (jao-minibuffer-add-mode-line 90)
     #+end_src
-*** Mode line time
-    #+begin_src emacs-lisp
-      (setq display-time-string-forms '(24-hours ":" minutes))
-      (display-time-mode -1)
-    #+end_src
 *** Mode line toggle
     #+begin_src emacs-lisp
       (defun jao-toggle--face-height (face &optional all)
@@ -747,9 +745,6 @@
 
           :bind (("C-c C-SPC" . jao-tracking-next-buffer)))
 
-        (defun jao-shorten-modes (&rest modes)
-          (dolist (m modes) (add-to-list 'tracking-shorten-modes m)))
-
         (defun jao-tracking-faces (&rest faces)
           (dolist (face faces)
             (add-to-list 'tracking-faces-priorities face)))
@@ -758,6 +753,9 @@
       #+begin_src emacs-lisp
         (require 'shorten)
 
+        (defun jao-shorten-modes (&rest modes)
+          (dolist (m modes) (add-to-list 'tracking-shorten-modes m)))
+
         (defun jao-tracking--clean-slack (s)
           (let ((s (replace-regexp-in-string
                     "^\\*Slack - .*? : \\(mpdm-\\)?\\([^ ]+\\)\\( \\(T\\)\\)?.*"
@@ -2927,8 +2925,7 @@
         (dolist (f (list slack-file-dir slack-image-file-directory))
           (when (not (file-exists-p f)) (make-directory f)))
 
-        (jao-shorten-modes 'slack-message-buffer-mode
-                           'slack-thread-message-buffer-mode)
+        (jao-shorten-modes 'slack-message-buffer-mode)
         (jao-tracking-faces 'warning))
     #+end_src
 *** telegram
-- 
cgit v1.2.3