gnu: glade: Use 'glib-or-gtk-build-system'.

[jackhill/guix/guix.git] / emacs / guix-command.el

diff --git a/emacs/guix-command.el b/emacs/guix-command.el
index 9cb7032..7069c51 100644 (file)
--- a/emacs/guix-command.el
+++ b/emacs/guix-command.el
@@ -1,6 +1,6 @@
 ;;; guix-command.el --- Popup interface for guix commands  -*- lexical-binding: t -*-
 
-;; Copyright © 2015 Alex Kost <alezost@gmail.com>
+;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
 
 ;; This file is part of GNU Guix.
 
@@ -176,7 +176,8 @@ to be modified."
   '(("--no-substitutes"  :char ?s)
     ("--no-build-hook"   :char ?h)
     ("--max-silent-time" :char ?x)
-    ("--rounds"          :char ?R :fun read-number)))
+    ("--rounds"          :char ?R :fun read-number)
+    ("--with-input"      :char ?W)))
 
 (defun guix-command-improve-common-build-argument (argument)
   (guix-command-modify-argument-from-alist
@@ -192,6 +193,7 @@ to be modified."
 (guix-command-define-argument-improver
     guix-command-improve-build-argument
   '(("--no-grafts"   :char ?g)
+    ("--file"        :fun guix-read-file-name)
     ("--root"        :fun guix-read-file-name)
     ("--sources"     :char ?S :fun guix-read-source-type :switch? nil)
     ("--with-source" :fun guix-read-file-name)))
@@ -619,7 +621,7 @@ command."
       (("size")
        ,(guix-command-make-argument
          :name "view" :char ?v :doc "View map"))
-      (("system" "dmd-graph") ,graph-arg)
+      (("system" "shepherd-graph") ,graph-arg)
       (("system" "extension-graph") ,graph-arg)))
   "Alist of guix commands and additional 'execute' action arguments.")
 
@@ -645,7 +647,7 @@ command."
      ("view" . guix-run-view-graph))
     (("size")
      ("view" . guix-run-view-size-map))
-    (("system" "dmd-graph")
+    (("system" "shepherd-graph")
      ("view" . guix-run-view-graph))
     (("system" "extension-graph")
      ("view" . guix-run-view-graph)))