emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Replace ace-link with link-hint

Browse source 
Better link support, easier to extend, and maintained more actively.
This commit is contained in:
Henrik Lissner 2019-12-30 23:59:46 -05:00
parent 7c968a8b11
commit a947f64ff2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

1
modules/app/twitter/autoload.el
View file

@ -83,6 +83,7 @@ that works with the feature/popup module."
"Open a visible link, username or hashtag in a `twittering-mode' buffer." "Open a visible link, username or hashtag in a `twittering-mode' buffer."
(interactive) (interactive)
(require 'avy) (require 'avy)
;; REVIEW Is this necessary anymore with `link-hint'
(let ((pt (avy-with +twitter/ace-link (let ((pt (avy-with +twitter/ace-link
(avy--process (avy--process
(+twitter--collect-links) (+twitter--collect-links)

10
modules/config/default/+emacs-bindings.el
View file

@ -65,7 +65,7 @@
:desc "Search other directory" "D" #'+default/search-other-cwd :desc "Search other directory" "D" #'+default/search-other-cwd
:desc "Locate file" "f" #'locate :desc "Locate file" "f" #'locate
:desc "Jump to symbol" "i" #'imenu :desc "Jump to symbol" "i" #'imenu
:desc "Jump to visible link" "l" #'ace-link :desc "Jump to visible link" "l" #'link-hint-open-link
:desc "Jump to link" "L" #'ffap-menu :desc "Jump to link" "L" #'ffap-menu
:desc "Jump list" "j" #'evil-show-jumps :desc "Jump list" "j" #'evil-show-jumps
:desc "Jump to mark" "m" #'evil-show-marks :desc "Jump to mark" "m" #'evil-show-marks
@ -350,22 +350,22 @@
;;; help and info ;;; help and info
(:after help-mode (:after help-mode
:map help-mode-map :map help-mode-map
"o" #'ace-link-help "o" #'link-hint-open-link
">" #'help-go-forward ">" #'help-go-forward
"<" #'help-go-back "<" #'help-go-back
"n" #'forward-button "n" #'forward-button
"p" #'backward-button) "p" #'backward-button)
(:after helpful (:after helpful
:map helpful-mode-map :map helpful-mode-map
"o" #'ace-link-help) "o" #'link-hint-open-link)
(:after apropos (:after apropos
:map apropos-mode-map :map apropos-mode-map
"o" #'ace-link-help "o" #'link-hint-open-link
"n" #'forward-button "n" #'forward-button
"p" #'backward-button) "p" #'backward-button)
(:after info (:after info
:map Info-mode-map :map Info-mode-map
"o" #'ace-link-info) "o" #'link-hint-open-link)
;;; ivy & counsel ;;; ivy & counsel
(:when (featurep! :completion ivy) (:when (featurep! :completion ivy)

10
modules/config/default/+evil-bindings.el
View file

@ -61,13 +61,13 @@
:i "C-j" #'+default/newline ; default behavior :i "C-j" #'+default/newline ; default behavior
(:after help :map help-mode-map (:after help :map help-mode-map
:n "o" #'ace-link-help) :n "o" #'link-hint-open-link)
(:after helpful :map helpful-mode-map (:after helpful :map helpful-mode-map
:n "o" #'ace-link-help) :n "o" #'link-hint-open-link)
(:after info :map Info-mode-map (:after info :map Info-mode-map
:n "o" #'ace-link-info) :n "o" #'link-hint-open-link)
(:after apropos :map apropos-mode-map (:after apropos :map apropos-mode-map
:n "o" #'ace-link-help :n "o" #'link-hint-open-link
:n "TAB" #'forward-button :n "TAB" #'forward-button
:n [tab] #'forward-button :n [tab] #'forward-button
:n [backtab] #'backward-button) :n [backtab] #'backward-button)
@ -583,7 +583,7 @@
:desc "Search other directory" "D" #'+default/search-other-cwd :desc "Search other directory" "D" #'+default/search-other-cwd
:desc "Locate file" "f" #'locate :desc "Locate file" "f" #'locate
:desc "Jump to symbol" "i" #'imenu :desc "Jump to symbol" "i" #'imenu
:desc "Jump to visible link" "l" #'ace-link :desc "Jump to visible link" "l" #'link-hint-open-link
:desc "Jump to link" "L" #'ffap-menu :desc "Jump to link" "L" #'ffap-menu
:desc "Jump list" "j" #'evil-show-jumps :desc "Jump list" "j" #'evil-show-jumps
:desc "Jump to mark" "m" #'evil-show-marks :desc "Jump to mark" "m" #'evil-show-marks

6
modules/config/default/config.el
View file

@ -25,9 +25,7 @@
avy-all-windows-alt t avy-all-windows-alt t
avy-background t avy-background t
;; the unpredictability of this makes it a poor default ;; the unpredictability of this makes it a poor default
avy-single-candidate-jump nil avy-single-candidate-jump nil)
;; Since `goto-address-mode' is enabled everywhere...
ace-link-fallback-function #'ace-link-addr)
(after! epa (after! epa
@ -67,7 +65,7 @@
;; (sp-pair "{" nil :post-handlers '(:rem ("| " "SPC"))) ;; (sp-pair "{" nil :post-handlers '(:rem ("| " "SPC")))
(after! smartparens (after! smartparens
;; Smartparens is broken in `cc-mode' as of Emacs 27. See ;; Smartparens is broken in `cc-mode' as of Emacs 27. See
;; <https://github.com/Fuco1/smartparens/issues/963>. ;; https://github.com/Fuco1/smartparens/issues/963.
(unless EMACS27+ (unless EMACS27+
(pushnew! sp--special-self-insert-commands 'c-electric-paren 'c-electric-brace)) (pushnew! sp--special-self-insert-commands 'c-electric-paren 'c-electric-brace))

2
modules/config/default/packages.el
View file

@ -2,8 +2,8 @@
;;; config/default/packages.el ;;; config/default/packages.el
(package! avy) (package! avy)
(package! ace-link)
(package! drag-stuff) (package! drag-stuff)
(package! link-hint)
(unless (featurep! :editor evil) (unless (featurep! :editor evil)
(package! expand-region)) (package! expand-region))