From 909a76bcc45e896f8029ec4c8491652f3738d4e3 Mon Sep 17 00:00:00 2001 From: nathan Date: Sat, 24 May 2025 02:57:22 -0600 Subject: Working on better web design --- shittyweb-html.el | 62 +++++++++++++++++++++++-------------------------------- 1 file changed, 26 insertions(+), 36 deletions(-) (limited to 'shittyweb-html.el') diff --git a/shittyweb-html.el b/shittyweb-html.el index c83ec50..dc1e654 100644 --- a/shittyweb-html.el +++ b/shittyweb-html.el @@ -4,13 +4,6 @@ ;; https://github.com/grc/jujutsu-website/blob/master/elisp/org-jujutsu-site.el ;; https://orgmode.org/worg/dev/org-export-reference.html -(defvar shittyweb-html-background-color "#dcd1ba") -(defvar shittyweb-html-table-background-color "#bebebe") -(defvar shittyweb-html-table-border 1) -(defvar shittyweb-html-table-width "65%") -(defvar shittyweb-html-code-background-color "white") -(defvar shittyweb-html-code-border 1) - (org-export-define-derived-backend 'shittyweb-html 'html :translate-alist '((template . shittyweb-html-template) (src-block . shittyweb-html-src-block)) @@ -50,38 +43,37 @@ holding export options." (org-html--build-meta-info info) (org-html--build-head info) (org-html--build-mathjax-config info) - "\n" - ;; Body with background + ;; Background (let ((background (plist-get info :background-image))) (if background - (format "\n" - shittyweb-html-background-color - background) - (format "" - shittyweb-html-background-color))) + (format "" + background))) + "\n" + "\n" ;; I dont use link-up so byebye it goes. ;; Also I give it a directory instead of file. - (let ((link-home (org-trim (plist-get info :html-link-home)))) + ;; 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))) - ;; The back button thingy - (let ((back-page (org-trim (plist-get info :shittyweb-back)))) - (unless (string= back-page "") - back-page)) - ;; Preamble. - (org-html--build-pre/postamble 'preamble info) - "\n
\n" - ;; Shittyweb header. Its outside the weird table thing. + (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 - 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 "
\n" - shittyweb-html-table-border - shittyweb-html-table-width - shittyweb-html-table-background-color + (format "<%s id=\"%s\" class=\"%s\">\n" + (nth 1 div) (nth 2 div) (plist-get info :html-content-class))) ;; Document title. @@ -105,7 +97,7 @@ holding export options." (org-export-data subtitle info)) ""))))) contents - "
\n" + (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. @@ -116,7 +108,7 @@ holding export options." "\">")) ;; Closing document. - "
\n\n")) + "\n")) ;; I don't like the way it handles src blocks. I just want . (defun shittyweb-html-src-block (src-block _contents info) @@ -127,10 +119,8 @@ holding export options." (if (cdr lines) (concat "
\n" (join-code-lines (cdr lines))) ""))) - (format "
\n\ -\n%s\n\n
" - shittyweb-html-code-background-color - shittyweb-html-code-border + (format "\n\ +
\n%s\n
\n" (join-code-lines code-lines)))) (defun shittyweb-publish-to-html (plist filename pub-dir) -- cgit v1.2.3