diff options
Diffstat (limited to 'haunt')
-rw-r--r-- | haunt/publisher/rsync.scm | 6 | ||||
-rw-r--r-- | haunt/publisher/sourcehut.scm | 8 |
2 files changed, 5 insertions, 9 deletions
diff --git a/haunt/publisher/rsync.scm b/haunt/publisher/rsync.scm index 76461f4..4498012 100644 --- a/haunt/publisher/rsync.scm +++ b/haunt/publisher/rsync.scm @@ -36,11 +36,7 @@ (define* (rsync-publisher #:key destination user host (name %default-publisher-name) (flags %default-rsync-flags) - ;; Attempt to use the rsync found at - ;; configure time, but if something wacky is - ;; going on then try to use whatever rsync - ;; might be on $PATH. - (rsync (if (file-exists? %rsync) %rsync "rsync"))) + (rsync %rsync)) "Return a new publisher named NAME that publishes a site to DESTINATION, either locally or to a remote host if HOST and/or USER arguments are specified. Passing RSYNC overrides the default rsync 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-" |