ryuslash/mode-icons
1
0
Fork 0
mirror of https://github.com/ryuslash/mode-icons.git synced 2024-11-25 11:00:29 +01:00
Code Issues Projects Releases Packages Wiki Activity

Add narrow icon

Browse source
This commit is contained in:
Matthew L. Fidler 2016-02-18 23:13:20 -06:00
parent 8631548a87
commit 8de4cbe7c2
1 changed files with 41 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
mode-icons.el
View file

@ -150,6 +150,7 @@ absolute path to ICON."
("Octave" "octave" xpm) ("Octave" "octave" xpm)
("AHK" "autohotkey" xpm) ("AHK" "autohotkey" xpm)
("Info" #xf05a FontAwesome) ("Info" #xf05a FontAwesome)
("Narrow" #xf066 FontAwesome)
;; Diminished modes ;; Diminished modes
("\\(?:ElDoc\\|Anzu\\|SP\\|Guide\\|PgLn\\|Undo-Tree\\|Ergo.*\\|,\\|Isearch\\|Ind\\|Fly\\)" nil nil) ("\\(?:ElDoc\\|Anzu\\|SP\\|Guide\\|PgLn\\|Undo-Tree\\|Ergo.*\\|,\\|Isearch\\|Ind\\|Fly\\)" nil nil)
) )
@ -203,6 +204,16 @@ the icon."
:type '(repeat sexp) :type '(repeat sexp)
:group 'mode-icons) :group 'mode-icons)
(defcustom mode-icons-narrow-text-properties
'('local-map
'(keymap
(mode-line keymap
(mouse-2 . mode-line-widen)))
'mouse-face 'mode-line-highlight 'help-echo "mouse-2: Remove narrowing from buffer")
"List of text propeties to apply to narrowing buffer indicator."
:type '(repeat sexp)
:group 'mode-icons)
(defvar mode-icons-powerline-p nil) (defvar mode-icons-powerline-p nil)
(defun mode-icons-need-update-p () (defun mode-icons-need-update-p ()
"Determine if the mode-icons need an update." "Determine if the mode-icons need an update."
@ -361,6 +372,17 @@ ICON-SPEC should be a specification from `mode-icons'."
(concat " " (eval `(propertize ,mode ,@mode-icons-minor-mode-base-text-properties)))) (concat " " (eval `(propertize ,mode ,@mode-icons-minor-mode-base-text-properties))))
(split-string (format-mode-line minor-mode-alist)))))) (split-string (format-mode-line minor-mode-alist))))))
(defun mode-icons--generate-narrow ()
"Extracts all rich strings necessary for narrow indicator."
(let (icon-spec)
(delete " " (delete "" (mapcar (lambda(mode)
(concat " " (eval `(propertize
,(if (setq icon-spec (mode-icons-get-icon-spec mode))
(mode-icons-propertize-mode mode icon-spec)
mode)
,@mode-icons-narrow-text-properties))))
(split-string (format-mode-line "%n")))))))
;; Based on rich-minority by Artur Malabarba ;; Based on rich-minority by Artur Malabarba
(defvar mode-icons--backup-construct nil) (defvar mode-icons--backup-construct nil)
(defvar mode-icons--mode-line-construct (defvar mode-icons--mode-line-construct
@ -372,6 +394,11 @@ ICON-SPEC should be a specification from `mode-icons'."
'(:eval (mode-icons--generate-major-mode-item)) '(:eval (mode-icons--generate-major-mode-item))
"Construct used to replace `mode-name'.") "Construct used to replace `mode-name'.")
(defvar mode-icons--narrow-backup-construct nil)
(defvar mode-icons--narrow-construct
'(:eval (mode-icons--generate-narrow))
"Construct used to replace %n in `mode-line-modes'.")
(defun mode-icons-fix (&optional enable) (defun mode-icons-fix (&optional enable)
"Fix mode-icons." "Fix mode-icons."
(if enable (if enable
@ -386,19 +413,29 @@ ICON-SPEC should be a specification from `mode-icons'."
(and (listp x) (and (listp x)
(equal (car x) :propertize) (equal (car x) :propertize)
(equal (cadr x) '("" mode-name)))) (equal (cadr x) '("" mode-name))))
mode-line-modes))
(place-narrow (cl-member-if
(lambda(x)
(and (stringp x) (string= "%n" x)))
mode-line-modes))) mode-line-modes)))
(when place (when place
(setq mode-icons--backup-construct (car place)) (setq mode-icons--backup-construct (car place))
(setcar place mode-icons--mode-line-construct)) (setcar place mode-icons--mode-line-construct))
(when place-major (when place-major
(setq mode-icons--major-backup-construct (car place-major)) (setq mode-icons--major-backup-construct (car place-major))
(setcar place-major mode-icons--major-construct))) (setcar place-major mode-icons--major-construct))
(when place-narrow
(setq mode-icons--narrow-backup-construct (car place-narrow))
(setcar place-narrow mode-icons--narrow-construct)))
(let ((place (member mode-icons--mode-line-construct mode-line-modes)) (let ((place (member mode-icons--mode-line-construct mode-line-modes))
(place-major (member mode-icons--major-backup-construct mode-line-modes))) (place-major (member mode-icons--major-backup-construct mode-line-modes))
(place-narrow (member mode-icons--narrow-backup-construct mode-line-modes)))
(when place (when place
(setcar place mode-icons--backup-construct)) (setcar place mode-icons--backup-construct))
(when place-major (when place-major
(setcar place-major mode-icons--major-backup-construct))))) (setcar place-major mode-icons--major-backup-construct))
(when place-narrow
(setcar place-narrow mode-icons--narrow-backup-construct)))))
;;;###autoload ;;;###autoload
(define-minor-mode mode-icons-mode (define-minor-mode mode-icons-mode