[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

20/37: emacs: Add wrappers for 'history-size' and 'revert-confirm'.

From: Alex Kost
Subject: 20/37: emacs: Add wrappers for 'history-size' and 'revert-confirm'.
Date: Fri, 18 Dec 2015 18:51:28 +0000

alezost pushed a commit to branch wip-refactor-emacs-ui
in repository guix.

commit 1087478d30e61d60cc2e5a0d5a1051e6785aa7c4
Author: Alex Kost <address@hidden>
Date:   Sat Nov 21 12:07:17 2015 +0300

    emacs: Add wrappers for 'history-size' and 'revert-confirm'.
    * emacs/guix-base.el (guix-buffer-history-size): New procedure.
      (guix-buffer-define-interface): Use it in the mode definition.
      (guix-buffer-revert-confirm?): New procedure.
      (guix-revert-buffer): Use it.
 emacs/guix-base.el |   22 ++++++++++++++++++----
 1 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index f75624c..3aaa266 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -275,6 +275,14 @@ This alist is filled by `guix-buffer-define-interface' 
       (guix-symbol-title param)))
+(defun guix-buffer-history-size (buffer-type entry-type)
+  "Return history size for BUFFER-TYPE/ENTRY-TYPE."
+  (guix-buffer-value buffer-type entry-type 'history-size))
+(defun guix-buffer-revert-confirm? (buffer-type entry-type)
+  "Return 'revert-confirm' value for BUFFER-TYPE/ENTRY-TYPE."
+  (guix-buffer-value buffer-type entry-type 'revert-confirm))
 (defvar guix-root-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "l") 'guix-history-back)
@@ -431,13 +439,20 @@ If non-nil, ask to confirm for reverting `%S' buffer."
                  :type 'boolean
                  :group ',group)
+               (guix-alist-put!
+                '((history-size   . ,history-size-var)
+                  (revert-confirm . ,revert-confirm-var))
+                'guix-buffer-data ',buffer-type ',entry-type)
                (define-derived-mode ,mode ,parent-mode
                  ,(concat "Guix-" Buffer-type-str)
                  ,(concat "Major mode for displaying information about "
                           entry-str ".\n\n"
                           "\\{" mode-map-str "}")
                  (setq-local revert-buffer-function 'guix-revert-buffer)
-                 (setq-local guix-history-size ,history-size-var)
+                 (setq-local guix-history-size
+                             (guix-buffer-history-size
+                              ',buffer-type ',entry-type))
                  (and (fboundp ',mode-init-fun) (,mode-init-fun)))))
@@ -574,9 +589,8 @@ If NO-DISPLAY is non-nil, do not switch to the buffer."
 The function is suitable for `revert-buffer-function'.
 See `revert-buffer' for the meaning of NOCONFIRM."
   (when (or noconfirm
-            (symbol-value
-             (guix-get-symbol "revert-no-confirm"
-                              guix-buffer-type guix-entry-type))
+            (guix-buffer-revert-confirm? guix-buffer-type
+                                         guix-entry-type)
             (y-or-n-p "Update current information? "))
     (let* ((search-type guix-search-type)
            (search-vals guix-search-vals)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]