57 lines
2.0 KiB
Scheme
57 lines
2.0 KiB
Scheme
(use-modules (guix git-download)
|
|
(guix build-system python)
|
|
(guix gexp)
|
|
(guix packages)
|
|
(guix utils)
|
|
(gnu packages markup) ;; for python-markdownify
|
|
(mobilizon-reshare package)
|
|
(ice-9 rdelim)
|
|
(ice-9 popen))
|
|
|
|
(define %source-dir (getcwd))
|
|
|
|
(define mobilizon-reshare-git-origin
|
|
(local-file %source-dir
|
|
#:recursive? #t
|
|
#:select? (git-predicate %source-dir)))
|
|
|
|
(define mobilizon-reshare.git
|
|
(let ((source-version (with-input-from-file
|
|
(string-append %source-dir
|
|
"/mobilizon_reshare/VERSION")
|
|
read-line))
|
|
(revision "0")
|
|
(commit (read-line
|
|
(open-input-pipe "git show HEAD | head -1 | cut -d ' ' -f 2"))))
|
|
(package (inherit mobilizon-reshare)
|
|
(name "mobilizon-reshare.git")
|
|
(version (git-version source-version revision commit))
|
|
(source mobilizon-reshare-git-origin)
|
|
(propagated-inputs
|
|
(modify-inputs (package-propagated-inputs mobilizon-reshare)
|
|
(replace "python-markdownify" python-markdownify))))))
|
|
|
|
(define-public mobilizon-reshare-scheduler
|
|
(package (inherit mobilizon-reshare.git)
|
|
(name "mobilizon-reshare-scheduler")
|
|
(build-system python-build-system)
|
|
(arguments
|
|
(list
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(delete 'configure)
|
|
(delete 'build)
|
|
(delete 'check)
|
|
(replace 'install
|
|
(lambda _
|
|
(let ((bin (string-append #$output "/bin")))
|
|
(mkdir-p bin)
|
|
(install-file "scripts/scheduler.py" bin)))))))
|
|
(propagated-inputs (list mobilizon-reshare.git
|
|
python-apscheduler))
|
|
(synopsis "Mobilizon Reshare's scheduler")
|
|
(description "This script is intended to start a scheduler
|
|
running @code{mobilizon-reshare}.")))
|
|
|
|
mobilizon-reshare.git
|