diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-10-12 21:48:59 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-12-12 02:07:58 -0500 |
commit | 149da2b62045fde28cc712d11d04f611b0163896 (patch) | |
tree | e2793870b700a6fcfd00abe4df210372cfff32dd /lisp/km-helm.el | |
parent | 65fb8ac42e98e8ddbc974ef5426362205daa899f (diff) | |
download | emacs.d-149da2b62045fde28cc712d11d04f611b0163896.tar.gz |
Switch to ivy
I've tried it for a few months and quite happy with it.
Diffstat (limited to 'lisp/km-helm.el')
-rw-r--r-- | lisp/km-helm.el | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/lisp/km-helm.el b/lisp/km-helm.el deleted file mode 100644 index 7195de4..0000000 --- a/lisp/km-helm.el +++ /dev/null @@ -1,85 +0,0 @@ -;;; km-helm.el --- Helm configuration - -;; Copyright (C) 2012-2020 Kyle Meyer <kyle@kyleam.com> - -;; Author: Kyle Meyer <kyle@kyleam.com> -;; URL: https://git.kyleam.com/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: - -(require 'helm) - -;;;###autoload -(defun km/helm-display-buffer () - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action #'display-buffer))) - -;;;###autoload -(defun km/helm-visit-in-dired () - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action #'helm-point-file-in-dired))) - -;;;###autoload -(defun km/helm-display-file () - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action - (lambda (f) - (display-buffer (find-file-noselect f)))))) - -(autoload 'org-open-file "org") -;;;###autoload -(defun km/helm-ff-org-open-file () - "Run `org-open-file' from `helm-source-find-files'." - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action #'org-open-file))) - -;;;###autoload -(defun km/helm-display-buffer-below () - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action - (lambda (b) - (display-buffer b '(display-buffer-below-selected)))))) - -;;;###autoload -(defun km/helm-find-file-below () - (interactive) - (with-helm-alive-p - (helm-exit-and-execute-action - (lambda (f) - (select-window - (display-buffer (find-file-noselect f) - '(display-buffer-below-selected))))))) - -(defvar km/helm-etags-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "M-.") #'helm-etags-select) - map)) - -(define-minor-mode km/helm-etags-mode - "Override `xref-find-definitions' with `helm-etags-select'." - :keymap km/helm-etags-mode-map) - -(defun km/helm-maybe-override-xref () - (when (helm-etags-find-tag-file-directory default-directory) - (km/helm-etags-mode 1))) - -(provide 'km-helm) -;;; km-helm.el ends here |