Skip to content

Instantly share code, notes, and snippets.

@luxbock
Last active August 29, 2015 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save luxbock/8918050 to your computer and use it in GitHub Desktop.
Save luxbock/8918050 to your computer and use it in GitHub Desktop.
(setq org-publish-project-alist
'(
("incise-org"
:base-directory "~/Development/clojure/incise-org-parser/resources/org/"
:base-extension "org"
:publishing-directory "~/Development/clojure/incise-org-parser/public/"
:recursive t
:publishing-function org-html-publish-to-html
:headline-levels 2
:auto-preamble t)
("incise-static"
:base-directory "~/Development/clojure/incise-org-parser/resources/org/"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
:publishing-directory "~/Development/clojure/incise-org-parser/public/"
:recursive t
:publishing-function org-publish-attachment)
("incise-further"
:base-directory "~/Development/clojure/incise-org-parser/resources/org/"
:base-extension "org"
:publishing-directory "~/Development/clojure/incise-org-parser/org/html/"
:publishing-function org-html-publish-to-html
:headline-levels 2)
("incise"
:components "blah")))
opalist = lp 'setq org-publish-project-alist' ws+ <"'"> lp ws+ projects rp ws* rp
<lp> = <'('>
<rp> = <')'>
<ws> = #"\s"
projects = project+
project = ws* lp name ws+ (kw ws+ val)+ rp ws*
name = <'"'> #"[^ ]+" <'"'>
kw = <':'> #"[^ ]+"
val = #"[^ ]+"
user> (def elconf (slurp (file "resources/el-conf.el")))
#'user/elconf
user> (def elp (insta/parser (file "resources/elparse")))
#'user/elp
user> (elp elconf)
Parse error at line 27, column 1:
^
Expected:
"("
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment