From 8d97d1f2063f19c0c679e54fc082691a495c9303 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 10 Jan 2016 23:43:14 -0500 Subject: Rewrite configuration with use-package --- lisp/init-ace.el | 113 ------------------------------------------------------- 1 file changed, 113 deletions(-) delete mode 100644 lisp/init-ace.el (limited to 'lisp/init-ace.el') 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 - -;; Author: Kyle Meyer -;; 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 . - -;;; 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 -- cgit v1.2.3