From 007d37341eba4185bcf9538b4111b7cd79c98e73 Mon Sep 17 00:00:00 2001 From: haskal Date: Thu, 14 May 2020 16:42:01 -0400 Subject: [PATCH] hmm we should have drafts probably --- scripts/init | 1 + scripts/new-post | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/scripts/init b/scripts/init index 70c7996..5a03af7 100755 --- a/scripts/init +++ b/scripts/init @@ -56,6 +56,7 @@ (with-output-to-file "src/style.sass" (lambda () (write-string "// styles go here :P") (void))) (make-directory "src/posts") +(make-directory "src/drafts") (make-directory "public") (make-directory "public/posts") diff --git a/scripts/new-post b/scripts/new-post index bb886da..1ad9e98 100755 --- a/scripts/new-post +++ b/scripts/new-post @@ -16,7 +16,7 @@ (format "~a-~a-~a-~a.md" (date-year now) (~r (date-month now) #:min-width 2 #:pad-string "0") (~r (date-day now) #:min-width 2 #:pad-string "0") filename-part)) - (define path (build-path "src" "posts" filename)) + (define path (build-path "src" "drafts" filename)) (if (or (file-exists? path) (link-exists? path) (directory-exists? path)) (displayln "file already exists") (with-output-to-file