pop-os: Add prodigy

2 files changed, 42 insertions, 1 deletions

diff --git a/oni/home/config/pop-os.scm b/oni/home/config/pop-os.scm
index 95a4731..f7c8f87 100644
--- a/oni/home/config/pop-os.scm
+++ b/oni/home/config/pop-os.scm
@@ -194,7 +194,8 @@
                                            "emacs-sops"
                                            "emacs-dockerfile-mode"
                                            "emacs-slack"
-                                           "emacs-combobulate"))
+                                           "emacs-combobulate"
+                                           "emacs-prodigy"))
 		     (list emacs-oni-core
                    emacs-oni-compilation
                    emacs-oni-common-lisp
diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el
index ac3165a..9df7756 100644
--- a/oni/home/config/pop-os/emacs.el
+++ b/oni/home/config/pop-os/emacs.el
@@ -1306,3 +1306,43 @@ Optional argument STOPP means stop on any defect."
                         (org-mem-entries-in file))
          collect file)))
 (add-hook 'org-mem-post-full-scan-functions #'my-set-agenda-files)
+
+;;; Prodigy services
+
+(prodigy-define-tag
+  :name 'tunnel
+  :command "~/code/diamond-interactive/social-api/toolbox/connect_db.sh"
+  :args (lambda (&rest args)
+          (let ((service (map-elt args :service)))
+            (list "-e"
+                  (if (prodigy-service-tagged-with? service 'production)
+                      "prd"
+                    "stg")
+                  "-a"
+                  (cond
+                   ((prodigy-service-tagged-with? service 'chanced)
+                    "chanced")
+                   ((prodigy-service-tagged-with? service 'punt)
+                    "punt")
+                   (t (error "Unknown project")))
+                  "-k"
+                  (expand-file-name "~/.ssh/id_ed25519.pub"))))
+  :cwd "~/code/diamond-interactive/social-api"
+  :stop-signal 'kill
+  :ready-message "Waiting for connections...")
+
+(prodigy-define-service
+  :name "Chanced Production Database Connection"
+  :tags '(chanced production tunnel))
+
+(prodigy-define-service
+  :name "Chanced Staging Database Connection"
+  :tags '(chanced staging tunnel))
+
+(prodigy-define-service
+  :name "Punt Production Database Connection"
+  :tags '(punt production tunnel))
+
+(prodigy-define-service
+  :name "Punt Staging Database Connection"
+  :tags '(punt staging tunnel))