;Creates a new empty page.
""      :ident
""      :title
false   :valid-id

(
  (str) expect first :ident
  ident "^[a-z0-9-]+$" match? :valid-regexp
  (sys.pwd "contents") => "/" join sys.ls :filelist
  filelist (fs.filename "(.+)\\..+$" search 1 get) map ident in? not :valid-file
  valid-regexp valid-file and
) ^validate


(valid-id not) (
  "ID" io.ask @ident
  ident validate @valid-id
  (valid-id not) ("ID must not be already used and it must contain only lowercase letters, numbers, or -" io.warn!) when
) while

"Title" io.ask @title

"-----\nid: $1\ntitle: \"$2\"\ncontent-type: page\n-----\n\n" (ident title) => % :metadata

metadata puts!
("Create page?" io.confirm) 
(
  (ident ".md") => "" join :fn 
  (sys.pwd "contents") => "/" join :dirpath
  (dirpath fn) => "/" join :path
  metadata path fs.write
) when