diff options
Diffstat (limited to 'gn/services')
| -rw-r--r-- | gn/services/pluto.scm | 55 |
1 files changed, 10 insertions, 45 deletions
diff --git a/gn/services/pluto.scm b/gn/services/pluto.scm index 3df804c..76a45c2 100644 --- a/gn/services/pluto.scm +++ b/gn/services/pluto.scm @@ -16,42 +16,21 @@ pluto-configuration? (package pluto-configuration-package ; package (default julia-visuals)) + ;; TODO: Currently port 4343 is hardcoded in the package definition. (port pluto-configuration-port ; integer (default 80))) (define %julia-account (list (user-group (name "julia") - ;(system? #t) - ) + (system? #t)) (user-account (name "julia") (group "julia") - ;(system? #t) + (system? #t) (comment "Julia User") (home-directory "/home/jovyan") - ;(shell (file-append shadow "/sbin/nologin")) - ))) - -;(define pluto-activation -; (match-lambda -; (($ <ratspub-configuration> package) -; #~(begin -; (let ((nltk_data "/var/cache/nltk_data/tokenizers") -; (data_dir "/export/ratspub")) -; (unless (file-exists? "/export2/PubMed") -; (mkdir-p "/export2/PubMed")) -; (unless (file-exists? nltk_data) -; (begin -; ;; The correct way would be to use python-nltk to download the data -; ;; python3 -m nltk.downloader -d /var/cache/nltk_data punkt -; (mkdir-p nltk_data) -; (chdir nltk_data) -; (invoke #$(file-append unzip "/bin/unzip") "-q" #$%punkt.zip))) -; (unless (file-exists? (string-append data_dir "/userspub.sqlite")) -; (begin -; (install-file #$(file-append package "/userspub.sqlite") data_dir) -; (chmod (string-append data_dir "/userspub.sqlite") #o554)))))))) + (shell (file-append shadow "/sbin/nologin"))))) (define pluto-shepherd-service (match-lambda @@ -66,22 +45,15 @@ (gnu system file-systems))) (start #~(make-forkexec-constructor/container (list #$(file-append package "/runpluto.sh") #$port) - ;; Needs to run from the directory it is located in. - ;#:directory #$package #:log-file "/var/log/pluto.log" - ;; We don't need to set TMPDIR because we're inside a container. #:user "julia" #:group "julia" - #:environment-variables - '(;"JULIA_PROJECT=/home/jovyan" - ;"JULIA_LOAD_PATH=/run/current-system/profile/share/julia/packages/" - ) + ;; This needs to exist. Unclear why. + #:environment-variables '() #:mappings (list (file-system-mapping (source "/home/jovyan") (target source) - (writable? #t)) - ) - )) + (writable? #t))))) (stop #~(make-kill-destructor)))))))) (define pluto-service-type @@ -91,13 +63,8 @@ (list (service-extension shepherd-root-service-type pluto-shepherd-service) - ;(service-extension activation-service-type - ; ratspub-activation) (service-extension account-service-type - (const %julia-account)) - ;; Make sure we get all the dependencies of julia-visuals. - (service-extension profile-service-type - (compose list pluto-configuration-package)))) + (const %julia-account)))) (default-value (pluto-configuration)) (description "Run a Pluto Jupyter Webserver."))) @@ -118,9 +85,7 @@ ;; (kernel linux-libre-vm) ;; No firmware for VMs. (firmware '()) - (packages ;(list nss-certs) - %base-packages - ) + (packages (list nss-certs)) (services (list (service pluto-service-type (pluto-configuration @@ -130,5 +95,5 @@ ;; For docker it isn't necessary to list the shared folders at build time. ;; guix system docker-image -L /path/to/guix-bioinformatics/ -L /path/to/guix-past/modules/ /path/to/guix-bioinformatics/gn/services/pluto.scm --network ;; Docker instructions: -;; docker load --input pluto-docker-image.tar.gz +;; docker load --input guix-docker-image.tar.gz ;; docker run -d --privileged --net=host --name pluto guix |