swarsel/.dotfiles
1
0
Fork 0
mirror of https://github.com/Swarsel/.dotfiles.git synced 2026-04-14 13:19:09 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

chore[client]: improve emacs repolist
Some checks failed
Build and Deploy / build (push) Has been cancelled
Details
Flake check / Check flake (push) Has been cancelled
Details
Build and Deploy / deploy (push) Has been cancelled
Details

Browse source
This commit is contained in:
Leon Schwarzäugl 2026-03-05 23:14:13 +01:00
parent 05548fdfcb
commit b1b2fc68a3
Signed by: swarsel
GPG key ID: 26A54C31F2A4FD84
2 changed files with 41 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
SwarselSystems.org
View file

@ -32138,17 +32138,30 @@ At work and when working on private projects, I often have to jump between sever
We set a keybinding to this in [[#h:2b827c27-0de7-45ed-9d9e-6c511e2c6bb5][Custom Keybindings]]. We set a keybinding to this in [[#h:2b827c27-0de7-45ed-9d9e-6c511e2c6bb5][Custom Keybindings]].
#+begin_src emacs-lisp #+begin_src emacs-lisp
(declare-function consult--read "consult")
(defun swarsel/consult-magit-repos () (defun swarsel/consult-magit-repos ()
(interactive) (interactive)
(require 'magit) (require 'magit)
(let* ((repos (magit-list-repos)) (let ((repos (magit-list-repos)))
(repo (consult--read repos (unless repos
:prompt "Magit repo: " (user-error "No repositories found in `magit-repository-directories'"))
:require-match t (let ((repo
:history 'my/consult-magit-repos-history (if (or (fboundp 'consult--read)
:sort t))) (require 'consult nil t))
(magit-status repo))) (consult--read repos
:prompt "Magit repo: "
:require-match t
:history 'my/consult-magit-repos-history
:sort t)
(completing-read "Magit repo: "
repos
nil
t
nil
'my/consult-magit-repos-history))))
(when (and repo (> (length repo) 0))
(magit-status repo)))))
#+end_src #+end_src
**** org-mode: General setup **** org-mode: General setup

28
files/emacs/init.el
View file

@ -162,16 +162,30 @@ create a new one."
(define-key minibuffer-local-filename-completion-map (define-key minibuffer-local-filename-completion-map
[C-backspace] #'up-directory) [C-backspace] #'up-directory)
(declare-function consult--read "consult")
(defun swarsel/consult-magit-repos () (defun swarsel/consult-magit-repos ()
(interactive) (interactive)
(require 'magit) (require 'magit)
(let* ((repos (magit-list-repos)) (let ((repos (magit-list-repos)))
(repo (consult--read repos (unless repos
:prompt "Magit repo: " (user-error "No repositories found in `magit-repository-directories'"))
:require-match t (let ((repo
:history 'my/consult-magit-repos-history (if (or (fboundp 'consult--read)
:sort t))) (require 'consult nil t))
(magit-status repo))) (consult--read repos
:prompt "Magit repo: "
:require-match t
:history 'my/consult-magit-repos-history
:sort t)
(completing-read "Magit repo: "
repos
nil
t
nil
'my/consult-magit-repos-history))))
(when (and repo (> (length repo) 0))
(magit-status repo)))))
(defun swarsel/org-mode-setup () (defun swarsel/org-mode-setup ()
(variable-pitch-mode 1) (variable-pitch-mode 1)