[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline 3bfc046 11/24: Added buffer menu mode
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-modeline 3bfc046 11/24: Added buffer menu mode |
Date: |
Wed, 6 Oct 2021 17:57:34 -0400 (EDT) |
branch: externals/nano-modeline
commit 3bfc046e79f3048e4763fc56e684606859f29d49
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Added buffer menu mode
---
nano-modeline.el | 37 ++++++++++++++++++++++++++-----------
1 file changed, 26 insertions(+), 11 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index 832b88d..66e8224 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -23,7 +23,7 @@
;; [ status | name (primary) secondary ]
;;
;; -------------------------------------------------------------------
-(require 'subr-x)
+(require 's)
(defgroup nano nil
"N Λ N O")
@@ -402,7 +402,7 @@ Modeline is composed as:
:underline nil
:box nil
:height 1.0)))
-(add-hook 'mu4e-view-mode-hook #'nano-modeline-mu4e-view-hook)
+;; (add-hook 'mu4e-view-mode-hook #'nano-modeline-mu4e-view-hook)
;; ---------------------------------------------------------------------
@@ -492,11 +492,22 @@ Modeline is composed as:
page-number)))
;; ---------------------------------------------------------------------
-(defun buffer-menu-mode-header-line ()
- (face-remap-add-relative
- 'header-line `(:background ,(face-background 'nano-subtle))))
-(add-hook 'Buffer-menu-mode-hook
- #'buffer-menu-mode-header-line)
+(defun nano-modeline-buffer-menu-mode-p ()
+ (derived-mode-p 'buffer-menu-mode))
+
+(defun nano-modeline-buffer-menu-mode ()
+ (let ((buffer-name "Buffer list")
+ (mode-name (nano-mode-name))
+ (position (format-mode-line "%l:%c")))
+
+ (nano-modeline-compose (nano-modeline-status)
+ buffer-name "" position)))
+;;(defun buffer-menu-mode-header-line ()
+;; (face-remap-add-relative
+;; 'header-line `(:background ,(face-background 'nano-subtle))))
+;;(add-hook 'Buffer-menu-mode-hook
+;; #'buffer-menu-mode-header-line)
+(setq Buffer-menu-use-header-line nil)
;; ---------------------------------------------------------------------
(defun nano-modeline-completion-list-mode-p ()
@@ -519,15 +530,14 @@ Modeline is composed as:
(derived-mode-p 'deft-mode))
(defun nano-modeline-deft-mode ()
- (let ((prefix " DEFT ")
+ (let ((prefix " RO ")
(primary "Notes")
(filter (if deft-filter-regexp
(deft-whole-filter-regexp) "<filter>"))
(matches (if deft-filter-regexp
(format "%d matches" (length deft-current-files))
(format "%d notes" (length deft-all-files)))))
- (nano-modeline-compose " DEFT "
- primary filter matches)))
+ (nano-modeline-compose prefix primary filter matches)))
;; ---------------------------------------------------------------------
@@ -637,10 +647,13 @@ Modeline is composed as:
((nano-modeline-mu4e-dashboard-mode-p)
(nano-modeline-mu4e-dashboard-mode))
((nano-modeline-mu4e-main-mode-p) (nano-modeline-mu4e-main-mode))
((nano-modeline-mu4e-headers-mode-p)
(nano-modeline-mu4e-headers-mode))
- ;; ((nano-modeline-mu4e-view-mode-p)
(nano-modeline-mu4e-view-mode))
+ ((nano-modeline-mu4e-view-mode-p) (nano-modeline-mu4e-view-mode))
((nano-modeline-text-mode-p) (nano-modeline-default-mode))
((nano-modeline-pdf-view-mode-p) (nano-modeline-pdf-view-mode))
((nano-modeline-docview-mode-p) (nano-modeline-docview-mode))
+
+;; ((nano-modeline-buffer-menu-mode-p)
(nano-modeline-buffer-menu-mode))
+
((nano-modeline-completion-list-mode-p)
(nano-modeline-completion-list-mode))
((nano-modeline-nano-help-mode-p) (nano-modeline-nano-help-mode))
(t
(nano-modeline-default-mode)))))))
@@ -655,4 +668,6 @@ Modeline is composed as:
(add-hook 'post-command-hook
(lambda () (setq nano-modeline--selected-window (selected-window))))
+(nano-modeline)
+
(provide 'nano-modeline)
- [elpa] branch externals/nano-modeline created (now 8052795), ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 57c59a8 03/24: Fixed N Λ N O spelling, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 42f172f 01/24: Initial import, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 8b049b8 02/24: Added installation and usage instructions, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline c574429 07/24: Added screenshots, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 992acf6 10/24: Merge pull request #2 from vllur/patch-1, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 3bfc046 11/24: Added buffer menu mode,
ELPA Syncer <=
- [elpa] externals/nano-modeline 5036cd2 08/24: Added screenshots for some modes, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline b572986 09/24: Fixed modeline display in HTML files in web-mode, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 5690ea3 06/24: Added screenshots, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 53d327a 13/24: Fix incompatibilities with mu4e > 1.6.5, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 5edeac2 22/24: Typo, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 9d5290a 14/24: Merge pull request #4 from seblemaguer/fix-mu4e, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline ac0b497 15/24: Cleanup code, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline c3c6f4c 17/24: Fix mu4e modeline and added user mode, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline 0c94fc8 20/24: Linting, ELPA Syncer, 2021/10/06
- [elpa] externals/nano-modeline d6cb2a6 23/24: Linting + bugfix (mu4e), ELPA Syncer, 2021/10/06