flinner
/
dots
mirror of https://github.com/Flinner/dots.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

feat: helm, counsel, and other completions (telega, circe, kill-ring)

This commit is contained in:
Flinner Yuu 2022-04-11 22:39:50 +03:00
parent 18705a674d
commit 4fafabeffd
Signed by: flinner
GPG Key ID: 95CE0DA7F0E58CA6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
emacs.mine/.config/emacs.mine/emacs.org
View File

@ -450,6 +450,7 @@ Capture
"om" '(mu4e :which-key "mu4e") "om" '(mu4e :which-key "mu4e")
"ot" '(telega :which-key "Telega") "ot" '(telega :which-key "Telega")
"oc" '(circe :which-key "Circe")
"oe" '(elfeed-dashboard :which-key "Elfeed Dashboard") "oe" '(elfeed-dashboard :which-key "Elfeed Dashboard")
#+end_src #+end_src
@ -459,6 +460,7 @@ Capture
"i" '(:ignore t :which-key "Insert") "i" '(:ignore t :which-key "Insert")
"ie" '(emoji-insert :which-key "Emoji") "ie" '(emoji-insert :which-key "Emoji")
"if" '(my/counsel-insert-file-path :which-key "Insert Relative path") "if" '(my/counsel-insert-file-path :which-key "Insert Relative path")
"ik" '(helm-show-kill-ring :which-key "Insert from Kill ring")
#+end_src #+end_src
**** Buffers (b) **** Buffers (b)
@ -473,6 +475,7 @@ Capture
"bb" '(helm-buffers-list :which-key "Switch to buffer") "bb" '(helm-buffers-list :which-key "Switch to buffer")
"bc" '(my/circe/helm-buffers :which-key "Circe Helm") "bc" '(my/circe/helm-buffers :which-key "Circe Helm")
"bt" '(telega-switch-buffer :which-key "Telega buffers")
#+end_src #+end_src
**** Windows (w) **** Windows (w)
@ -2167,15 +2170,15 @@ I wrote that, neat isn't it? :P
(helm-build-sync-source (buffer-name server-buf) (helm-build-sync-source (buffer-name server-buf)
:candidates :candidates
(cons (cons (buffer-name server-buf) server-buf) (cons (cons (buffer-name server-buf) server-buf)
(cl-loop for buf in (with-current-buffer server-buf (circe-server-channel-buffers)) (cl-loop for buf in (with-current-buffer server-buf (circe-server-chat-buffers))
collect (cons collect (cons
(let ((buf-name (buffer-name buf))) (let ((buf-name (buffer-name buf)))
(concat buf-name (concat buf-name
; add " ***" if buffer has new messagse ; add " ***" if buffer has new messagse
(if (member buf-name tracking-buffers) " ***" ""))) (if (member buf-name tracking-buffers) " ***" "")))
buf))) buf)))
:action (list (cons "Switch to circe" #'switch-to-buffer)))) :action (list (cons "Switch to circe" #'switch-to-buffer)
(cons "Kill buffer" #'kill-buffer))))
(defun my/circe/helm-buffers () (defun my/circe/helm-buffers ()
"Switch between circe buffers using helm" "Switch between circe buffers using helm"