JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-14 08:01:35 +09:00
Code Issues Packages Projects Releases Wiki Activity

Ivy to vertico for consult-rgrep

Browse Source
This commit is contained in:
JaeYoo-Im
2021-10-01 01:12:40 +09:00
parent 69f388492c
commit 67e64d15b3
1 changed files with 170 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

264
.emacs.d/emacs.org
View File

@ -267,8 +267,8 @@ https://nathantypanski.com/blog/2014-08-03-a-vim-like-emacs-config.html
;; Set frame transparency ;; Set frame transparency
(set-frame-parameter (selected-frame) 'alpha gvar/frame-transparency) (set-frame-parameter (selected-frame) 'alpha gvar/frame-transparency)
(add-to-list 'default-frame-alist `(alpha . ,gvar/frame-transparency)) (add-to-list 'default-frame-alist `(alpha . ,gvar/frame-transparency))
(set-frame-parameter (selected-frame) 'fullscreen 'maximized) ;;(set-frame-parameter (selected-frame) 'fullscreen 'maximized)
(add-to-list 'default-frame-alist '(fullscreen . maximized)) ;;(add-to-list 'default-frame-alist '(fullscreen . maximized))
#+end_src #+end_src
* Dashboard * Dashboard
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -492,23 +492,6 @@ https://emacs.stackexchange.com/a/30691
(ignore-case t) (ignore-case t)
(duplicates t))) (duplicates t)))
#+end_src #+end_src
** Consult
#+begin_src emacs-lisp
(defun dw/get-project-root ()
(when (fboundp 'projectile-project-root)
(projectile-project-root)))
(use-package consult
:demand t
:bind (("C-s" . consult-line)
("C-M-l" . consult-imenu)
("C-M-j" . persp-switch-to-buffer*)
:map minibuffer-local-map
("C-r" . consult-history))
:custom
(consult-project-root-function #'dw/get-project-root)
(completion-in-region-function #'consult-completion-in-region))
#+end_src
** Prescient ** Prescient
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -542,21 +525,6 @@ https://emacs.stackexchange.com/a/30691
"ie" '(emojify-insert-emoji :which-key "emoji")) "ie" '(emojify-insert-emoji :which-key "emoji"))
#+end_src #+end_src
* Counsel
#+begin_src emacs-lisp
(use-package counsel
:bind (("M-x" . counsel-M-x)
;;("C-M-j" . counsel-switch-buffer)
:map minibuffer-local-map
("C-r" . 'counsel-minibuffer-history))
:custom
(counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
:config
;; Don't use ^ as initial input. Set this here because `counsel' defines more
;; of its own, on top of the defaults.
(setq ivy-initial-inputs-alist nil)
(counsel-mode 1))
#+end_src
* World Time * World Time
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -567,60 +535,155 @@ https://emacs.stackexchange.com/a/30691
(setq display-time-world-time-format "%a, %d %b %I:%M %p %Z") (setq display-time-world-time-format "%a, %d %b %I:%M %p %Z")
#+end_src #+end_src
* IVY * IVY Related
** IVY
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package ivy ;; (use-package ivy
:diminish ;; :diminish
:bind (("C-s" . swiper) ;; :bind (("C-s" . swiper)
:map ivy-minibuffer-map ;; :map ivy-minibuffer-map
("TAB" . ivy-alt-done) ;; ("TAB" . ivy-alt-done)
("C-l" . ivy-alt-done) ;; ("C-l" . ivy-alt-done)
("C-j" . ivy-next-line) ;; ("C-j" . ivy-next-line)
("C-k" . ivy-previous-line) ;; ("C-k" . ivy-previous-line)
:map ivy-switch-buffer-map ;; :map ivy-switch-buffer-map
("C-k" . ivy-previous-line) ;; ("C-k" . ivy-previous-line)
("C-l" . ivy-done) ;; ("C-l" . ivy-done)
("C-d" . ivy-switch-buffer-kill) ;; ("C-d" . ivy-switch-buffer-kill)
:map ivy-reverse-i-search-map ;; :map ivy-reverse-i-search-map
("C-k" . ivy-previous-line) ;; ("C-k" . ivy-previous-line)
("C-d" . ivy-reverse-i-search-kill)) ;; ("C-d" . ivy-reverse-i-search-kill))
:config ;; :config
(ivy-mode 1)) ;; (ivy-mode 1))
;;
(use-package ivy-rich ;; (use-package ivy-rich
:after ivy ;; :after ivy
:init ;; :init
(ivy-rich-mode 1) ;; (ivy-rich-mode 1)
(ivy-rich-project-root-cache-mode 1)) ;; (ivy-rich-project-root-cache-mode 1))
;;
(use-package ivy-posframe ;; (use-package ivy-posframe
;;:disabled ;; ;;:disabled
:after ivy ;; :after ivy
:diminish ;; :diminish
:init ;; :init
(setq ivy-posframe-display-functions-alist ;; (setq ivy-posframe-display-functions-alist
'((swiper . ivy-posframe-display-at-point) ;; '((swiper . ivy-posframe-display-at-point)
(emojify-insert-emoji . ivy-display-function-fallback) ;; (emojify-insert-emoji . ivy-display-function-fallback)
(t . ivy-posframe-display))) ;; (t . ivy-posframe-display)))
:custom-face ;; :custom-face
(ivy-posframe-border ((t (:background "#ffffff")))) ;; (ivy-posframe-border ((t (:background "#ffffff"))))
:config ;; :config
(setq ivy-posframe-height-minibuffer nil) ;; (setq ivy-posframe-height-minibuffer nil)
(setq ivy-posframe-parameters '((internal-border-width . 1))) ;; (setq ivy-posframe-parameters '((internal-border-width . 1)))
(ivy-posframe-mode 1)) ;; (ivy-posframe-mode 1))
;;
(use-package ivy-prescient ;; (use-package ivy-prescient
:after counsel ;; :after counsel
:custom ;; :custom
(ivy-prescient-enable-filtering nil) ;; (ivy-prescient-enable-filtering nil)
:config ;; :config
;; Uncomment the following line to have sorting remembered across sessions! ;; ;; Uncomment the following line to have sorting remembered across sessions!
;(prescient-persist-mode 1) ;; ;(prescient-persist-mode 1)
(ivy-prescient-mode 1)) ;; (ivy-prescient-mode 1))
(use-package all-the-icons-ivy ;; (use-package all-the-icons-ivy
:init (add-hook 'after-init-hook 'all-the-icons-ivy-setup)) ;; :init (add-hook 'after-init-hook 'all-the-icons-ivy-setup))
#+end_src #+end_src
** Counsel
#+begin_src emacs-lisp
;; (use-package counsel
;; :bind (("M-x" . counsel-M-x)
;; ;;("C-M-j" . counsel-switch-buffer)
;; :map minibuffer-local-map
;; ("C-r" . 'counsel-minibuffer-history))
;; :custom
;; (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
;; :config
;; ;; Don't use ^ as initial input. Set this here because `counsel' defines more
;; ;; of its own, on top of the defaults.
;; (setq ivy-initial-inputs-alist nil)
;; (counsel-mode 1))
#+end_src
* Vertico Related
** Vertico
#+begin_src emacs-lisp
(use-package vertico
:ensure t
:bind (:map vertico-map
("C-j" . vertico-next)
("C-k" . vertico-previous))
:custom
(vertico-cycle t)
:init
(vertico-mode))
(use-package savehist
:init
(savehist-mode))
(use-package marginalia
:after vertico
:ensure t
:custom
(marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
:init
(marginalia-mode))
#+end_src
** Orderless
#+begin_src emacs-lisp
(use-package orderless
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles . (partial-completion))))))
#+end_src
** Embark
#+begin_src emacs-lisp
(use-package embark
:bind (("C-S-a" . embark-act)
:map minibuffer-local-map
("C-d" . embark-act))
:config
;; Show Embark actions via which-key
(setq embark-action-indicator
(lambda (map)
(which-key--show-keymap "Embark" map nil nil 'no-paging)
#'which-key--hide-popup-ignore-command)
embark-become-indicator embark-action-indicator))
(use-package embark-consult
:after embark)
#+end_src
** Consult
#+begin_src emacs-lisp
(defun dw/get-project-root ()
(when (fboundp 'projectile-project-root)
(projectile-project-root)))
(use-package consult
:demand t
:bind (("C-s" . consult-line)
("C-M-l" . consult-imenu)
("C-M-j" . persp-switch-to-buffer*)
:map minibuffer-local-map
("C-r" . consult-history))
:custom
(consult-project-root-function #'dw/get-project-root)
(completion-in-region-function #'consult-completion-in-region))
(use-package consult-dir
:straight t
:bind (("C-x C-d" . consult-dir)
:map vertico-map
("C-x C-d" . consult-dir)
("C-x C-j" . consult-dir-jump-file))
:custom
(consult-dir-project-list-function nil))
#+end_src
* Avy (like easymotion) * Avy (like easymotion)
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package avy (use-package avy
@ -633,6 +696,10 @@ https://emacs.stackexchange.com/a/30691
#+end_src #+end_src
* Projectile * Projectile
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun dw/switch-project-action ()
"Switch to a workspace with the project name and start `magit-status'."
(persp-switch (projectile-project-name))
(magit-status))
(use-package projectile (use-package projectile
:diminish projectile-mode :diminish projectile-mode
:config :config
@ -645,16 +712,17 @@ https://emacs.stackexchange.com/a/30691
:init :init
;; NOTE: Set this to the folder where you keep your Git repos! ;; NOTE: Set this to the folder where you keep your Git repos!
(when (file-directory-p "~/Projects") (when (file-directory-p "~/Projects")
(setq projectile-project-search-path '("~/Projects")))) (setq projectile-project-search-path '("~/Projects")))
;(setq projectile-switch-project-action #'dw/switch-project-action)) (setq projectile-switch-project-action #'dw/switch-project-action))
(use-package counsel-projectile (use-package counsel-projectile
:disabled
:after projectile :after projectile
:config (counsel-projectile-mode)) :config (counsel-projectile-mode))
(ju/leader-key-def (ju/leader-key-def
"p." 'counsel-projectile-find-file "p." 'projectile-find-file
"ps" 'counsel-projectile-switch-project "ps" 'projectile-switch-project
"pg" 'counsel-projectile-rg "pg" 'consult-ripgrep
"pp" 'counsel-projectile
"pc" 'projectile-compile-project "pc" 'projectile-compile-project
"pd" 'projectile-dired) "pd" 'projectile-dired)
;;(defun dw/switch-project-action () ;;(defun dw/switch-project-action ()
@ -669,7 +737,7 @@ https://emacs.stackexchange.com/a/30691
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package perspective (use-package perspective
:demand t :demand t
:bind (("C-M-j" . persp-counsel-switch-buffer) :bind (("C-M-j" . consult-buffer)
("C-M-k" . persp-switch) ("C-M-k" . persp-switch)
("C-M-n" . persp-next) ("C-M-n" . persp-next)
("C-x k" . persp-kill-buffer*)) ("C-x k" . persp-kill-buffer*))
@ -689,9 +757,9 @@ https://emacs.stackexchange.com/a/30691
(counsel-describe-function-function #'helpful-callable) (counsel-describe-function-function #'helpful-callable)
(counsel-describe-variable-function #'helpful-variable) (counsel-describe-variable-function #'helpful-variable)
:bind :bind
([remap describe-function] . counsel-describe-function) ([remap describe-function] . describe-function)
([remap describe-command] . helpful-command) ([remap describe-command] . helpful-command)
([remap describe-variable] . counsel-describe-variable) ([remap describe-variable] . describe-variable)
([remap describe-key] . helpful-key)) ([remap describe-key] . helpful-key))
#+end_src #+end_src
* Hydra * Hydra
@ -752,6 +820,9 @@ https://emacs.stackexchange.com/a/30691
:hook (org-mode . efs/org-mode-setup) :hook (org-mode . efs/org-mode-setup)
:config :config
(setq org-ellipsis " ▾") (setq org-ellipsis " ▾")
(setq org-hide-emphasis-markers t)
(setq org-src-fontify-natively t)
(setq org-fontify-quote-and-verse-blocks t)
(setq org-agenda-start-with-log-mode t) (setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time) (setq org-log-done 'time)
@ -920,6 +991,11 @@ https://emacs.stackexchange.com/a/30691
:config :config
(setq ob-translate:default-dest "ko")) (setq ob-translate:default-dest "ko"))
#+end_src #+end_src
** Org Noter
#+begin_src emacs-lisp
(use-package org-noter)
#+end_src
* Magit * Magit
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package magit (use-package magit