blob: dc1e654e6fed80284547464c4857c6d313278b17 (
plain)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
(require 'ox-html)
;; https://gileschamberlin.com/2020/02/25/writing-a-new-org-mode-exporter-back-end
;; https://github.com/grc/jujutsu-website/blob/master/elisp/org-jujutsu-site.el
;; https://orgmode.org/worg/dev/org-export-reference.html
(org-export-define-derived-backend 'shittyweb-html 'html
:translate-alist '((template . shittyweb-html-template)
(src-block . shittyweb-html-src-block))
:options-alist '((:background-image "BACKGROUND_IMAGE" nil nil)
(:shittyweb-header "SHITTYWEB_HEADER" nil nil)
(:shittyweb-back "SHITTYWEB_BACK" nil "")))
(defun shittyweb-html-template (contents info)
"Return complete document string after HTML conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options."
(concat
(when (and (not (org-html-html5-p info)) (org-html-xhtml-p info))
(let* ((xml-declaration (plist-get info :html-xml-declaration))
(decl (or (and (stringp xml-declaration) xml-declaration)
(cdr (assoc (plist-get info :html-extension)
xml-declaration))
(cdr (assoc "html" xml-declaration))
"")))
(when (not (or (not decl) (string= "" decl)))
(format "%s\n"
(format decl
(or (and org-html-coding-system
(coding-system-get org-html-coding-system :mime-charset))
"iso-8859-1"))))))
(org-html-doctype info)
"\n"
(concat "<html"
(cond ((org-html-xhtml-p info)
(format
" xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"%s\" xml:lang=\"%s\""
(plist-get info :language) (plist-get info :language)))
((org-html-html5-p info)
(format " lang=\"%s\"" (plist-get info :language))))
">\n")
"<head>\n"
(org-html--build-meta-info info)
(org-html--build-head info)
(org-html--build-mathjax-config info)
;; Background
(let ((background (plist-get info :background-image)))
(if background
(format "<style type=\"text/css\">\n\
body { background-image: url(\"%s\"); }\n\
</style>"
background)))
"</head>\n"
"<body>\n"
;; I dont use link-up so byebye it goes.
;; Also I give it a directory instead of file.
;; Also has a back thingy added.
(let ((link-home (org-trim (plist-get info :html-link-home)))
(back-page (org-trim (plist-get info :shittyweb-back))))
(unless (string= link-home "")
(format (plist-get info :html-home/up-format)
link-home link-home
(if (string= back-page "")
""
back-page))))
;; Shittyweb header. Its outside the thingy.
(let ((shittyweb-header (plist-get info :shittyweb-header)))
(if shittyweb-header
(format "<div class=\"shittyweb-header\">\n%s\n</div>"
shittyweb-header)))
;; Preamble.
(org-html--build-pre/postamble 'preamble info)
;; Document contents.
(let ((div (assq 'content (plist-get info :html-divs))))
(format "<%s id=\"%s\" class=\"%s\">\n"
(nth 1 div)
(nth 2 div)
(plist-get info :html-content-class)))
;; Document title.
(when (plist-get info :with-title)
(let ((title (and (plist-get info :with-title)
(plist-get info :title)))
(subtitle (plist-get info :subtitle))
(html5-fancy (org-html--html5-fancy-p info)))
(when title
(format
(if html5-fancy
"<header>\n<h1 class=\"title\">%s</h1>\n%s</header>"
"<h1 class=\"title\">%s%s</h1>\n")
(org-export-data title info)
(if subtitle
(format
(if html5-fancy
"<p class=\"subtitle\" role=\"doc-subtitle\">%s</p>\n"
(concat "\n" (org-html-close-tag "br" nil info) "\n"
"<span class=\"subtitle\">%s</span>\n"))
(org-export-data subtitle info))
"")))))
contents
(format "</%s>\n" (nth 1 (assq 'content (plist-get info :html-divs))))
;; Postamble.
(org-html--build-pre/postamble 'postamble info)
;; Possibly use the Klipse library live code blocks.
(when (plist-get info :html-klipsify-src)
(concat "<script>" (plist-get info :html-klipse-selection-script)
"</script><script src=\""
org-html-klipse-js
"\"></script><link rel=\"stylesheet\" type=\"text/css\" href=\""
org-html-klipse-css "\"/>"))
;; Closing document.
"</body>\n</html>"))
;; I don't like the way it handles src blocks. I just want <code>.
(defun shittyweb-html-src-block (src-block _contents info)
(let* ((code (org-html-format-code src-block info))
(code-lines (string-split (string-trim code) "\n")))
(defun join-code-lines (lines) ;; Change \n to <br />
(concat (car lines)
(if (cdr lines)
(concat "<br />\n" (join-code-lines (cdr lines)))
"")))
(format "\n\
<div class=\"org-src-container\"><code>\n%s\n</code></div>\n"
(join-code-lines code-lines))))
(defun shittyweb-publish-to-html (plist filename pub-dir)
"Publish an org file to HTML.
FILENAME is the filename of the Org file to be published. PLIST
is the property list for the given project. PUB-DIR is the
publishing directory.
Return output file name."
(org-publish-org-to 'shittyweb-html filename
(concat (when (> (length org-html-extension) 0) ".")
(or (plist-get plist :html-extension)
org-html-extension
"html"))
plist pub-dir))
(provide 'shittyweb-html)
|
