diff options
Diffstat (limited to 'haunt/publisher/sourcehut.scm')
-rw-r--r-- | haunt/publisher/sourcehut.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/haunt/publisher/sourcehut.scm b/haunt/publisher/sourcehut.scm index 035d399..55059ca 100644 --- a/haunt/publisher/sourcehut.scm +++ b/haunt/publisher/sourcehut.scm @@ -30,11 +30,11 @@ (define* (sourcehut-publisher #:key (name %default-publisher-name) - ;; TODO: Factor out some helper for this. - (hut (if (file-exists? %hut) %hut "hut")) - (tar (if (file-exists? %tar) %tar "tar"))) + (hut %hut) + (tar %tar)) "Return a new publisher named NAME that publishes a site to -Sourcehut pages." +Sourcehut pages. Passing RSYNC and/or TAR overrides the default +executables used." (define (publish site) (let ((tarball (string-append (or (getenv "TMPDIR") "/tmp") "/haunt-publish-sourcehut-" |