Compare commits
No commits in common. "4ecd41b9349334cc5030b0a425343cc36ba656e2" and "020cbc918f0d2decd9e2d0052630e397374f20da" have entirely different histories.
4ecd41b934
...
020cbc918f
Binary file not shown.
Before Width: | Height: | Size: 19 KiB After Width: | Height: | Size: 19 KiB |
Binary file not shown.
@ -69,8 +69,8 @@ mood-line uses a modular segment format, and it is easy to reconfigure:
|
||||
((mood-line-segment-checker) . " "))))
|
||||
```
|
||||
|
||||
More information on the format specification is available in the documentation:\
|
||||
`M-x describe-variable mood-line-format`\
|
||||
More information on the format specification is available in the documentation: \
|
||||
`M-x describe-variable mood-line-format` \
|
||||
`M-x describe-function mood-line-defformat`
|
||||
|
||||
### Glyphs
|
||||
|
@ -107,16 +107,6 @@ e.g., (:foreground \"red\")."
|
||||
(concat (propertize (car mode-cons)
|
||||
'face (cdr mode-cons))))))
|
||||
|
||||
;; ---------------------------------- ;;
|
||||
;; Xah segment
|
||||
;; ---------------------------------- ;;
|
||||
|
||||
(defun mood-line-segment-modal--xah-fn ()
|
||||
"Display the current xah-fly-keys state."
|
||||
(if (bound-and-true-p xah-fly-insert-state-p)
|
||||
"<I>"
|
||||
"<C>"))
|
||||
|
||||
;; ---------------------------------- ;;
|
||||
;; God segment
|
||||
;; ---------------------------------- ;;
|
||||
|
15
mood-line.el
15
mood-line.el
@ -1,11 +1,11 @@
|
||||
;;; mood-line.el --- A minimal mode line inspired by doom-modeline -*- lexical-binding: t; -*-
|
||||
;;
|
||||
|
||||
;; Author: Jessie Hildebrandt <jessieh.net>
|
||||
;; Homepage: https://gitlab.com/jessieh/mood-line
|
||||
;; Keywords: mode-line faces
|
||||
;; Version: 3.1.0
|
||||
;; Version: 3.0.1
|
||||
;; Package-Requires: ((emacs "26.1"))
|
||||
;;
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
@ -460,22 +460,17 @@ described in the documentation for `mood-line-format', which see."
|
||||
|
||||
(mood-line--deflazy mood-line-segment-modal--evil-fn)
|
||||
(mood-line--deflazy mood-line-segment-modal--meow-fn)
|
||||
(mood-line--deflazy mood-line-segment-modal--xah-fn)
|
||||
(mood-line--deflazy mood-line-segment-modal--god-fn)
|
||||
|
||||
(defun mood-line-segment-modal ()
|
||||
"Return the correct mode line segment for the first active modal mode found.
|
||||
Modal editing modes checked, in order:
|
||||
`evil-mode', `meow-mode', `xah-fly-keys', `god-mode'"
|
||||
Modal modes checked, in order: `evil-mode', `meow-mode', `god-mode'."
|
||||
(cond
|
||||
((bound-and-true-p evil-mode)
|
||||
(mood-line-segment-modal--evil-fn))
|
||||
((bound-and-true-p meow-mode)
|
||||
(mood-line-segment-modal--meow-fn))
|
||||
((bound-and-true-p xah-fly-keys)
|
||||
(mood-line-segment-modal--xah-fn))
|
||||
((or (bound-and-true-p 'god-local-mode)
|
||||
(bound-and-true-p 'god-global-mode))
|
||||
((featurep 'god-mode)
|
||||
(mood-line-segment-modal--god-fn))))
|
||||
|
||||
;; ---------------------------------- ;;
|
||||
|
Loading…
Reference in New Issue
Block a user