summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorClément Lassieur <clement.lassieur@parrot.com>2019-01-08 17:39:30 +0100
committerClément Lassieur <clement.lassieur@parrot.com>2019-01-08 17:39:30 +0100
commit7aef8eec9a76c324e279379fd99e2b3d0c981e4b (patch)
tree2f800c71f7eecb6a6e6ed4df6fe88551e4cce99f
parent1bd9a7d4e4d50e69a952ff1ec37bee7e9839fc76 (diff)
downloadpackages-7aef8eec9a76c324e279379fd99e2b3d0c981e4b.tar.gz
oe-pull: allow to specify a commit
-rw-r--r--oe/oe-guix.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/oe/oe-guix.el b/oe/oe-guix.el
index c5d08e2..ddce445 100644
--- a/oe/oe-guix.el
+++ b/oe/oe-guix.el
@@ -80,8 +80,10 @@ reconfigure')")
(oe-git-pull oe-conf)
(oe-git-pull oe-packages)))
-(defun %oe-pull ()
- (list (format "guix pull --url=%s" oe-pull-url)))
+(defun %oe-pull (&optional commit)
+ (if commit
+ (list (format "guix pull --url=%s --commit=%s" oe-pull-url commit))
+ (list (format "guix pull --url=%s" oe-pull-url))))
(defun %oe-manifest ()
(list (format "guix package -m %s" oe-manifest)))
@@ -126,8 +128,9 @@ reconfigure')")
(defun oe-pull (host)
(interactive)
- (oe-run-cmds (format "%s-pull" host) host
- (%oe-pull)))
+ (let ((commit (read-from-minibuffer "commit: ")))
+ (oe-run-cmds (format "%s-pull" host) host
+ (if (string= commit "") (%oe-pull) (%oe-pull commit)))))
(defun oe-manifest (host)
(interactive)