scripts/article.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 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 |