@@ -764,14 +753,12 @@ Table of Contents
-Installation
-
+
Installation
-Configuration
-
+
Configuration
(use-package cape
:after corfu
;; Bind dedicated completion commands
:bind (("C-c c p" . completion-at-point) ;; capf
("C-c c t" . complete-tag) ;; etags
("C-c c d" . cape-dabbrev) ;; or dabbrev-completion
("C-c c f" . cape-file)
("C-c c k" . cape-keyword)
("C-c c s" . cape-symbol)
("C-c c a" . cape-abbrev)
("C-c c i" . cape-ispell)
("C-c c l" . cape-line)
("C-c c w" . cape-dict)
("C-c c \\" . cape-tex)
("C-c c &" . cape-sgml)
("C-c c r" . cape-rfc1345))
:init
;; Add `completion-at-point-functions', used by `completion-at-point'.
(setq cape-dabbrev-check-other-buffers nil
cape-dabbrev-min-length 3
dabbrev-case-fold-search t)
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-tex)
(add-to-list 'completion-at-point-functions #'cape-keyword))
;;(add-to-list 'completion-at-point-functions #'cape-sgml)
;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
;;(add-to-list 'completion-at-point-functions #'cape-ispell)
;;(add-to-list 'completion-at-point-functions #'cape-dict)
;;(add-to-list 'completion-at-point-functions #'cape-symbol)
;;(add-to-list 'completion-at-point-functions #'cape-line)
@@ -781,50 +768,37 @@ Table of Contents
-Installation
-
+
Installation
(package! corfu :recipe (:host github :repo "minad/corfu" :files ("*.el" "extensions/*.el")))
(package! popon :recipe (:type git :repo "https://codeberg.org/akib/emacs-popon.git"))
(package! corfu-terminal :recipe (:type git :repo "https://codeberg.org/akib/emacs-corfu-terminal.git"))
-Configuration
-
+
Configuration
(use-package corfu
:bind (:map corfu-map
("\\" . corfu-quit)
("TAB" . corfu-next)
("S-TAB" . corfu-previous)
("<tab>" . corfu-next)
("<backtab>" . corfu-previous)
("M-s" . corfu-insert-separator))
:hook (doom-first-input . global-corfu-mode)
;; Optional customizations
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
(corfu-auto t)
(corfu-auto-delay 0)
(corfu-auto-prefix 3)
(corfu-preselect 'prompt)
;; (corfu-commit-predicate nil) ;; Do not commit selected candidates on next input
;; (corfu-quit-at-boundary t) ;; Automatically quit at word boundary
(corfu-quit-no-match 'separator)) ;; Automatically quit if there is no match
;; (corfu-echo-documentation nil) ;; Do not show documentation in the echo area
;; You may want to enable Corfu only for certain modes.
;; :hook ((prog-mode . corfu-mode)
;; (shell-mode . corfu-mode)
;; (eshell-mode . corfu-mode))
;; Dabbrev works with Corfu
(use-package dabbrev
:custom (dabbrev-search-all-buffers nil)
;; Swap M-/ and C-M-/
:bind (("M-/" . dabbrev-completion)
("C-M-/" . dabbrev-expand)))
;; A few more useful configurations...
(use-package emacs
:init
;; TAB cycle if there are only few candidates
(setq completion-cycle-threshold 3)
;; Emacs 28: Hide commands in M-x which do not work in the current mode.
;; Corfu commands are hidden, since they are not supposed to be used via M-x.
(setq read-extended-command-predicate
#'command-completion-default-include-p)
;; Enable indentation+completion using the TAB key.
;; `completion-at-point' is often bound to M-TAB.
(setq tab-always-indent 'complete))
-Color picker (Zenity)
-
-
(package! zenity-color-picker)
+
Color picker (Zenity)
+
(package! zenity-color-picker)
(map! :leader :n "e c" #'zenity-cp-color-at-point-dwim)
-Yasnippet
-Fixes the issue where when a placeholder appeared on an empty line, no
-indentation was applied. For instance, this:
-
-would be expanded to this:
-
-
1. bla
,#+begin_quote
|
,#+end_quote
quite annoing…
-
+
YasnippetFixes the issue where when a placeholder appeared on an empty line, no
+indentation was applied. For instance, this:
would be expanded to this:
+
1. bla
,#+begin_quote
|
,#+end_quote
quite annoing…
(setq yas-also-indent-empty-lines t)
-
-Movimentos entre campos
-Uma dessas coisas que se imagina, por que não fizeram assim?
-
+
Movimentos entre camposUma dessas coisas que se imagina, por que não fizeram assim?
(defadvice! my-yas--maybe-move-to-active-field (snippet)
"Try to move to SNIPPET's active (or first) field and return it if found."
:override #'yas--maybe-move-to-active-field
(let ((target-field (or (yas--snippet-active-field snippet)
(car (yas--snippet-fields snippet)))))
(when target-field
(yas--move-to-field snippet target-field)
(goto-char (yas--field-end target-field))
target-field)))
-
-Interaction with Corfu
-
+
Interaction with Corfu
(defadvice! yas-expand-filter-corfu-a (&rest r)
:before-while #'yas-maybe-expand-abbrev-key-filter
(not (and (frame-live-p corfu--frame) (frame-visible-p corfu--frame))))
@@ -833,10 +807,8 @@ Table of Contents
-
-Kind-icon
-
-
+
Kind-icon
(use-package kind-icon
:after corfu
:custom
(kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly
:config
(setq kind-icon-default-style '(:padding 0 :stroke 0 :margin 0 :radius 0 :height 0.8 :scale 1.0))
(add-hook! 'doom-load-theme-hook #'kind-icon-reset-cache)
(add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))
@@ -850,36 +822,29 @@ Table of Contents
-
-Installation
-
+
Installation
-
-Configuration
-
+
Configuration
(use-package consult
:bind (:map doom-leader-map
("," . consult-buffer)))
(after! consult
(map! :n "M-y" #'consult-yank-replace
:leader "h I" #'consult-info
"r r" #'consult-register
"r s" #'consult-register-store
"r l" #'consult-register-load))
-
-Orderless
-
-
(use-package corfu
:config
(setq completion-styles '(basic-limited orderless basic)))
Também quero que tenha inicialismos (por exemplo, hmlm -> hide-mode-line-mode):
-
+
Orderless
+
(use-package corfu
:config
(setq completion-styles '(basic-limited orderless basic)))
Também quero que tenha inicialismos (por exemplo, hmlm -> hide-mode-line-mode):
(setq orderless-matching-styles
'(orderless-initialism
orderless-literal
orderless-regexp))
-
-Orderless fast dispatch
-
+
Orderless fast dispatch
(defun basic-limited-all-completions (string table pred point)
(when (length< string 4)
(completion-emacs21-all-completions string table pred point)))
(defun basic-limited-try-completion (string table pred point)
(when (length< string 4)
(completion-emacs21-try-completion string table pred point)))
(add-to-list 'completion-styles-alist
'(basic-limited
basic-limited-try-completion
basic-limited-all-completions
"Limited basic completion."))
-
-Register interaction with Evil
-
+
Register interaction with Evil
(after! (consult evil)
(defadvice! evil-paste--pretend-to-be-yank-a (&rest _r)
:after #'evil-paste-after
:after #'evil-paste-before
(setq this-command 'yank
yank-undo-function (lambda (_ _) (evil-undo-pop)))))
-
@@ -889,23 +854,19 @@ Table of Contents
-
-Configuration
-
+
Configuration
(use-package vertico
:bind (:map vertico-map
("M-k" . vertico-next)
("M-j" . vertico-previous))
:config
;; (vertico-reverse-mode +1)
(setq vertico-resize nil
vertico-count 8))
Help and error system
-Eldoc-box
-
+
Eldoc-box
-Jinx (spell)
-
-
+
Jinx (spell)
(use-package jinx
:config
(setq jinx-languages "pt_BR en_US")
(dolist (hook '(text-mode-hook conf-mode-hook))
(add-hook hook #'jinx-mode))
(define-key evil-visual-state-map "z=" 'jinx-correct)
(define-key evil-normal-state-map "z=" 'jinx-correct))
@@ -915,10 +876,8 @@ Table of Contents
Posframe
-ARCHIVE
-
-
(package! which-key-posframe)
+
ARCHIVE
+
(package! which-key-posframe)
(use-package which-key-posframe
:hook (which-key-mode . which-key-posframe-mode)
:config
(add-hook 'doom-after-reload-hook #'posframe-delete-all)
(setq which-key-posframe-poshandler #'posframe-poshandler-frame-bottom-center))
@@ -930,18 +889,13 @@ Table of Contents
-
-Variables
-
-
(setq evil-shift-round nil
evil-cross-lines t
evil-move-cursor-back nil
evil-want-fine-undo t
evil-snipe-spillover-scope 'visible
evil-respect-visual-line-mode t
;; Substitui vários matches por linha no evil-ex
evil-ex-substitute-global t)
This is very important. The newline at the end of a line is a character too!
-
+
Variables
+
(setq evil-shift-round nil
evil-cross-lines t
evil-move-cursor-back nil
evil-want-fine-undo t
evil-snipe-spillover-scope 'visible
evil-respect-visual-line-mode t
;; Substitui vários matches por linha no evil-ex
evil-ex-substitute-global t)
This is very important. The newline at the end of a line is a character too!
(setq evil-move-beyond-eol t)
-
-Mouse bindings for multicursor (evil-mc)
-Toggle multicursors at mouse pointer with C-<mouse-1>.
-
+
Mouse bindings for multicursor (evil-mc)Toggle multicursors at mouse pointer with C-<mouse-1>.
(defun evil-mc/toggle-cursor-on-click (event)
"Add a cursor where you click, or remove a fake cursor that is
already there."
(interactive "e")
(mouse-minibuffer-check event)
(require 'evil-mc)
;; Use event-end in case called from mouse-drag-region.
;; If EVENT is a click, event-end and event-start give same value.
(let ((position (event-end event)))
(if (not (windowp (posn-window position)))
(error "Position not in text area of window"))
(select-window (posn-window position))
(let ((pt (posn-point position)))
(if (numberp pt)
;; is there a fake cursor with the actual *point* right where we are?
(unless (evil-mc-undo-cursor-at-pos pt)
(save-excursion
(goto-char pt)
(evil-mc-make-cursor-here)))))))
(after! evil
(map! "C-<down-mouse-1>" nil)
(map! "C-<mouse-1>" #'evil-mc/toggle-cursor-on-click))
-
@@ -951,79 +905,62 @@ Table of Contents
-
-Org headlines
-
+
Org headlines
(defun evil-org--parse-headline ()
(save-excursion
(end-of-line)
(outline-previous-heading)
(skip-chars-forward "* \t")
(let* ((todo-start (point))
(todo-end1 (and org-todo-regexp
(let (case-fold-search) (looking-at (concat org-todo-regexp " ")))
(goto-char (1- (match-end 0)))))
(todo-end2 (when todo-end1 (skip-chars-forward " \t") (point)))
(priority-start (point))
(priority-end (when (looking-at "\\[#.\\][ \t]*") (goto-char (match-end 0))))
(_ (and (let (case-fold-search) (looking-at org-comment-string))
(goto-char (match-end 0))))
(title-start (point))
(tags-start (when (re-search-forward "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
(line-end-position) 'move)
(goto-char (match-beginning 0))
(match-beginning 1)))
(title-end (point)))
(list todo-start todo-end1 todo-end2 priority-start
priority-end title-start title-end
tags-start (line-end-position)))))
(after! evil
(evil-define-text-object evil-org-headline (count &optional beg end type)
"Select the current org heading" :jump t
(save-excursion
(end-of-line)
(outline-previous-heading)
(list (line-beginning-position) (line-end-position))))
(evil-define-text-object evil-org-headline-title (c &rest _)
"Select the title text in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(list (nth 5 parse) (nth 6 parse))))
(evil-define-text-object evil-org-headline-todo (c &rest _)
"Select the todo entry in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(list (nth 0 parse) (nth 2 parse))))
(evil-define-text-object evil-org-headline-inner-todo (c &rest _)
"Select the inner todo entry in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(list (nth 0 parse) (nth 1 parse))))
(evil-define-text-object evil-org-headline-priority (c &rest _)
"Select the priority entry in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(list (nth 3 parse) (nth 4 parse))))
(evil-define-text-object evil-org-headline-tags (c &rest _)
"Select the tags in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(list (nth 6 parse) (nth 8 parse))))
(evil-define-text-object evil-org-headline-inner-priority (c &rest r)
"Select the inner part of priority in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(when (nth 4 parse)
(let ((p (+ 2 (nth 3 parse)))) (list p (1+ p))))))
(evil-define-text-object evil-org-headline-inner-tags (c &rest _)
"Select the inner part of tags in the current org heading" :jump t
(let ((parse (evil-org--parse-headline)))
(when (nth 7 parse)
(list (1+ (nth 7 parse)) (1- (nth 8 parse))))))
(map! :map 'evil-inner-text-objects-map
"h h" #'evil-org-headline-title
"h t" #'evil-org-headline-inner-todo
"h p" #'evil-org-headline-inner-priority
"h a" #'evil-org-headline-inner-tags)
(map! :map 'evil-outer-text-objects-map
"h h" #'evil-org-headline
"h t" #'evil-org-headline-todo
"h p" #'evil-org-headline-priority
"h a" #'evil-org-headline-tags))
-
-CameL case
-
+
CameL case
(after! evil
(evil-define-text-object evil-prog-camelcase (c &rest _)
"Select a camelCase \"word\". For instance, if cursor is at | in
camelCase|dWord, then it selects \"Cased\"." :jump t
(let ((case-fold-search nil))
(if-let* ((_ (looking-at-p "[[:lower:]]"))
(begin (save-excursion (re-search-backward "[[:upper:]]\\|[^[:alpha:]].")
(match-end 0)))
(end (save-excursion (re-search-forward "[^[:lower:]]"))))
(list (1- begin) (1- end))
(if-let* ((_ (looking-at-p "[[:upper:]]"))
(end (save-excursion (re-search-forward "[[:alpha:]][[:upper:]]\\|[^[:alpha:]]")
(match-end 0))))
(list (point) (1- end)))))))
(map! :mode 'prog-mode
:map 'evil-inner-text-objects-map
"l" #'evil-prog-camelcase)