diff options
author | Tom Willemsen | 2012-11-11 23:23:05 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-11-11 23:23:05 +0100 |
commit | 185aff75c4f9ee45960c8e483e97e8e871983ba4 (patch) | |
tree | 2dcd0364a3bfeeaf09c998fde9367098e0fffc05 /.emacs.d/site-lisp | |
parent | 0ccaccc61aa2677b0113b1817081a191be4ec1c2 (diff) | |
download | dotfiles-185aff75c4f9ee45960c8e483e97e8e871983ba4.tar.gz dotfiles-185aff75c4f9ee45960c8e483e97e8e871983ba4.zip |
Remove mode-icons, has its own project now
Diffstat (limited to '.emacs.d/site-lisp')
-rw-r--r-- | .emacs.d/site-lisp/mode-icons.el | 59 |
1 files changed, 0 insertions, 59 deletions
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 <thomas@aethon.nl> -;; 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 <http://www.gnu.org/licenses/>. - -;;; 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 |