move code to better place

jyp · Jan 7, 2024 · ded55a2 · ded55a2
1 parent 6dc09dc
commit ded55a2
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 13 deletions.
diff --git a/boon-core.el b/boon-core.el
@@ -328,6 +328,19 @@ the buffer changes."
    (boon-special-state "SPC")
    (t "???")))
 
+(defface boon-modeline-cmd '((((background light)) :background "dodger blue") (((background dark)) :background "blue")) "Face for modeline indicator of boon command state" :group 'boon)
+(defface boon-modeline-ins '((((background light)) :background "indian red") (((background dark)) :background "red")) "Face for modeline indicator of boon insert state" :group 'boon)
+(defface boon-modeline-off '((t (:background "orange"))) "Face for modeline indicator of boon off state" :group 'boon)
+(defface boon-modeline-spc '((((background light)) :background "spring green") (((background dark)) :background "dark green")) "Face for modeline indicator of boon special state" :group 'boon)
+
+(defun boon-state-face ()
+  "Return a face appropriate for a powerline-style entry in the modeline."
+  (cond
+   (boon-command-state 'boon-modeline-cmd)
+   (boon-insert-state 'boon-modeline-ins)
+   (boon-special-state 'boon-modeline-spc)
+   (t 'boon-modeline-off)))
+
 (with-eval-after-load 'multiple-cursors
   (defvar mc--default-cmds-to-run-for-all)
   (defvar mc--default-cmds-to-run-once)

diff --git a/boon-powerline.el b/boon-powerline.el
@@ -9,19 +9,6 @@
 (require 'powerline nil t)
 (require 'boon-core)
 
-(defface boon-modeline-cmd '((((background light)) :background "dodger blue") (((background dark)) :background "blue")) "Face for modeline indicator of boon command state" :group 'boon)
-(defface boon-modeline-ins '((((background light)) :background "indian red") (((background dark)) :background "red")) "Face for modeline indicator of boon insert state" :group 'boon)
-(defface boon-modeline-off '((t (:background "orange"))) "Face for modeline indicator of boon off state" :group 'boon)
-(defface boon-modeline-spc '((((background light)) :background "spring green") (((background dark)) :background "dark green")) "Face for modeline indicator of boon special state" :group 'boon)
-
-(defun boon-state-face ()
-  "Return a face appropriate for a powerline-style entry in the modeline."
-  (cond
-   (boon-command-state 'boon-modeline-cmd)
-   (boon-insert-state 'boon-modeline-ins)
-   (boon-special-state 'boon-modeline-spc)
-   (t 'boon-modeline-off)))
-
 (defun boon-powerline-theme ()
   "Set up a powerline based on powerline-default-theme which also displays boon-state."
   (interactive)