summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue36
1 files changed, 19 insertions, 17 deletions
diff --git a/bin/tissue b/bin/tissue
index 566a6ea..f323e20 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -355,7 +355,7 @@ Show the text of issue #ISSUE-NUMBER.
(memoize-thunk
(lambda ()
"Load configuration and return <tissue-configuration> object."
- (load (string-append (git-top-level) "/tissue.scm")))))
+ (load (canonicalize-path "tissue.scm")))))
(define tissue-repl
(match-lambda*
@@ -393,7 +393,7 @@ Export the repository as a website to OUTPUT-DIRECTORY.
(parameterize ((%project-name (tissue-configuration-project (load-config)))
(%tags-path (tissue-configuration-web-tags-path
(load-config))))
- (build-website (git-top-level)
+ (build-website (getcwd)
output-directory
(tissue-configuration-web-css (load-config))
(tissue-configuration-web-files (load-config)))))))
@@ -428,21 +428,23 @@ To get usage information for one of these sub-commands, run
(current-error-port))
(newline (current-error-port))
(exit #f)))
- (parameterize ((%issue-files (tissue-configuration-issue-files (load-config)))
- (%aliases (tissue-configuration-aliases (load-config))))
- (apply (match command
- ("news" tissue-news)
- ("list" tissue-list)
- ("edit" tissue-edit)
- ("show" tissue-show)
- ("repl" tissue-repl)
- ("web" tissue-web)
- (invalid-command
- (format (current-error-port) "Invalid command `~a'~%~%"
- invalid-command)
- (print-usage)
- (exit #f)))
- args))))
+ (call-with-current-directory (git-top-level)
+ (lambda ()
+ (parameterize ((%issue-files (tissue-configuration-issue-files (load-config)))
+ (%aliases (tissue-configuration-aliases (load-config))))
+ (apply (match command
+ ("news" tissue-news)
+ ("list" tissue-list)
+ ("edit" tissue-edit)
+ ("show" tissue-show)
+ ("repl" tissue-repl)
+ ("web" tissue-web)
+ (invalid-command
+ (format (current-error-port) "Invalid command `~a'~%~%"
+ invalid-command)
+ (print-usage)
+ (exit #f)))
+ args))))))
;; tissue is an alias for `tissue list'
((_)
(main "tissue" "list"))))