(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.")))