ambrevar/guix: Fix compile error.

master
Pierre Neidhardt 2020-12-26 10:21:30 +01:00
parent 62ad7c3ac6
commit 17c30e0903
1 changed files with 5 additions and 3 deletions

View File

@ -2,7 +2,8 @@
(:documentation "Guix helpers.")
(:use #:common-lisp)
(:use #:trivia)
(:import-from #:serapeum #:export-always))
(:import-from #:serapeum #:export-always)
(:import-from #:ambrevar/shell))
(in-package #:ambrevar/guix)
(eval-when (:compile-toplevel :load-toplevel :execute)
(trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
@ -34,8 +35,9 @@
(export-always 'publish)
(defun publish ()
(error "TODO: Implement `sudo guix publish'...")
(uiop:run-program `("guix" "publish" "--advertise"
,(str:concat "--user=" (uiop:getenv "USER")))))
;; (uiop:run-program `("guix" "publish" "--advertise"
;; ,(str:concat "--user=" (uiop:getenv "USER"))))
)
(export-always 'setup-all)
(defun setup-all ()