diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630')
4 files changed, 131 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-autoloads.el new file mode 100644 index 000000000000..1eed20cbf50d --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-autoloads.el @@ -0,0 +1,22 @@ +;;; all-the-icons-ivy-autoloads.el --- automatically extracted autoloads +;; +;;; Code: +(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +;;;### (autoloads nil "all-the-icons-ivy" "all-the-icons-ivy.el" +;;;;;; (23377 61297 57158 640000)) +;;; Generated autoloads from all-the-icons-ivy.el + +(autoload 'all-the-icons-ivy-setup "all-the-icons-ivy" "\ +Set ivy's display transformers to show relevant icons next to the candidates. + +\(fn)" nil nil) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; End: +;;; all-the-icons-ivy-autoloads.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-pkg.el b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-pkg.el new file mode 100644 index 000000000000..ba8854af2f40 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "all-the-icons-ivy" "20180225.630" "Shows icons while using ivy and counsel" '((emacs "24.4") (all-the-icons "2.4.0") (ivy "0.8.0"))) diff --git a/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.el b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.el new file mode 100644 index 000000000000..7bba6bd15c3d --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.el @@ -0,0 +1,107 @@ +;;; all-the-icons-ivy.el --- Shows icons while using ivy and counsel -*- lexical-binding: t; -*- + +;; Copyright (C) 2017 asok + +;; Author: asok +;; Version: 0.2.0 +;; Package-Version: 20180225.630 +;; Keywords: faces +;; Package-Requires: ((emacs "24.4") (all-the-icons "2.4.0") (ivy "0.8.0")) + +;; 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/>. + +;;; Commentary: +;; To use this package, do +;; +;; (all-the-icons-ivy-setup) +;; +;; Or if you prefer to only set transformers +;; for a subset of ivy commands: +;; +;; (require 'all-the-icons-ivy) +;; (ivy-set-display-transformer 'ivy-switch-buffer 'all-the-icons-ivy-buffer-transformer) + +;;; Code: + +(require 'all-the-icons) +(require 'ivy) + +(defgroup all-the-icons-ivy nil + "Shows icons while using ivy and counsel." + :group 'ivy) + +(defcustom all-the-icons-ivy-buffer-commands + '(ivy-switch-buffer ivy-switch-buffer-other-window counsel-projectile-switch-to-buffer) + "Commands to use with `all-the-icons-ivy-buffer-transformer'." + :type '(repeat function) + :group 'all-the-icons-ivy) + + +(defcustom all-the-icons-ivy-file-commands + '(counsel-find-file counsel-projectile-find-file counsel-projectile-find-dir) + "Commands to use with `all-the-icons-ivy-file-transformer'." + :type '(repeat function) + :group 'all-the-icons-ivy) + +(defun all-the-icons-ivy--buffer-propertize (b s) + "If buffer B is modified apply `ivy-modified-buffer' face on string S." + (if (and (buffer-file-name b) + (buffer-modified-p b)) + (propertize s 'face 'ivy-modified-buffer) + s)) + +(defun all-the-icons-ivy--icon-for-mode (mode) + "Apply `all-the-icons-for-mode' on MODE but either return an icon or nil." + (let ((icon (all-the-icons-icon-for-mode mode))) + (unless (symbolp icon) + icon))) + +(defun all-the-icons-ivy--buffer-transformer (b s) + "Return a candidate string for buffer B named S preceded by an icon. +Try to find the icon for the buffer's B `major-mode'. +If that fails look for an icon for the mode that the `major-mode' is derived from." + (let ((mode (buffer-local-value 'major-mode b))) + (format "%s\t%s" + (propertize "\t" 'display (or + (all-the-icons-ivy--icon-for-mode mode) + (all-the-icons-ivy--icon-for-mode (get mode 'derived-mode-parent)))) + (all-the-icons-ivy--buffer-propertize b s)))) + +(defun all-the-icons-ivy-file-transformer (s) + "Return a candidate string for filename S preceded by an icon." + (format "%s\t%s" + (propertize "\t" 'display (all-the-icons-icon-for-file s)) + s)) + +(defun all-the-icons-ivy-buffer-transformer (s) + "Return a candidate string for buffer named S. +Assume that sometimes the buffer named S might not exists. +That can happen if `ivy-switch-buffer' does not find the buffer and it +falls back to `ivy-recentf' and the same transformer is used." + (let ((b (get-buffer s))) + (if b + (all-the-icons-ivy--buffer-transformer b s) + (all-the-icons-ivy-file-transformer s)))) + +;;;###autoload +(defun all-the-icons-ivy-setup () + "Set ivy's display transformers to show relevant icons next to the candidates." + (dolist (cmd all-the-icons-ivy-buffer-commands) + (ivy-set-display-transformer cmd 'all-the-icons-ivy-buffer-transformer)) + (dolist (cmd all-the-icons-ivy-file-commands) + (ivy-set-display-transformer cmd 'all-the-icons-ivy-file-transformer))) + +(provide 'all-the-icons-ivy) + +;;; all-the-icons-ivy.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.elc b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.elc new file mode 100644 index 000000000000..2f85d4374ad3 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.elc Binary files differ |