summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-12-07 11:57:56 +0300
committerAlex Kost <alezost@gmail.com>2015-12-09 19:54:19 +0300
commitdcb00c0ad5f33d76dc4cac03ba6f7f8568ddfc57 (patch)
tree700f36a11be7f649fd2d6ceedde810f3aa1eca3d /emacs
parentd7a58c60d6e167d0fb0661afdbc3450476db10cb (diff)
downloadpatches-dcb00c0ad5f33d76dc4cac03ba6f7f8568ddfc57.tar
patches-dcb00c0ad5f33d76dc4cac03ba6f7f8568ddfc57.tar.gz
emacs: Add 'guix-build-log-find-file'.
* emacs/guix-build-log.el (guix-build-log-find-file): New procedure. * emacs/guix-command.el (guix-run-view-build-log): Use it.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-build-log.el7
-rw-r--r--emacs/guix-command.el4
2 files changed, 9 insertions, 2 deletions
diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el
index 3f78121a90..e08a88f6cc 100644
--- a/emacs/guix-build-log.el
+++ b/emacs/guix-build-log.el
@@ -24,6 +24,8 @@
;;; Code:
+(require 'guix-utils)
+
(defgroup guix-build-log nil
"Settings for `guix-build-log-mode'."
:group 'guix)
@@ -359,6 +361,11 @@ programmatically using hooks:
(when guix-build-log-minor-mode-activate
(guix-build-log-minor-mode)))
+(defun guix-build-log-find-file (file-or-url)
+ "Open FILE-OR-URL in `guix-build-log-mode'."
+ (guix-find-file-or-url file-or-url)
+ (guix-build-log-mode))
+
;;;###autoload
(add-to-list 'auto-mode-alist
;; Regexp for log files (usually placed in /var/log/guix/...)
diff --git a/emacs/guix-command.el b/emacs/guix-command.el
index 7e924d80f0..ddd3dd536e 100644
--- a/emacs/guix-command.el
+++ b/emacs/guix-command.el
@@ -65,6 +65,7 @@
(require 'guix-help-vars)
(require 'guix-read)
(require 'guix-base)
+(require 'guix-build-log)
(require 'guix-guile)
(require 'guix-external)
@@ -692,8 +693,7 @@ open the log file(s)."
(output (guix-command-output args))
(files (split-string output "\n" t)))
(dolist (file files)
- (guix-find-file-or-url file)
- (guix-build-log-mode))))
+ (guix-build-log-find-file file))))
(defun guix-run-view-graph (args)
"Run 'guix ARGS ...' graph command, make the image and open it."