From 17ee0e400bef47c371afcae76037f9ea6a44ad13 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 10 Sep 2018 14:51:14 -0400 Subject: Support Vim, Tmux, Emacs with Stow After moving off of Meta, Dotfiles has a greater responsibility to manage configs. Vim, Tmux, and Emacs are now within Stow's purview. --- .../all-the-icons-ivy.el | 107 +++++++++++++++++++++ 1 file changed, 107 insertions(+) create mode 100644 configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.el (limited to 'configs/shared/emacs/.emacs.d/elpa/all-the-icons-ivy-20180225.630/all-the-icons-ivy.el') 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 . + +;;; 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 -- cgit 1.4.1