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