src/org/euandre/packages.scm: Remove datomic package and transacctor config

1 files changed, 0 insertions, 160 deletions

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index d4e7e77..f388949 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -20,19 +20,6 @@
              syskeep-configuration-package
              syskeep-configuration-log-file
 
-            <transactor-configuration>
-             transactor-configuration
-        make-transactor-configuration
-             transactor-configuration?
-             transactor-configuration-package
-             transactor-configuration-user
-             transactor-configuration-group
-             transactor-configuration-port
-             transactor-configuration-log-file
-             transactor-configuration-data-directory
-             transactor-configuration-run-in-container?
-             transactor-configuration-container-name
-
             <git-configuration>
              git-configuration
         make-git-configuration
@@ -361,28 +348,6 @@
     "fa07fa576e07b4cc6b7c9123bd3a6c91e6afc609"
     "084w89v15nmr45nv9av8pz7iq99aw3ggaxr0gzqfjbskb3wvvkml")))
 
-(define-public datomic
-  (let ((p (pkg
-            "datomic"
-            "13edba0fa2bd4c3847160809499ce837f52d1264"
-            "158sqawmbszawa132bhfghzlkhd3b0bicdg5dr93v56vvm4i25kl")))
-    (package
-      (inherit p)
-      (arguments
-        (substitute-keyword-arguments (package-arguments p)
-          ((#:phases phases)
-           #~(modify-phases #$phases
-               (add-after 'install 'wrap-program
-                 (lambda* _
-                   (wrap-program
-                    (string-append #$output "/bin/transactor")
-                    `("PATH" ":" =
-                      (,(string-append #$coreutils   "/bin")
-                       ,(string-append #$gawk        "/bin")
-                       ,(string-append #$openjdk23   "/bin")
-                       ,(string-append #$sed         "/bin")
-                       ,(string-append #$sqlite-next "/bin")))))))))))))
-
 
 
 (define-public (format-inputs l)
@@ -848,129 +813,6 @@ root                   ALL=(ALL)                      ALL
 
 
 
-(define-record-type* <transactor-configuration>
-  transactor-configuration
-  make-transactor-configuration
-  transactor-configuration?
-  (package           transactor-configuration-package           (default datomic))
-  (user              transactor-configuration-user              (default "transactor"))
-  (group             transactor-configuration-group             (default "peer"))
-  (port              transactor-configuration-port              (default 50200))
-  (log-file          transactor-configuration-log-file          (default "/var/log/transactor/transactor.log"))
-  (base-directory    transactor-configuration-data-directory    (default "/var/lib/transactor"))
-  (run-in-container? transactor-configuration-run-in-container? (default #t))
-  (container-name    transactor-configuration-container-name    (default "datomic-container")))
-
-(define-public (transactor-command config)
-  (match-record config <transactor-configuration>
-      (package user group base-directory run-in-container? container-name)
-    (let ((bin (file-append package "/bin/transactor")))
-      (if (not run-in-container?)
-        bin
-        (least-authority-wrapper
-         bin
-         #:user       user
-         #:group      group
-         #:directory  base-directory
-         #:name       container-name
-         #:namespaces (s1:fold delq container:%namespaces '(net))
-         #:preserved-environment-variables
-         '()
-         #:mappings
-         (list
-          (file-system-mapping
-            (source base-directory)
-            (target source)
-            (writable? #t))))))))
-
-(define-public (transactor-shepherd-services config)
-  (match-record config <transactor-configuration>
-      (port user group log-file base-directory)
-    (list
-     (shepherd-service
-       (provision '(transactor))
-       (requirement '())
-       (start
-         #~(make-forkexec-constructor
-            (list #$(transactor-command config)
-                  "-p" (number->string #$port)
-                  (string-append #$base-directory "/data/storage.db"))
-            #:user      #$user
-            #:group     #$group
-            #:log-file  #$log-file
-            #:directory #$base-directory))
-       (stop #~(make-kill-destructor))
-       (documentation "Daemon transactor process.")))))
-
-(define-public (transactor-activation config)
-  (match-record config <transactor-configuration>
-      (user log-file base-directory)
-    #~(begin
-        (use-modules
-          (guix build utils))
-        (format
-         (current-error-port)
-         "Creating Transactor data directories under: \"~a\".~%"
-         #$base-directory)
-        (mkdir-p/perms (string-append #$base-directory "/data")
-                       (getpwnam #$user)
-                       #o750)
-        (mkdir-p/perms (string-append #$base-directory "/backup")
-                       (getpwnam #$user)
-                       #o750)
-        (format
-         (current-error-port)
-         "Creating Transactor log directory for \"~a\".~%"
-         #$log-file)
-        (mkdir-p (dirname #$log-file))
-        (when (not (file-exists? #$log-file))
-          (call-with-output-file #$log-file (const #t)))
-        (chmod #$log-file #o644))))
-
-(define-public (transactor-accounts config)
-  (match-record config <transactor-configuration>
-      (user group)
-    (list
-     (user-account
-       (name user)
-       (group group)
-       (comment "Datomic transactor system user")
-       (create-home-directory? #f)
-       (shell
-         (file-append shadow "/sbin/nologin"))
-       (system? #t))
-     (user-group
-       (name group)
-       (system? #t)))))
-
-(define (transactor-cronjobs config)
-  (match-record config <transactor-configuration>
-      (base-directory)
-    (let ((from (string-append base-directory "/data/storage.db"))
-          (to   (string-append base-directory "/backup")))
-      (list
-       #~(job "0 23 * * *" (format #f "cronjob datomic backup ~a ~a" #$from #$to))
-       #~(job "0 6  * * *" (format #f "cronjob datomic gc     ~a"    #$from))))))
-
-(define-public transactor-service-type
-  (service-type
-    (name 'transactor)
-    (extensions
-      (list
-       (service-extension shepherd-root-service-type
-                          transactor-shepherd-services)
-       (service-extension activation-service-type
-                          transactor-activation)
-       (service-extension account-service-type
-                          transactor-accounts)
-       (service-extension mcron-service-type
-                          transactor-cronjobs)
-       (service-extension profile-service-type
-                          (compose list transactor-configuration-package))))
-    (default-value (transactor-configuration))
-    (description "Transactor service.")))
-
-
 (define-record-type* <git-configuration>
   git-configuration
   make-git-configuration
@@ -1434,8 +1276,6 @@ The default configuration should provide sane values for all of these."
  mkwb
  euandre.org
 
- datomic
-
  gotext
  uuid
  gobang