From cf38217c1ae9644a58bb0ebf5d4e14bbc4739ce2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 12 Aug 2023 20:11:03 +0100
Subject: cgit: Render org mode README files.

* guix/forge/cgit.scm: Import emacs-minimal from (gnu packages emacs).
(%cgit-readme): Add README.org.
(about-filter-gexp): Render org mode README files.
* guix/forge/org2html.el: New file.
* doc/forge.skb (Services)[Git web viewers]{cgit service}: Document
support for org mode README files.
---
 guix/forge/cgit.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'guix/forge/cgit.scm')

diff --git a/guix/forge/cgit.scm b/guix/forge/cgit.scm
index 6ac7589..f652825 100644
--- a/guix/forge/cgit.scm
+++ b/guix/forge/cgit.scm
@@ -21,6 +21,7 @@
   #:use-module (forge fcgiwrap)
   #:use-module (forge nginx)
   #:use-module (forge socket)
+  #:use-module ((gnu packages emacs) #:select (emacs-minimal))
   #:use-module ((gnu packages mail) #:select (mailcap))
   #:use-module ((gnu packages version-control)
                 #:select (cgit git-minimal))
@@ -55,7 +56,7 @@
 
 (define %cgit-readme
   (append (list "README.md" "README.markdown" "README.mdown" "README.mkd"
-                "README.rst")
+                "README.org" "README.rst")
           ;; man page READMEs
           (map (lambda (n)
                  (string-append "README." (number->string n)))
@@ -145,6 +146,10 @@ configured in @var{config}."
                    (string-suffix-ci? ".mkd" about-file))
                (invoke #$(file-append cgit "/lib/cgit/filters/html-converters/md2html")
                        about-file))
+              ((string-suffix-ci? ".org" about-file)
+               (invoke #$(file-append emacs-minimal "/bin/emacs")
+                       "--script"
+                       #$(local-file "org2html.el")))
               ((string-suffix-ci? ".rst" about-file)
                (invoke #$(file-append cgit "/lib/cgit/filters/html-converters/rst2html")
                        about-file))
-- 
cgit v1.2.3