(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 "\n") "\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 "" background))) "\n" "\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 "

\n%s\n

" 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 "

%s

\n%s

" "

%s%s

\n") (org-export-data title info) (if subtitle (format (if html5-fancy "

\n" (concat "\n" (org-html-close-tag "br" nil info) "\n" "%s\n")) (org-export-data subtitle info)) ""))))) contents (format "\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 "")) ;; Closing document. "\n")) ;; I don't like the way it handles src blocks. I just want

.
(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 

      (concat (car lines)
              (if (cdr lines)
                  (concat "
\n" (join-code-lines (cdr lines)))
                "")))
    (format "\n\
\n%s\n\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)