me/guix
Archived
1
0
Fork 0
Code Activity

emacs: list: Add 'guix-list-mode-initialize'.

Browse source 
* emacs/guix-list.el (guix-list-mode-initialize): New procedure.
  (guix-list-define-entry-type): Use it.
This commit is contained in:
Alex Kost 2015-11-19 16:43:10 +03:00
parent 649df66705
commit 78fdbdc033
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
emacs/guix-list.el
View file

@ -429,6 +429,8 @@ Same as `tabulated-list-sort', but also restore marks after sorting."
(guix-list-restore-marks)) (guix-list-restore-marks))
;;; Major mode and interface definer
(defvar guix-list-mode-map (defvar guix-list-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(set-keymap-parent (set-keymap-parent
@ -442,11 +444,18 @@ Same as `tabulated-list-sort', but also restore marks after sorting."
(define-key map (kbd "DEL") 'guix-list-unmark-backward) (define-key map (kbd "DEL") 'guix-list-unmark-backward)
(define-key map [remap tabulated-list-sort] 'guix-list-sort) (define-key map [remap tabulated-list-sort] 'guix-list-sort)
map) map)
"Parent keymap for list buffers.") "Keymap for `guix-list-mode' buffers.")
(define-derived-mode guix-list-mode tabulated-list-mode "Guix-List" (define-derived-mode guix-list-mode tabulated-list-mode "Guix-List"
"Parent mode for displaying information in list buffers." "Parent mode for displaying data in 'list' form.")
(setq tabulated-list-padding 2))
(defun guix-list-mode-initialize (entry-type)
"Set up the current 'list' buffer for displaying ENTRY-TYPE entries."
(setq tabulated-list-padding 2
tabulated-list-format (guix-list-tabulated-format entry-type)
tabulated-list-sort-key (guix-list-tabulated-sort-key entry-type))
(setq-local guix-list-marks (guix-list-marks entry-type))
(tabulated-list-init-header))
(defmacro guix-list-define-entry-type (entry-type &rest args) (defmacro guix-list-define-entry-type (entry-type &rest args)
"Define common stuff for displaying ENTRY-TYPE entries in list buffers. "Define common stuff for displaying ENTRY-TYPE entries in list buffers.
@ -515,12 +524,7 @@ See also `guix-list-describe'."
(defun ,init-fun () (defun ,init-fun ()
,(concat "Initial settings for `" mode-str "'.") ,(concat "Initial settings for `" mode-str "'.")
(setq tabulated-list-sort-key (guix-list-tabulated-sort-key (guix-list-mode-initialize ',entry-type))
',entry-type)
tabulated-list-format (guix-list-tabulated-format
',entry-type))
(setq-local guix-list-marks (guix-list-marks ',entry-type))
(tabulated-list-init-header))
(guix-alist-put! (guix-alist-put!
'((describe . ,describe-var) '((describe . ,describe-var)