random cleanup

This commit is contained in:
Ivan Malison 2016-05-24 23:17:27 -07:00
parent d60630bc7d
commit be271d56d9

View File

@ -235,7 +235,6 @@
(message "%s" arg)) (message "%s" arg))
(defmacro imalison:prefix-alternatives (name &rest alternatives) (defmacro imalison:prefix-alternatives (name &rest alternatives)
(car alternatives)
`(defun ,name (arg) `(defun ,name (arg)
(interactive "p") (interactive "p")
(setq function (setq function
@ -579,6 +578,14 @@ buffer is not visiting a file."
(setq checkdoc-force-docstrings-flag nil) (setq checkdoc-force-docstrings-flag nil)
;; text mode stuff:
(remove-hook 'text-mode-hook #'turn-on-auto-fill)
(add-hook 'text-mode-hook 'turn-on-visual-line-mode)
(setq sentence-end-double-space nil)
;; y and n instead of yes and no
(defalias 'yes-or-no-p 'y-or-n-p)
;; ============================================================================= ;; =============================================================================
;; use-package ;; use-package
;; ============================================================================= ;; =============================================================================
@ -776,14 +783,6 @@ buffer is not visiting a file."
(use-package crux) (use-package crux)
;; text mode stuff:
(remove-hook 'text-mode-hook #'turn-on-auto-fill)
(add-hook 'text-mode-hook 'turn-on-visual-line-mode)
(setq sentence-end-double-space nil)
;; y and n instead of yes and no
(defalias 'yes-or-no-p 'y-or-n-p)
(use-package discover-my-major) (use-package discover-my-major)
(use-package which-key (use-package which-key
@ -796,14 +795,17 @@ buffer is not visiting a file."
(use-package jump-char (use-package jump-char
:bind (("C-;" . jump-char-forward))) :bind (("C-;" . jump-char-forward)))
(imalison:prefix-alternatives imalison:avy avy-goto-word-1 avy-goto-char)
(use-package avy (use-package avy
:preface
(progn
(imalison:prefix-alternatives imalison:avy avy-goto-word-1 avy-goto-char))
:bind (("C-j" . imalison:avy) :bind (("C-j" . imalison:avy)
("M-g l" . avy-goto-line) ("M-g l" . avy-goto-line)
("C-'" . avy-goto-char-2))) ("C-'" . avy-goto-char-2)))
(imalison:prefix-alternatives imalison:ace-window ace-select-window ace-swap-window)
(use-package ace-window (use-package ace-window
:preface
(imalison:prefix-alternatives imalison:ace-window ace-select-window ace-swap-window)
:config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)) :config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
:bind ("C-c w" . imalison:ace-window)) :bind ("C-c w" . imalison:ace-window))