diff options
| author | Arun Isaac | 2022-03-15 15:04:02 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-15 15:04:02 +0530 |
| commit | 05a792a120227f9ce294866dfd1494e059968335 (patch) | |
| tree | 1332d55d47b03043893c62a6b4b7110e2b18dcda /tissue/web.scm | |
| parent | 496911486cf83dfab47dba96315544ac6484df22 (diff) | |
| download | tissue-05a792a120227f9ce294866dfd1494e059968335.tar.gz tissue-05a792a120227f9ce294866dfd1494e059968335.tar.lz tissue-05a792a120227f9ce294866dfd1494e059968335.zip | |
tissue: Use more specific &issue-file-not-found-error.
* bin/tissue: Do not import (rnrs conditions). Import (tissue
conditions).
(tissue-edit, tissue-show): Raise &issue-file-not-found-error instead
of &message-condition.
(print-usage): Handle &issue-file-not-found-error instead of
&message-condition.
* tissue/web.scm: Do not import (rnrs exceptions). Import (tissue
conditions).
(build-website): Raise &issue-file-not-found-error instead of
&message-condition.
Diffstat (limited to 'tissue/web.scm')
| -rw-r--r-- | tissue/web.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tissue/web.scm b/tissue/web.scm index 79568e6..92d33a6 100644 --- a/tissue/web.scm +++ b/tissue/web.scm @@ -17,6 +17,7 @@ ;;; along with tissue. If not, see <https://www.gnu.org/licenses/>. (define-module (tissue web) + #:use-module (rnrs exceptions) #:use-module (rnrs io ports) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) @@ -31,6 +32,7 @@ #:use-module (skribilo utils keywords) #:use-module (skribilo writer) #:use-module (sxml simple) + #:use-module (tissue conditions) #:use-module (tissue issue) #:use-module (tissue utils) #:export (issue-listing @@ -245,8 +247,7 @@ issue listings are not generated." 'gemtext) ((string-suffix? ".skb" input-file) 'skribe))))))) - (raise (make-message-condition - (string-append "No such file or directory: " input-file)))) + (raise (issue-file-not-found-error input-file))) (find-engine 'html))) (copy-file input-file output-file)))))) rcons get-line port)) |