From 1b1699a1771e6c62fd98a758a5851537f6ba1dd9 Mon Sep 17 00:00:00 2001
From: Rodion Goritskov <rodion.goritskov@gmail.com>
Date: Thu, 23 May 2024 00:26:09 +0400
Subject: gnu: Add baldeagle.

* .guix-channel (baldeagle): New variable.
* rodion/blogs.scm: Add build file for baldeagle
---
 .guix-channel    | 11 ++++++++++-
 rodion/blogs.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+), 1 deletion(-)
 create mode 100644 rodion/blogs.scm

diff --git a/.guix-channel b/.guix-channel
index 7cfb3a9..9bae090 100644
--- a/.guix-channel
+++ b/.guix-channel
@@ -1,3 +1,12 @@
 (channel
  (version 0)
- (url "https://git.goritskov.com/rodion/blogs.git"))
\ No newline at end of file
+ (url "https://git.goritskov.com/rodion/blogs.git")
+ (dependencies
+  (channel
+   (name little-guix-channel)
+   (url "https://git.goritskov.com/rodion/little-guix-channel.git")
+   (introduction
+    (channel-introduction
+     (version 0)
+     (commit "cfee0a86d4bdc74abcf03c47715a382d7ba93be8")
+     (signer "37F5 3D87 DFB3 EE32 393D  24B2 3A07 1A95 2839 DB19"))))))
\ No newline at end of file
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.")))
-- 
cgit v1.2.3