summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorClément Lassieur <clement.lassieur@parrot.com>2019-01-08 17:45:18 +0100
committerClément Lassieur <clement.lassieur@parrot.com>2019-01-08 17:45:18 +0100
commit25f928d75ed637ea21a9ec43f6743905cd62be05 (patch)
tree2388d65797cfac95d7810548e745928c0ded6fdb
parent7aef8eec9a76c324e279379fd99e2b3d0c981e4b (diff)
downloadpackages-25f928d75ed637ea21a9ec43f6743905cd62be05.tar.gz
introduce oe-copy
-rw-r--r--oe/oe-guix.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/oe/oe-guix.el b/oe/oe-guix.el
index ddce445..c708a0e 100644
--- a/oe/oe-guix.el
+++ b/oe/oe-guix.el
@@ -85,6 +85,10 @@ reconfigure')")
(list (format "guix pull --url=%s --commit=%s" oe-pull-url commit))
(list (format "guix pull --url=%s" oe-pull-url))))
+(defun %oe-copy (host)
+ (list (format "guix copy --to=%s `readlink -f ~/.config/guix/current`"
+ host)))
+
(defun %oe-manifest ()
(list (format "guix package -m %s" oe-manifest)))
@@ -132,6 +136,11 @@ reconfigure')")
(oe-run-cmds (format "%s-pull" host) host
(if (string= commit "") (%oe-pull) (%oe-pull commit)))))
+(defun oe-copy (host)
+ (interactive)
+ (oe-run-cmds (format "%s-copy" host) "localhost"
+ (%oe-copy host)))
+
(defun oe-manifest (host)
(interactive)
(oe-run-cmds (format "%s-manifest" host) host
@@ -215,6 +224,7 @@ reconfigure')")
(?K "clean & make" (lambda () (interactive) (oe-make ,host t)))
(?m "manifest" (lambda () (interactive) (oe-manifest ,host)))
(?p "pull" (lambda () (interactive) (oe-pull ,host)))
+ (?P "copy profile" (lambda () (interactive) (oe-copy ,host)))
(?f "fetch" (lambda () (interactive) (oe-fetch ,host)))
(?r "reconfigure" (lambda () (interactive) (oe-reconfigure ,host)))
(?C "cleanup Cuirass" (lambda () (interactive) (oe-cleanup-cuirass ,host)))))