From 185aff75c4f9ee45960c8e483e97e8e871983ba4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 11 Nov 2012 23:23:05 +0100 Subject: Remove mode-icons, has its own project now --- .emacs.d/site-lisp/mode-icons.el | 59 ---------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 .emacs.d/site-lisp/mode-icons.el (limited to '.emacs.d/site-lisp/mode-icons.el') diff --git a/.emacs.d/site-lisp/mode-icons.el b/.emacs.d/site-lisp/mode-icons.el deleted file mode 100644 index 771d6f3..0000000 --- a/.emacs.d/site-lisp/mode-icons.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; mode-icons.el --- Show icons for modes - -;; Copyright (C) 2012 Tom Willemsen - -;; Author: Tom Willemsen -;; Keywords: multimedia - -;; 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: - -;; - -;;; Code: - -(defun mode-icons-get-icon-file (name) - (concat user-emacs-directory "/icons/" name)) - -(defvar mode-icons - `(("Emacs-Lisp" . (image :type xpm - :file ,(mode-icons-get-icon-file "emacs.xpm") - :ascent center)) - ("Python" . (image :type xpm - :file ,(mode-icons-get-icon-file "python.xpm") - :ascent center)) - ("Scheme" . (image :type xpm - :file ,(mode-icons-get-icon-file "scheme.xpm") - :ascent center)) - ("Lisp" . (image :type xpm - :file ,(mode-icons-get-icon-file "cl.xpm") - :ascent center)) - ("PHP" . (image :type xpm - :file ,(mode-icons-get-icon-file "php.xpm") - :ascent center))) - "Icons for major modes.") - -(defun set-mode-icon (mode) - (let ((icon-spec (assoc mode mode-icons))) - (if icon-spec - (setq mode-name (propertize mode-name 'display (cdr icon-spec)))))) - -(defun set-current-mode-icon () - (set-mode-icon mode-name)) - -(add-hook 'after-change-major-mode-hook 'set-current-mode-icon) - -(provide 'mode-icons) -;;; mode-icons.el ends here -- cgit v1.2.3-54-g00ecf