Rewrite configuration with use-package

1 files changed, 0 insertions, 113 deletions

diff --git a/lisp/init-ace.el b/lisp/init-ace.el
deleted file mode 100644
index 5cc588b..0000000
--- a/lisp/init-ace.el
+++ /dev/null
@@ -1,113 +0,0 @@
-;;; init-ace.el --- Configuration for AceJump-inspired friends
-
-;; Copyright (C) 2012-2016 Kyle Meyer <kyle@kyleam.com>
-
-;; Author: Kyle Meyer <kyle@kyleam.com>
-;; URL: https://github.com/kyleam/emacs.d
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Code:
-
-;;; Avy
-
-(require 'avy)
-
-(key-chord-define-global "jf" 'avy-goto-subword-1)
-(define-key isearch-mode-map (kbd "C-'") 'avy-isearch)
-
-;;; Ace Link
-
-(defun km/ace-link-dired ()
-  "Ace jump to files in dired buffers."
-  (interactive)
-  (avy-with km/ace-link-dired
-    (setq avy-action
-          (lambda (pt)
-            (goto-char pt)
-            (org-open-file (dired-get-filename))))
-    (avy--process
-     (km/ali--dired-collect-references)
-     #'avy--overlay-post)))
-
-(defun km/ali--dired-collect-references ()
-  (let ((end (window-end))
-        points)
-    (save-excursion
-      (goto-char (window-start))
-      (while (< (point) end)
-        (--when-let (dired-next-line 1)
-          (push it points)))
-      (nreverse points))))
-
-(defun km/ace-link-widget ()
-  "Press a widget that is visible in the current buffer.
-This can be used in place of `ace-link-gnus' and has the
-advantage of working for gwene buffers in addition to normal mail
-buffers because it doesn't rely on the 'gnus-string' text
-property."
-  (interactive)
-  (when (eq major-mode 'gnus-summary-mode)
-    (gnus-summary-widget-forward 1))
-  (avy-with km/ace-link-widget
-    (setq avy-action
-          (lambda (pt)
-            (goto-char (1+ pt))
-            (widget-button-press (point))))
-    (avy--process
-     (km/ali--widget-collect-references)
-     #'avy--overlay-post)))
-
-(defun km/ali--widget-collect-references ()
-  "Collect the positions of visible widgets in buffer."
-  (require 'wid-edit)
-  (let (candidates pt)
-    (save-excursion
-      (save-restriction
-        (narrow-to-region
-         (window-start)
-         (window-end))
-        (goto-char (point-min))
-        (setq pt (point))
-        (while (progn (ignore-errors (widget-forward 1))
-                      (> (point) pt))
-          (setq pt (point))
-          (push (point) candidates))
-        (nreverse candidates)))))
-
-(ace-link-setup-default)
-(after 'org
- (define-key org-mode-map (kbd "C-c m o") 'ace-link-org))
-(after 'dired
-  ;; This overrides the binding for `dired-find-file-other-window'.
-  (define-key dired-mode-map "o" 'km/ace-link-dired)
-  (define-key dired-mode-map "r" 'dired-find-file-other-window))
-
-;;; Ace Window
-
-(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
-      aw-scope 'frame)
-
-(defun km/ace-window (arg)
-  "Run `ace-window', swapping single and double C-u's."
-  (interactive "p")
-  (cl-case arg
-    (4  (setq arg 16))
-    (16 (setq arg 4)))
-  (ace-window arg))
-
-(key-chord-define-global "jw" 'km/ace-window)
-
-(provide 'init-ace)
-;;; init-ace.el ends here