Account for providers gunicorn changes

emacs/.emacs.d/config/init-prodigy.el

@@ -81,13 +81,13 @@
 	(funcall create-process)
         (let ((tryout 0))
           (prodigy-every 1
-                         (lambda (next)
+              (lambda (next)
-                           (setq tryout (1+ tryout))
+                (setq tryout (1+ tryout))
-                           (if (process-live-p process)
+                (if (process-live-p process)
-                               (when callback (funcall callback))
+                    (when callback (funcall callback))
-                             (if (= tryout prodigy-start-tryouts)
+                  (if (= tryout prodigy-start-tryouts)
-                                 (prodigy-set-status service 'failed)
+                      (prodigy-set-status service 'failed)
-                               (funcall next))))))
+                    (funcall next))))))
         (plist-put service :process process)
 	(when (not (plist-get service :inhibit-process-filter))
 	  (set-process-filter
@@ -203,6 +203,7 @@
     :tags '(lola backend)
     :command "python"
     :args '("bin/cmdline.py" "www")
+    :env '(("PORT" "7450"))
     :cwd "~/lola/secrets"
     :truncate-output t
     :stop-signal 'int
@@ -263,7 +264,7 @@
     :name "priceline-service"
     :tags '(lola backend)
     :command "~/lola/python_services/priceline/bin/start.sh"
-    :args '("web")
+    :args '("web-dev")
     :cwd "~/lola/python_services"
     :stop-signal 'int
     :init-async (python-service-setup "~/lola/python_services/.venv"
@@ -275,7 +276,7 @@
     :tags '(lola backend)
     :command "bash"
     :args '("-c"
-            "priceline_cars/bin/start.sh web >> ~/lola/logs/priceline-cars.log 2>&1")
+            "priceline_cars/bin/start.sh web-dev >> ~/lola/logs/priceline-cars.log 2>&1")
     :cwd "~/lola/python_services"
     :inhibit-process-filter t
     :file "~/lola/logs/priceline-cars.log"
@@ -288,7 +289,7 @@
     :name "threev-service"
     :tags '(lola backend)
     :command "~/lola/python_services/threev/bin/start.sh"
-    :args '("web")
+    :args '("web-dev")
     :cwd "~/lola/python_services"
     :stop-signal 'int
     :init-async (python-service-setup "~/lola/python_services/.venv"
@@ -299,7 +300,7 @@
     :name "amd-flight-service"
     :tags '(lola backend)
     :command "~/lola/python_services/amd_flight/bin/start.sh"
-    :args '("web")
+    :args '("web-dev")
     :cwd "~/lola/python_services"
     :stop-signal 'int
     :init-async (python-service-setup "~/lola/python_services/.venv"
@@ -311,7 +312,7 @@
     :tags '(lola backend)
     :command "bash"
     :args '("-c"
-            "ean_hotels/bin/start.sh web >> ~/lola/logs/ean-hotels.log 2>&1")
+            "ean_hotels/bin/start.sh web-dev >> ~/lola/logs/ean-hotels.log 2>&1")
     :cwd "~/lola/python_services"
     :inhibit-process-filter t
     :file "~/lola/logs/ean-hotels.log"

emacs/.emacs.d/config/init-python.el

@@ -29,7 +29,8 @@
     :predicate flycheck-buffer-saved-p
     :working-directory (lambda (checker)
                          (or (projectile-compilation-dir)
-                             default-directory))))
+                             default-directory)))
+  (add-to-list 'flycheck-disabled-checkers 'python-flake8))
 
 ;; pyvenv to track virtual environments
 (use-package pyvenv

emacs/.emacs.d/config/init-ui.el

@@ -26,4 +26,13 @@
                                       (delete-dups (font-family-list)))))
   (set-frame-font font))
 
+(defun text-scale-reset ()
+  (interactive)
+  (text-scale-increase 0))
+
+(general-def
+  "C-c +" #'text-scale-increase
+  "C-c -" #'text-scale-decrease
+  "C-c 0" #'text-scale-reset)
+
 (provide 'init-ui)

emacs/.emacs.d/config/init-wallabag.el

@@ -0,0 +1,17 @@
+;; -*- lexical-binding: t; -*-
+(use-package wallabag
+  :straight (:host github :repo "chenyanming/wallabag.el" :files ("*.el" "emojis.alist"))
+  :commands (wallabag
+             wallabag-find
+             wallabag-full-update
+             wallabag-request-token
+             wallabag-add-entry
+             wallabag-insert-entry)
+  :config
+  (setq wallabag-host "https://wallabag.jeremydormitzer.com"
+        wallabag-username "jdormit"
+        wallabag-password (password-store-get "wallabag.jeremydormitzer.com")
+        wallabag-clientid (password-store-get "wallabag-client-id")
+        wallabag-secret (password-store-get "wallabag-client-secret")))
+
+(provide 'init-wallabag)

emacs/.emacs.d/config/init-xml.el

@@ -4,6 +4,17 @@
   :straight (:type built-in)
   :defer t
   :config
+  (defun xml-pretty-print ()
+    (interactive)
+    (let ((start (if (region-active-p) (region-beginning) (point-min)))
+	  (end (if (region-active-p) (region-end) (point-max))))
+      (cond
+       ((executable-find "tidy")
+	(shell-command-on-region start end "tidy -wrap 88 -q -i -xml" nil t))
+       ((executable-find "xmllint")
+	(shell-command-on-region start end "xmllint --format -" nil t))
+       (t (sgml-pretty-print start end)))))
+  (general-def nxml-mode-map "C-M-\\" #'xml-pretty-print)
   (add-to-list 'hs-special-modes-alist
 	       '(nxml-mode
 	         "<!--\\|<[^/>]*[^/]>" ;; regexp for start block

emacs/.emacs.d/init.el

@@ -105,6 +105,7 @@
 (require 'init-homebrew)
 (require 'init-elfeed)
 (require 'init-1pass)
+(require 'init-wallabag)
 (require 'init-lola)
 
 (when (file-exists-p custom-file)