A scripts/article.min

@@ -0,0 +1,40 @@ 
+""        :ident
+""        :title
+""        :subtitle
+timestamp :ts
+false     :valid-id
+
+(
+  (string) expect first :ident
+  ident "^[a-z0-9-]+$" match :valid-regexp
+  (. "contents" "articles") => "/" join ls =filelist
+  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
+) while
+
+"Title" ask @title
+"Subtitle" ask @subtitle
+
+"-----
+id: $1
+title: \"$2\"
+subtitle: \"$3\"
+content-type: article
+timestamp: $4
+-----
+" (ident title subtitle ts) => % :metadata
+
+metadata puts
+("Create article?" confirm) 
+(
+  (ident ".md") => "" join :fn 
+  (. "contents" "articles" fn) => "/" join :path
+  metadata path fwrite
+) when

A scripts/project.min

@@ -0,0 +1,48 @@ 
+""        :ident
+""        :title
+""        :subtitle
+""        :summary
+false     :github
+""        :release
+false     :valid-id
+
+(
+  (string) expect first :ident
+  ident "^[a-z0-9-]+$" match :valid-regexp
+  (. "contents") => "/" join ls =filelist
+  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
+) while
+
+"Title"     ask @title
+"Subtitle"  ask @subtitle
+"Summary"   ask @summary
+"version"   ask @release
+
+"-----
+id: $1
+github: $1
+home: /$1/
+title: \"$2\"
+subtitle: \"$3\"
+content-type: project
+active: true
+version: $4
+download: \"https://github.com/h3rald/$1/releases/download/\"
+-----
+" (ident title subtitle release) => % :metadata
+
+metadata puts
+("Create project?" confirm) 
+(
+  (ident ".md") => "" join :fn 
+  (. "contents" fn) => "/" join :path
+  metadata path fwrite
+) when