 |
articles.lisp - cl-yag - Common Lisp Yet Another website Generator |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
articles.lisp (3537B) |
|
--- |
|
1 ;; MIND: The tilde character "~" must be escaped like this '~~' to use i… |
|
2 |
|
3 |
|
4 ;; Define Your Webpage |
|
5 |
|
6 (defvar *config* |
|
7 (list |
|
8 :webmaster "Your autor name here" |
|
9 :title "Your website's title." |
|
10 :description "Yet another website on the net" |
|
11 :url "https://my.website/~~user/" ;; the trailing … |
|
12 :rss-item-number 10 ;; limit total a… |
|
13 :date-format "%DayNumber %MonthName %Year" ;; format for da… |
|
14 :default-converter :markdown2 |
|
15 :html t ;; 't' to enable… |
|
16 :gopher t ;; 't' to enable… |
|
17 :gemini t ;; 't' to enable… |
|
18 :gemini-path "gemini://perso.pw/blog/" ;; absolute path… |
|
19 :gemini-index "index.md" ;; filename of i… |
|
20 :gopher-path "/user" ;; absolute path… |
|
21 :gopher-server "my.website" ;; hostname of t… |
|
22 :gopher-port "70" ;; tcp port of t… |
|
23 :gopher-format "[~d|~a|~a|~a|~a]~%" ;; menu format (… |
|
24 :gopher-index "index.gph" ;; menu file (… |
|
25 ;; :gopher-format "~d~a ~a ~a ~a~%" ;; menu fo… |
|
26 ;; :gopher-index "gophermap" ;; menu file (go… |
|
27 )) |
|
28 |
|
29 |
|
30 (converter :name :markdown :extension ".md" :command "peg-markdown -t … |
|
31 (converter :name :markdown2 :extension ".md" :command "multimarkdown -t… |
|
32 (converter :name :org-mode :extension ".org" |
|
33 :command (concatenate 'string |
|
34 "emacs data/%IN --batch --eval '(with-t… |
|
35 "(insert-file \"%IN\") (org-html-export… |
|
36 "(princ (buffer-string)))' --kill | tee… |
|
37 |
|
38 ;; Define your articles and their display-order on the website below. |
|
39 ;; Display Order is 'lifo', i.e. the top entry in this list gets display… |
|
40 ;; |
|
41 ;; An Example Of A Minimal Definition: |
|
42 ;; (post :id "4" :date "2015-12-31" :title "Happy new year" :tag "news") |
|
43 |
|
44 ;; An Example Of A Definitions With Options: |
|
45 ;; (post :id "4" :date "2015-05-04" :title "The article title" :tag "new… |
|
46 ;; |
|
47 ;; A Note On Keywords: |
|
48 ;; :author can be omitted. If so, it's value gets replaced by the val… |
|
49 ;; :tiny can be omitted. If so, the article's full text gets displa… |
|
50 |
|
51 |
|
52 (post :title "test" |
|
53 :id "t" :date "20171214" :tag "cl-yag" :converter :org-mode) |
|
54 |
|
55 ;; CSS |
|
56 (post :title "CSS For cl-yag" |
|
57 :id "css" :date "20171202" :tag "cl-yag" |
|
58 :author "lambda" :tiny "Read more") |
|
59 |
|
60 ;; README |
|
61 (post :title "README" |
|
62 :id "README" :date "20171202" :tag "cl-yag" |
|
63 :author "lambda" :tiny "Read cl-yag's README") |
|
64 |
|
65 ;; 1 |
|
66 (post :title "My first post" |
|
67 :id "1" :date "20160429" :tag "pony" |
|
68 :tiny "This is the first message" :author "Solène") |
