332 lines
12 KiB
Scheme
332 lines
12 KiB
Scheme
(define-module (local-pkgs-gnu packages actual-server-installer)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system node)
|
|
#:use-module (guix utils)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix licenses)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (gnu packages gawk)
|
|
#:use-module (gnu packages guile)
|
|
#:use-module (gnu packages shells)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages node)
|
|
#:use-module (gnu packages package-management)
|
|
#:use-module (gnu packages gnupg)
|
|
#:use-module
|
|
(gnu packages gcc)
|
|
#:use-module (ice-9 pretty-print)
|
|
#:use-module (srfi srfi-1)
|
|
#:use-module (srfi srfi-26))
|
|
|
|
(define-public actual-server-installer
|
|
(package
|
|
(name "actual-server-installer")
|
|
(version "24.4.0")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/actualbudget/actual-server")
|
|
(commit "deec1f9")))
|
|
(file-name (git-file-name name version))
|
|
(sha256 (base32 "1lq5lqa3818ajyn4cs8paw0iy4ibpggzsp9p1l4xwpa1xz10jb52"))
|
|
(snippet
|
|
'(begin
|
|
;; Guile code to pretty-print to a file
|
|
(use-modules (ice-9 pretty-print))
|
|
(let ((build-output-file "build.scm")
|
|
(run-output-file "actual-server-install"))
|
|
(call-with-output-file run-output-file
|
|
(lambda (port)
|
|
(format port "#!/usr/bin/env guile~%!#~%")
|
|
(pretty-print
|
|
'(begin
|
|
(use-modules (ice-9 popen)
|
|
(ice-9 rdelim)
|
|
(srfi srfi-1)
|
|
(rnrs io ports)
|
|
(rnrs bytevectors)
|
|
(rnrs files)
|
|
(guix build utils)
|
|
(ice-9 pretty-print)
|
|
(gcrypt hash)
|
|
(guix base32)
|
|
(ice-9 ftw))
|
|
|
|
(define (run-and-display-command command)
|
|
(let* ((port (open-pipe* OPEN_READ "sh" "-c" command))
|
|
(status #f))
|
|
(let loop ()
|
|
(let ((line (read-line port 'concat)))
|
|
(if (eof-object? line)
|
|
(begin
|
|
(set! status (close-pipe port))
|
|
(if (not (zero? status))
|
|
(error "Command failed" command status)))
|
|
(begin
|
|
(display line)
|
|
(force-output)
|
|
(loop)))))))
|
|
|
|
(define (sha256sum file)
|
|
(call-with-input-file file
|
|
(lambda (port)
|
|
(let ((digest (sha256 (get-bytevector-all port))))
|
|
(bytevector->nix-base32-string digest)))))
|
|
|
|
(define (generate-actual-server-scm directory checksum)
|
|
`(
|
|
(define-module (actual-server)
|
|
#:use-module (guix packages)
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (guix licenses)
|
|
#:use-module (guix download)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages node)
|
|
#:use-module (gnu packages guile)
|
|
#:use-module
|
|
(gnu packages gcc)
|
|
#:use-module
|
|
(guix build utils)
|
|
#:use-module
|
|
(gnu packages elf)
|
|
#:use-module (ice-9 pretty-print))
|
|
|
|
(define-public actual-server
|
|
(package
|
|
(name "actual-server")
|
|
(version "24.4.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "file://" ,directory "/actual-server.tar.gz"))
|
|
(sha256
|
|
(base32 ,checksum))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
`(("gcc" ,gcc "lib")
|
|
("node" ,node-lts)
|
|
("bash" ,bash)
|
|
("coreutils" ,coreutils)
|
|
("findutils" ,findutils)
|
|
("guile" ,guile-3.0)))
|
|
(native-inputs
|
|
`(("patchelf" ,patchelf)))
|
|
(arguments
|
|
`(#:tests? #f ; Disable tests
|
|
#:phases (modify-phases %standard-phases
|
|
(delete 'configure)
|
|
(delete 'build)
|
|
(delete 'install)
|
|
(add-after 'unpack 'copy-files
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(copy-recursively "." (string-append out "/lib"))
|
|
(mkdir-p (string-append out "/bin"))
|
|
#t)))
|
|
(add-after
|
|
'copy-files
|
|
'create-guile-script
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(use-modules (ice-9 pretty-print))
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(run-output-file (string-append out "/bin/actual-server")))
|
|
(call-with-output-file
|
|
run-output-file
|
|
(lambda (port)
|
|
(format port "#!/usr/bin/env guile~%!#~%")
|
|
(pretty-print
|
|
`(begin
|
|
(use-modules
|
|
(ice-9 popen)
|
|
(ice-9 rdelim)
|
|
(srfi srfi-1)
|
|
(rnrs io ports)
|
|
(rnrs bytevectors)
|
|
(rnrs files)
|
|
(ice-9 pretty-print)
|
|
(ice-9 ftw))
|
|
(define (run-and-display-command command)
|
|
(let* ((port (open-pipe*
|
|
OPEN_READ
|
|
"sh"
|
|
"-c"
|
|
command))
|
|
(status #f))
|
|
(let loop ()
|
|
(let ((line (read-line port 'concat)))
|
|
(if (eof-object? line)
|
|
(begin
|
|
(set! status (close-pipe port))
|
|
(if (not (zero? status))
|
|
(error "Command failed" command status)))
|
|
(begin
|
|
(display line)
|
|
(force-output)
|
|
(loop)))))))
|
|
(define ld-library-path ,(string-append out "/lib"))
|
|
(define home-path (getenv "HOME"))
|
|
(define sym-source
|
|
(string-append home-path "/.cache/node"))
|
|
(define sym-target
|
|
(string-append
|
|
ld-library-path
|
|
"/actual-server/node"))
|
|
(symlink sym-target sym-source)
|
|
(run-and-display-command
|
|
(string-append
|
|
"cd "
|
|
ld-library-path
|
|
"/actual-server/proj && corepack enable && yarn start")))
|
|
port)))
|
|
(chmod run-output-file #o755))))
|
|
(add-after 'copy-files 'create-guile-script
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(gcc-lib (string-append (assoc-ref inputs "gcc") "/lib")))
|
|
(for-each
|
|
(lambda (binary)
|
|
(invoke "patchelf" "--set-rpath" gcc-lib binary))
|
|
(find-files (string-append out "/lib") ".*\\.node$"))))))))
|
|
(home-page "https://github.com/actualbudget/actual-server")
|
|
(synopsis "Actual server for budget management")
|
|
(description "Actual is a local-first personal finance tool.")
|
|
(license expat)))))
|
|
|
|
(define (write-actual-server-scm directory scm-content)
|
|
(call-with-output-file
|
|
(string-append directory "/actual-server.scm")
|
|
(lambda (port)
|
|
(for-each
|
|
(lambda (expr) (pretty-print expr port))
|
|
scm-content))))
|
|
|
|
(define (main args)
|
|
(if (< (length args) 1)
|
|
(error "Usage: script.scm <directory>"))
|
|
(let ((directory (car args)))
|
|
|
|
(mkdir-p directory)
|
|
|
|
(run-and-display-command (string-append "guix shell --container --network --pure --no-cwd --emulate-fhs --share="
|
|
directory
|
|
"=/actual-server actual-server-installer -- bash -c 'guile $GUIX_ENVIRONMENT/lib/actual-server-installer/build.scm'"))
|
|
|
|
(let* ((checksum (sha256sum (string-append directory "/actual-server.tar.gz")))
|
|
(scm-content (generate-actual-server-scm directory checksum)))
|
|
(write-actual-server-scm directory scm-content))))
|
|
|
|
(main (cdr (command-line)))
|
|
|
|
) port)))
|
|
(call-with-output-file build-output-file
|
|
(lambda (port)
|
|
(pretty-print
|
|
'(begin
|
|
(use-modules (ice-9 popen)
|
|
(ice-9 rdelim)
|
|
(srfi srfi-1)
|
|
(rnrs io ports)
|
|
(rnrs bytevectors)
|
|
(rnrs files)
|
|
(guix build utils)
|
|
(ice-9 pretty-print)
|
|
(gcrypt hash)
|
|
(guix base32)
|
|
(ice-9 ftw))
|
|
|
|
(define (run-and-display-command command)
|
|
(let* ((port (open-pipe* OPEN_READ "sh" "-c" command))
|
|
(status #f))
|
|
(let loop ()
|
|
(let ((line (read-line port 'concat)))
|
|
(if (eof-object? line)
|
|
(begin
|
|
(set! status (close-pipe port))
|
|
(if (not (zero? status))
|
|
(error "Command failed" command status)))
|
|
(begin
|
|
(display line)
|
|
(force-output)
|
|
(loop)))))))
|
|
|
|
(define (delete-directory-contents dir)
|
|
(for-each (lambda (file)
|
|
(let ((full-path (string-append dir "/" file)))
|
|
(if (directory-exists? full-path)
|
|
(delete-file-recursively full-path)
|
|
(delete-file full-path))))
|
|
(filter (lambda (file)
|
|
(not (member file '("." ".."))))
|
|
(scandir dir))))
|
|
|
|
(define (chmod-r path mode)
|
|
(define (change-permissions file stat flag)
|
|
(chmod file mode))
|
|
(ftw path change-permissions))
|
|
|
|
(delete-directory-contents "/actual-server")
|
|
|
|
(mkdir-p "/actual-server-build/lib/actual-server")
|
|
|
|
(copy-recursively (string-append (getenv "GUIX_ENVIRONMENT") "/lib/actual-server-installer/repo")
|
|
"/actual-server-build/lib/actual-server/proj")
|
|
|
|
(chmod-r "/actual-server-build/lib/actual-server/proj" #o755)
|
|
|
|
(chdir "/actual-server-build/lib/actual-server/proj")
|
|
|
|
;; Enable corepack and install yarn
|
|
(run-and-display-command "corepack enable")
|
|
(run-and-display-command "corepack install")
|
|
(run-and-display-command "yarn install")
|
|
|
|
;; Create the necessary directory
|
|
(mkdir-p "/actual-server-build/lib/actual-server/node")
|
|
|
|
(copy-recursively
|
|
(string-append (getenv "HOME") "/.cache/node")
|
|
"/actual-server-build/lib/actual-server/node/")
|
|
|
|
;; Create tar.gz archive
|
|
(run-and-display-command "tar -czvf /actual-server/actual-server.tar.gz -C /actual-server-build .")
|
|
) port))))))))
|
|
(build-system gnu-build-system)
|
|
(propagated-inputs
|
|
`(("bash" ,bash)
|
|
("coreutils" ,coreutils)
|
|
("findutils" ,findutils)
|
|
("tar" ,tar)
|
|
("gzip" ,gzip)
|
|
("gawk" ,gawk)
|
|
("guix" ,guix)
|
|
("guile" ,guile-3.0)
|
|
("guile-gcrypt" ,guile-gcrypt)
|
|
("node", node-lts)
|
|
("gcc" ,gcc "lib")))
|
|
(arguments
|
|
`(#:tests? #f ; Disable tests for simplicity
|
|
#:phases (modify-phases %standard-phases
|
|
(delete 'configure)
|
|
(delete 'build)
|
|
(delete 'install)
|
|
(add-after 'unpack 'store-source
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((source-dir (assoc-ref outputs "out")))
|
|
(copy-recursively "." (string-append source-dir "/lib/actual-server-installer/repo"))
|
|
(mkdir-p (string-append source-dir "/bin"))
|
|
(format #t "Checking if build.scm exists: ~a~%" (file-exists? (string-append source-dir "/lib/actual-server-installer/repo/build.scm")))
|
|
(format #t "Checking if actual-server-install exists: ~a~%" (file-exists? (string-append source-dir "/lib/actual-server-installer/repo/actual-server-install")))
|
|
(rename-file (string-append source-dir "/lib/actual-server-installer/repo/build.scm") (string-append source-dir "/lib/actual-server-installer/build.scm"))
|
|
(rename-file (string-append source-dir "/lib/actual-server-installer/repo/actual-server-install") (string-append source-dir "/bin/actual-server-install"))
|
|
(chmod (string-append source-dir "/bin/actual-server-install") #o755)
|
|
#t))))))
|
|
(home-page "https://github.com/actualbudget/actual-server")
|
|
(synopsis "Actual server for budget management")
|
|
(description "Actual is a local-first personal finance tool.")
|
|
(license expat)))
|