summaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-11-02 13:50:27 +0300
committerAlex Kost <alezost@gmail.com>2014-11-04 15:51:21 +0300
commit62f261d88cb737f9f3f3d2fffacc7d2b5a599d80 (patch)
tree0d4d09d77c1ae989b02ae0094cefd389cf97babc /emacs/guix-base.el
parent6f7f24092f77b5ee8325eb7849cde80253abe645 (diff)
emacs: Improve minibuffer messages.
* emacs/guix-base.el (guix-messages, guix-result-message): Move to 'guix-messages.el'. (guix-set-buffer, guix-history-call, guix-redisplay-buffer): Adjust for the modified 'guix-result-message'. * emacs/guix-messages.el: New file. (guix-redisplay-buffer): Add 'profile' argument. (guix-message-string-name, guix-message-string-entry-type, guix-message-string-entries, guix-message-packages-by-name, guix-message-generations-by-time): New procedures.
Diffstat (limited to 'emacs/guix-base.el')
-rw-r--r--emacs/guix-base.el113
1 files changed, 7 insertions, 106 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index 9583d49262..eb88f37140 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -30,6 +30,8 @@
(require 'cl-lib)
(require 'guix-backend)
(require 'guix-utils)
+(require 'guix-history)
+(require 'guix-messages)
;;; Profiles
@@ -565,7 +567,8 @@ If NO-DISPLAY is non-nil, do not switch to the buffer."
(guix-make-history-item)))
(or no-display
(guix-switch-to-buffer buf))))
- (guix-result-message entries entry-type search-type search-vals))
+ (guix-result-message profile entries entry-type
+ search-type search-vals))
(defun guix-show-entries (entries buffer-type entry-type)
"Display ENTRY-TYPE ENTRIES in the current BUFFER-TYPE buffer."
@@ -583,7 +586,8 @@ If NO-DISPLAY is non-nil, do not switch to the buffer."
(guix-show-entries entries buffer-type entry-type)
(guix-set-vars profile entries buffer-type entry-type
search-type search-vals)
- (guix-result-message entries entry-type search-type search-vals))
+ (guix-result-message profile entries entry-type
+ search-type search-vals))
(defun guix-make-history-item ()
"Make and return a history item for the current buffer."
@@ -642,113 +646,10 @@ This function will not update the information, use
\"\\[revert-buffer]\" if you want the full update."
(interactive)
(guix-show-entries guix-entries guix-buffer-type guix-entry-type)
- (guix-result-message guix-entries guix-entry-type
+ (guix-result-message guix-profile guix-entries guix-entry-type
guix-search-type guix-search-vals))
-;;; Messages
-
-(defvar guix-messages
- '((package
- (id
- (0 "Packages not found.")
- (1 "")
- (many "%d packages." count))
- (name
- (0 "The package '%s' not found." val)
- (1 "A single package with name '%s'." val)
- (many "%d packages with '%s' name." count val))
- (regexp
- (0 "No packages matching '%s'." val)
- (1 "A single package matching '%s'." val)
- (many "%d packages matching '%s'." count val))
- (all-available
- (0 "No packages are available for some reason.")
- (1 "A single available package (that's strange).")
- (many "%d available packages." count))
- (newest-available
- (0 "No packages are available for some reason.")
- (1 "A single newest available package (that's strange).")
- (many "%d newest available packages." count))
- (installed
- (0 "No installed packages.")
- (1 "A single package installed.")
- (many "%d packages installed." count))
- (obsolete
- (0 "No obsolete packages.")
- (1 "A single obsolete package.")
- (many "%d obsolete packages." count))
- (generation
- (0 "No packages installed in generation %d." val)
- (1 "A single package installed in generation %d." val)
- (many "%d packages installed in generation %d." count val)))
- (output
- (id
- (0 "Package outputs not found.")
- (1 "")
- (many "%d package outputs." count))
- (name
- (0 "The package output '%s' not found." val)
- (1 "A single package output with name '%s'." val)
- (many "%d package outputs with '%s' name." count val))
- (regexp
- (0 "No package outputs matching '%s'." val)
- (1 "A single package output matching '%s'." val)
- (many "%d package outputs matching '%s'." count val))
- (all-available
- (0 "No package outputs are available for some reason.")
- (1 "A single available package output (that's strange).")
- (many "%d available package outputs." count))
- (newest-available
- (0 "No package outputs are available for some reason.")
- (1 "A single newest available package output (that's strange).")
- (many "%d newest available package outputs." count))
- (installed
- (0 "No installed package outputs.")
- (1 "A single package output installed.")
- (many "%d package outputs installed." count))
- (obsolete
- (0 "No obsolete package outputs.")
- (1 "A single obsolete package output.")
- (many "%d obsolete package outputs." count))
- (generation
- (0 "No package outputs installed in generation %d." val)
- (1 "A single package output installed in generation %d." val)
- (many "%d package outputs installed in generation %d." count val)))
- (generation
- (id
- (0 "Generations not found.")
- (1 "")
- (many "%d generations." count))
- (last
- (0 "No available generations.")
- (1 "The last generation.")
- (many "%d last generations." count))
- (all
- (0 "No available generations.")
- (1 "A single available generation.")
- (many "%d available generations." count))
- (time
- (0 "Generations not found.")
- (1 "A single generation matching time period.")
- (many "%d generations matching time period." count)))))
-
-(defun guix-result-message (entries entry-type search-type search-vals)
- "Display an appropriate message after displaying ENTRIES."
- (let* ((val (car search-vals))
- (count (length entries))
- (count-key (if (> count 1) 'many count))
- (msg-spec (guix-get-key-val guix-messages
- entry-type search-type count-key))
- (format (car msg-spec))
- (args (cdr msg-spec)))
- (mapc (lambda (subst)
- (setq args (cl-substitute (car subst) (cdr subst) args)))
- (list (cons count 'count)
- (cons val 'val)))
- (apply #'message format args)))
-
-
;;; Actions on packages and generations
(defface guix-operation-option-key