summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--eshell-conf.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/eshell-conf.el b/eshell-conf.el
index ba14746..6e1b545 100644
--- a/eshell-conf.el
+++ b/eshell-conf.el
@@ -574,6 +574,7 @@ on `args'."
(?f "format" t image-format "Which image format to output")
(?r "remove" nil removep "Whether to remove images or not")
(?R "remove-all" nil remove-allp "Whether to remove images and sources or not")
+ (?d "root" t dir "Set the directory that contains the output directory")
:usage "[-f format] [-r|-R] [graphviz file names...]
This little command can perform two tasks:
@@ -585,15 +586,16 @@ The file names should not include any extension."
:parse-leading-options-only
:show-usage)
(let ((removep (cond (remove-allp 'all) (removep))))
- (eshell-gv image-format removep args))))
+ (eshell-gv image-format removep dir args))))
(require 'vc)
-(defun eshell-gv (image-format removep &rest args)
+(defun eshell-gv (image-format removep dir &rest args)
"Internal function for `eshell/gv'."
(let ((args (car args))
(image-format (cond (image-format) ("png")))
- (root-dir (expand-file-name "output" (vc-root-dir))))
+ (root-dir
+ (expand-file-name "output" (cond (dir) ((vc-root-dir))))))
(cond
(removep
(mapc