Quelpa rework for ti

This commit is contained in:
Benson Chu 2022-10-16 13:33:47 -05:00
parent 0695a7748f
commit abade3d987
2 changed files with 4 additions and 5 deletions

View file

@ -472,16 +472,15 @@
(define-key emacs-lisp-mode-map (kbd "C-c C-e") 'my/eval-and-replace)
;; Use cider's eval expression
(let ((quelpa-build-default-files-spec
(let ((fetcher (if my-ec/at-ti "github" "github-ssh"))
(quelpa-build-default-files-spec
'("*.el" "lisp/*.el"
"dir" "*.info" "*.texi" "*.texinfo"
"doc/dir" "doc/*.info" "doc/*.texi" "doc/*.texinfo"
"docs/dir" "docs/*.info" "docs/*.texi" "docs/*.texinfo"
(:exclude
".dir-locals.el" "lisp/.dir-locals.el"))))
(use-package cider
:ensure nil
:quelpa (cider :fetcher "github-ssh" :repo "pestctrl/cider" :branch "consecutive-overlays")))
(quelpa cider :repo "pestctrl/cider" :branch "consecutive-overlays" :fetcher fetcher))
(autoload 'cider--make-result-overlay "cider-overlays")
(defun endless/eval-overlay (value point)

View file

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