gnu: Add baldeagle.

* .guix-channel (baldeagle): New variable.
* rodion/blogs.scm: Add build file for baldeagle

1 files changed, 44 insertions, 0 deletions

diff --git a/rodion/blogs.scm b/rodion/blogs.scm
new file mode 100644
index 0000000..18a4840
--- /dev/null
+++ b/rodion/blogs.scm
@@ -0,0 +1,44 @@
+(define-module (rodion blogs)
+    #:use-module (guix packages)
+    #:use-module (guix build-system copy)
+    #:use-module (guix build-system cmake)
+    #:use-module (guix git-download)
+    #:use-module (guix gexp)
+    #:use-module (guix utils)
+    #:use-module (gnu packages version-control)
+    #:use-module (gnu packages emacs)
+    #:use-module (guix search-paths)
+    #:use-module ((guix licenses) #:prefix license:)
+    #:use-module (rodion packages emacs))
+
+(define baldeagle-source-checkout
+  (let ((vcs-file? (or (git-predicate
+                        (string-append (current-source-directory)
+                                       "/../baldeagle"))
+                       (const #t))))
+    (local-file "../baldeagle" "baldeagle-checkout"
+                #:recursive? #t
+                #:select? vcs-file?)))
+
+(define %baldeagle-version "1.0.0-git")
+
+(define-public baldeagle
+  (package
+   (name "baldeagle")
+   (version %baldeagle-version)
+   (build-system copy-build-system)
+   (home-page "https://git.goritskov.com/rodion/blogs.git")
+   (source baldeagle-source-checkout)
+   (native-inputs (list emacs-minimal git emacs-ox-gemini/latest))
+   (arguments
+    (list #:phases
+	  #~(modify-phases %standard-phases
+			   (add-before 'install 'build-library
+				       (lambda* (#:key inputs #:allow-other-keys)
+					 (setenv "HOME" "/tmp")
+					 (invoke "emacs" "--quick" "--batch" "--script" "publish.el"))))
+	  #:install-plan ''(("baldeagle-public/" "share/baldeagle/")
+			    ("baldeagle-gemini/" "share/baldeagle-gemini/"))))
+   (license license:expat)
+   (description "Baldeagle.me blog")
+   (synopsis "Baldeagle blog.")))