1 files changed, 36 insertions, 0 deletions
diff --git a/jakob/reader/org-mode-prime.scm b/jakob/reader/org-mode-prime.scm
new file mode 100644
index 0000000..118f1a6
--- /dev/null
+++ b/jakob/reader/org-mode-prime.scm
@@ -0,0 +1,36 @@
+;;; Copyright © 2019 - 2024 Jakob L. Kreuze <zerodaysfordays@sdf.org>
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;;
+;;; Wrapper around the `org-mode-reader' to apply rewrite rules specific to my
+;;; website.
+;;;
+;;; Code:
+
+(define-module (jakob reader org-mode-prime)
+  #:use-module (haunt reader)
+  #:use-module (jakob reader org-mode)
+  #:use-module (jakob utils sxml)
+  #:use-module (srfi srfi-11)
+  #:export (org-mode-reader-prime))
+
+(define org-mode-reader-prime
+  (make-reader (reader-matcher org-mode-reader)
+               (lambda args
+                 (let-values (((metadata sxml) (apply (reader-proc org-mode-reader) args)))
+                   (values metadata
+                           (rewrite-absolute-urls-as-relative sxml))))))