Don't use github-ssh in noninteractive mode

config-min.org

@@ -557,7 +557,7 @@
   (define-key emacs-lisp-mode-map (kbd "C-c C-e") 'my/eval-and-replace)
 
   ;; Use cider's eval expression
-  (let ((fetcher (if my-ec/at-ti "github" "github-ssh"))
+  (let ((fetcher (if (or noninteractive my-ec/at-ti) "github" "github-ssh"))
         (quelpa-build-default-files-spec
          '("*.el" (:exclude ".dir-locals.el"))))
     (quelpa `(cider :repo "clojure-emacs/cider" :branch "master" :fetcher ,fetcher)))

config-programming.org

@@ -32,7 +32,7 @@
 #+end_src
 * Yasnippets
 #+BEGIN_SRC emacs-lisp
-  (let ((fetcher (if my-ec/at-ti "github" "github-ssh")))
+  (let ((fetcher (if (or noninteractive my-ec/at-ti) "github" "github-ssh")))
     (quelpa `(yasnippet :repo "pestctrl/yasnippet" :branch "quit-undo-tree" :fetcher ,fetcher)))
   (use-package java-snippets)
 #+END_SRC

lisp/org-config/my-org-agenda-commands.el

@@ -40,7 +40,7 @@
 (use-package peg)
 (use-package ov)
 (use-package dash-functional)
-(let ((fetcher (if my-ec/at-ti "github" "github-ssh")))
+(let ((fetcher (if (or noninteractive my-ec/at-ti) "github" "github-ssh")))
   (quelpa `(org-ql :repo "pestctrl/org-ql" :branch "my-changes" :fetcher ,fetcher)))
 (require 'org-ql)
 (require 'org-ql-search)

lisp/org-config/my-org-misc.el

@@ -157,7 +157,7 @@
   (define-key org-agenda-mode-map (kbd "j")
     #'org-agenda-jump-to-heading-show))
 
-(let ((fetcher (if my-ec/at-ti "github" "github-ssh")))
+(let ((fetcher (if (or noninteractive my-ec/at-ti) "github" "github-ssh")))
   (quelpa `(org-ql :repo "pestctrl/org-ql" :branch "my-changes" :fetcher ,fetcher)))
 (require 'org-ql-find)
 

lisp/use-exwm.el

@@ -32,7 +32,7 @@
   `(use-package exwm
      :ensure nil
      :defer t
-     :quelpa (exwm :fetcher ,(if my-ec/at-ti "github" "github-ssh") :repo "pestctrl/exwm")
+     :quelpa (exwm :fetcher ,(if (or noninteractive my-ec/at-ti) "github" "github-ssh") :repo "pestctrl/exwm")
      ,@body))
 
 (provide 'use-exwm)