;Generates a new article page.
""        :ident
""        :title
""        :subtitle
timestamp :ts
false     :valid-id

(
  (str) expect first :ident
  ident "^[a-z0-9-]+$" match? :valid-regexp
  (pwd "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

"-----\nid: $1\ntitle: \"$2\"\nsubtitle: \"$3\"\ncontent-type: article\ntimestamp: $4\n-----\n\n" (ident title subtitle ts) =% :metadata

("Create article?" confirm) 
  (
    (ident ".md") => "" join :fn 
    (pwd "contents" "articles" fn) => "/" join :path
    metadata path fwrite
  ) 
when