diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2026-02-14 12:55:03 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2026-02-14 12:55:03 -0500 |
| commit | 717a11ca85f51cebf77a46a5d4727dd399265919 (patch) | |
| tree | 12d04d682d33c60e36be9b6c89f0aaeff093a044 /jakob | |
| parent | a08412d83465dec5c3fdf7fdccf3d1f31d6064a3 (diff) | |
Licensing information
Diffstat (limited to 'jakob')
| -rw-r--r-- | jakob/reader/org-mode-prime.scm | 3 | ||||
| -rw-r--r-- | jakob/theme.scm | 7 | ||||
| -rw-r--r-- | jakob/utils/org-mode.scm | 4 |
3 files changed, 10 insertions, 4 deletions
diff --git a/jakob/reader/org-mode-prime.scm b/jakob/reader/org-mode-prime.scm index 85c4296..8972ae5 100644 --- a/jakob/reader/org-mode-prime.scm +++ b/jakob/reader/org-mode-prime.scm @@ -32,6 +32,5 @@ (make-reader (reader-matcher org-mode-reader) (lambda args (let-values (((metadata sxml) (apply (reader-proc org-mode-reader) args))) - (let* ((sxml (rewrite-absolute-urls-as-relative sxml)) - (sxml (flatten-section-headings sxml))) + (let ((sxml (flatten-section-headings sxml))) (values metadata sxml)))))) diff --git a/jakob/theme.scm b/jakob/theme.scm index f2006fa..7e29aa2 100644 --- a/jakob/theme.scm +++ b/jakob/theme.scm @@ -202,4 +202,9 @@ `(,content) content)) ,@scripts) - ,%footer))))) + ,%footer + (a (@ (style "display: none") + (href "/pages/licensing.html") + (rel "jslicense") + (data-jslicense "1")) + "JavaScript license information")))))) diff --git a/jakob/utils/org-mode.scm b/jakob/utils/org-mode.scm index f5ac800..8da8b39 100644 --- a/jakob/utils/org-mode.scm +++ b/jakob/utils/org-mode.scm @@ -30,6 +30,7 @@ #:use-module (ice-9 popen) #:use-module (ice-9 textual-ports) #:use-module (jakob utils) + #:use-module (jakob utils sxml) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-19) @@ -194,7 +195,8 @@ daemon. Assumes that FORM does not write to `standard-output'." ;;; Rewriting engine (define (rewrite-org-mode tree) - (define filters (list rewrite-code-blocks-as-figures + (define filters (list rewrite-absolute-urls-as-relative + rewrite-code-blocks-as-figures rewrite-table-of-contents)) (fold (lambda (f value) (f value)) tree filters)) |