M scripts/article.min → scripts/article.min

@@ -13,11 +13,12 @@ filelist (filename "(.+)\..+$" search 1 get) map ident in? not :valid-file
   valid-regexp valid-file and
 ) ^validate
 
-
 (valid-id not) (
   "ID" ask @ident
   ident validate @valid-id
-  (valid-id not) ("ID must not be already used and it must contain only lowercase letters, numbers, or -" warn) when
+  (valid-id not) 
+    ("ID must not be already used and it must contain only lowercase letters, numbers, or -" warn) 
+  when
 ) while
 
 "Title" ask @title
@@ -31,13 +32,12 @@ content-type: article
 timestamp: $4
 -----
 
-<hr />
-" (ident title subtitle ts) => % :metadata
+" (ident title subtitle ts) =% :metadata
 
-metadata puts!
 ("Create article?" confirm) 
-(
-  (ident ".md") => "" join :fn 
-  (. "contents" "articles" fn) => "/" join :path
-  metadata path fwrite
-) when
+  (
+    (ident ".md") => "" join :fn 
+    (. "contents" "articles" fn) => "/" join :path
+    metadata path fwrite
+  ) 
+when

M scripts/project.min → scripts/project.min

@@ -25,7 +25,7 @@ 
 "Title"     ask @title
 "Subtitle"  ask @subtitle
 "Summary"   ask @summary
-"version"   ask @release
+"Version"   ask @release
 
 "-----
 id: $1
@@ -41,7 +41,6 @@ download: \"https://github.com/h3rald/$1/releases/download/\"
 -----
 " (ident title subtitle summary release) =% :metadata
 
-metadata puts!
 ("Create project?" confirm) 
 (
   (ident ".md") => "" join :fn