nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: Use "cl-list*" instead of "apply #'list". 

* emacs/guix-command.el (guix-run-view-build-log): Use cl-list*.
  (guix-run-view-size-map): Likewise.
* emacs/guix-external.el (guix-dot-arguments): Likewise.
This commit is contained in:
Alex Kost 2015-11-17 21:59:41 +03:00
parent b989390889
commit 778437ed9f
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
emacs/guix-command.el
View File

@ -690,7 +690,7 @@ Perform pull-specific actions after operation, see
open the log file(s)." open the log file(s)."
(let* ((args (if (member "--log-file" args) (let* ((args (if (member "--log-file" args)
args args
(apply #'list (car args) "--log-file" (cdr args)))) (cl-list* (car args) "--log-file" (cdr args))))
(output (guix-command-output args)) (output (guix-command-output args))
(files (split-string output "\n" t))) (files (split-string output "\n" t)))
(dolist (file files) (dolist (file files)
@ -715,10 +715,9 @@ open the log file(s)."
(map-file (or wished-map-file (guix-png-file-name))) (map-file (or wished-map-file (guix-png-file-name)))
(args (if wished-map-file (args (if wished-map-file
args args
(apply #'list (cl-list* (car args)
(car args) (concat "--map-file=" map-file)
(concat "--map-file=" map-file) (cdr args)))))
(cdr args)))))
(guix-command-output args) (guix-command-output args)
(guix-find-file map-file))) (guix-find-file map-file)))

8
emacs/guix-external.el
View File

@ -23,6 +23,7 @@
;;; Code: ;;; Code:
(require 'cl-lib)
(require 'guix-config) (require 'guix-config)
(defgroup guix-external nil (defgroup guix-external nil
@ -67,10 +68,9 @@ If ARGS is nil, use `guix-dot-default-arguments'."
(or guix-dot-program (or guix-dot-program
(error (concat "Couldn't find 'dot'.\n" (error (concat "Couldn't find 'dot'.\n"
"Set guix-dot-program to a proper value"))) "Set guix-dot-program to a proper value")))
(apply #'list (cl-list* guix-dot-program
guix-dot-program (concat "-o" output-file)
(concat "-o" output-file) (or args guix-dot-default-arguments)))
(or args guix-dot-default-arguments)))
(defun guix-dot-file-name () (defun guix-dot-file-name ()
"Call `guix-dot-file-name-function'." "Call `guix-dot-file-name-function'."