Change go to address at point bindings

[dotemacs] / lisp / my-minor-modes.el

diff --git a/lisp/my-minor-modes.el b/lisp/my-minor-modes.el
index 711e7216df104a1abd91eada7fdf279cc27b35d0..b6e36eaae979dacc3dbe02c93f36d8b9f83eaec4 100644 (file)
--- a/lisp/my-minor-modes.el
+++ b/lisp/my-minor-modes.el
@@ -1,5 +1,9 @@
 ;;; -*- lexical-binding: t -*-
 
+(require 'ace-window)
+(setq aw-scope 'frame)
+(setq aw-keys '(?h ?t ?n ?s))
+
 (require 'autorevert)
 (global-auto-revert-mode 1)
 (setq global-auto-revert-non-file-buffers t)
@@ -9,6 +13,7 @@
 (setq avy-background t)
 (setq avy-all-windows nil)
 (setq avy-timeout-seconds 0.3)
+(setq avy-keys '(?a ?o ?e ?u ?h ?t ?n ?s))
 
 (require 'change-inner)
 
@@ -24,6 +29,12 @@
 (require 'goto-addr)
 (add-hook 'text-mode-hook #'goto-address-mode)
 (add-hook 'prog-mode-hook #'goto-address-prog-mode)
+(setq goto-address-highlight-keymap
+      (let ((m (make-sparse-keymap)))
+        (define-key m (kbd "C-<mouse-1>") 'goto-address-at-point)
+        (define-key m (kbd "C-c RET") 'goto-address-at-point)
+        m))
+
 
 (require 'hl-line)
 (global-hl-line-mode)
@@ -58,4 +69,5 @@
             (diminish 'git-gutter-mode)
             (diminish 'indent-guide-mode)
             (diminish 'ivy-mode)
+            (diminish 'elisp-slime-nav-mode)
             (diminish 'yas-minor-mode)))