diff options
| -rw-r--r-- | dotfiles/.config/shepherd/init.scm | 234 |
1 files changed, 0 insertions, 234 deletions
diff --git a/dotfiles/.config/shepherd/init.scm b/dotfiles/.config/shepherd/init.scm deleted file mode 100644 index 697ad6d..0000000 --- a/dotfiles/.config/shepherd/init.scm +++ /dev/null @@ -1,234 +0,0 @@ -(use-modules (ice-9 match) - (srfi srfi-1) - (system repl server)) - -(define-syntax-rule (forever body ...) - (while #t body ...)) - -(define-syntax-rule (with-fork body ...) - (match (primitive-fork) - (0 (begin body ...)) - (pid pid))) - -(define provided-by (@@ (shepherd service) provided-by)) -(define deregister-service (@@ (shepherd service) deregister-service)) - -(define deregister-service* - (compose deregister-service symbol->string)) - -(define (register-services* . services) - (for-each deregister-service* (append-map provided-by services)) - (apply register-services services)) - -(define-syntax-rule (define-service name service) - (define name (begin (register-services* service) service))) - -(define (touch-file file) - (close-port (open-file file "a0b"))) - -(define (run-command command) - (zero? (status:exit-val (apply system* command)))) - -(define (make-system-constructor command) - (lambda _ - (run-command command))) - -(define (make-system-destructor command) - (lambda _ - (not (run-command command)))) - -(define (simple-service program) - (make <service> - #:provides (list (string->symbol program)) - #:requires '() - #:start (make-forkexec-constructor (list program)) - #:stop (make-kill-destructor))) - -(define %home (getenv "HOME")) - -(define (rbenv-bin version) - "Return the binary path for the VERSION of Ruby managed by rbenv." - (string-append %home "/.rbenv/versions/" version "/bin")) - -(define (ruby-environment version gemset) - "Return the environment variables needed to run Ruby applications -that use a specific VERSION of Ruby, whose dependencies are stored in -GEMSET." - (let ((gem-home (string-append %home "/.gems/" gemset))) - (list "RAILS_ENV=development" - "HOME=/home/dthompson" - (string-append "GEM_PATH=" gem-home) - (string-append "GEM_HOME=" gem-home) - (string-append "PATH=" gem-home "/bin:" - (rbenv-bin version) ":" - (getenv "PATH"))))) - -(define* (rails-service name port ruby-version #:optional (requires '())) - "Create a service that runs the Rails application NAME located in -DIR. The application runs with RUBY, the file name of the necessary -Ruby version, and listens on PORT." - (define gem-home - (string-append %home "/.gems/" name)) - - (make <service> - #:provides (list (string->symbol name)) - #:requires requires - #:start (make-forkexec-constructor - `("passenger" "start" - "--address" "127.0.0.1" - "--port" ,port - "--ruby" ,(string-append (rbenv-bin ruby-version) "/ruby")) - #:directory (string-append %home "/Code/" name) - #:environment-variables (ruby-environment ruby-version name)) - #:stop (make-kill-destructor))) - -(define (gpg-agent-service name pinentry-program) - (make <service> - #:provides (list name 'gpg-agent) - #:requires '() - #:start (make-system-constructor - (list "gpg-agent" "--daemon" "--enable-ssh-support" - "--default-cache-ttl=10800" ; cache for 3 hours - "--pinentry-program" - (string-append %home "/.guix-profile/bin/" - pinentry-program))) - #:stop (make-system-destructor - '("gpg-connect-agent" "killagent" "/bye")))) - -;; (define-service vhl-tunnel -;; (make <service> -;; #:provides '(vhl-tunnel) -;; #:requires '() -;; #:start (make-forkexec-constructor -;; '("ssh" "-N" "-L" "1234:7VWJD42.vhl.dom:22" "vhl")) -;; #:stop (make-kill-destructor))) - -;; (define-service vhl-proxy -;; (make <service> -;; #:provides '(vhl-proxy) -;; #:requires '(vhl-tunnel) -;; #:start (make-forkexec-constructor -;; '("ssh" "-N" "-D8080" "-p1234" "dthompson@localhost")) -;; #:stop (make-kill-destructor))) - -(register-services - ;; VHL applications - (rails-service "api" "3002" "2.2.2") - (rails-service "ua" "3000" "2.1.5" '(api)) - (rails-service "m3" "3001" "2.2.2" '(api ua punjab openfire sidekiq)) - - ;; M3 DB replica - (make <service> - #:provides '(m3-replica) - #:start (make-forkexec-constructor - `("mysqld" - "--defaults-file=/home/dthompson/Code/m3/replica/etc/my.cnf" - "--user=dthompson")) - #:stop (make-kill-destructor)) - - ;; Punjab (BOSH) - (let* ((punjab-home (string-append %home "/Code/vhl-bosh")) - (punjab-config (string-append punjab-home "/conf/development.tac"))) - (make <service> - #:provides '(punjab) - #:requires '() - #:start (make-forkexec-constructor - (list "twistd" "--nodaemon" "-y" punjab-config) - #:directory punjab-home) - #:stop (make-kill-destructor))) - - ;; Openfire (XMPP) - (let ((openfire-home (string-append %home "/Code/vhl-xmpp/target/openfire"))) - (make <service> - #:provides '(openfire) - #:requires '() - #:start (make-forkexec-constructor - (list "java" "-server" - (string-append "-DopenfireHome=" openfire-home) - (string-append "-Dopenfire.lib.dir=" openfire-home "/lib") - "-jar" (string-append openfire-home "/lib/startup.jar")) - #:directory openfire-home) - #:stop (make-kill-destructor))) - - ;; Redis - (make <service> - #:provides '(redis) - #:requires '() - #:start (make-forkexec-constructor '("redis-server")) - #:stop (make-kill-destructor)) - - ;; Sidekiq - (make <service> - #:provides '(sidekiq) - #:requires '(redis) - #:start (make-forkexec-constructor - '("sidekiq") - #:directory (string-append %home "/Code/m3") - #:environment-variables - (ruby-environment "1.9.3-p551" "m3")) - #:stop (make-kill-destructor)) - - ;; Emacs - (make <service> - #:provides '(emacs) - #:requires '() - #:start (make-system-constructor '("emacs" "--daemon")) - #:stop (make-system-destructor '("emacsclient" "--eval" "(kill-emacs)"))) - - ;; Xorg - (make <service> - #:provides '(xmodmap) - #:requires '() - #:start (make-forkexec-constructor - (list "xmodmap" (string-append %home "/.xmodmap")))) - - ;; GPG/SSH Agent - (gpg-agent-service 'gpg-agent-gtk "pinentry-gtk-2") - (gpg-agent-service 'gpg-agent-tty "pinentry-tty") - - ;; Mail - (simple-service "davmail") ; for dealing with Exchange at work. - (make <service> - #:provides '(offlineimap) - #:requires '() - #:start (lambda args - (with-fork - ;; OfflineIMAP's "autorefresh" mode consistently - ;; consumes all of the RAM on my machine, so let's just - ;; run it in a loop instead. - (forever - (system* "offlineimap") - (sleep 40)))) - #:stop (make-kill-destructor)) - - ;; FUSE - (make <service> - #:provides '(sshfs) - #:requires '() - #:start (make-forkexec-constructor - (list "sshfs" "aigis:Music" (string-append %home "/Music")))) - - ;; Music - (make <service> - #:provides '(mpd) - #:requires '() - #:start (lambda args - (define (scope file) - (string-append %home "/.config/mpd/" file)) - - (unless (file-exists? (scope "playlists")) - (mkdir (scope "playlists"))) - (touch-file (scope "database")) - (fork+exec-command - (list "mpd" "--no-daemon"(scope "mpd.conf")))) - #:stop (make-kill-destructor)) - (simple-service "mpdscribble")) - -;; Send shepherd into the background. -(action 'shepherd 'daemonize) - -;; Start the REPL server. -;; (spawn-server (make-tcp-server-socket #:port 37148)) - -;; Services to start when shepherd starts: -(for-each start '(xmodmap emacs)) |