;; Copyright (C) 2016 Free Software Foundation, Inc.
;; Author: Michael Albinus <michael.albinus@gmx.de>
+;; Keywords: convenience, faces
;; Package: tramp-theme
-;; Version: 0.1
+;; Version: 0.1.1
+;; Package-Requires: ((emacs "24.1"))
-;; This file is part of GNU Emacs.
+;; This file is not part of GNU Emacs.
-;; GNU Emacs is free software: you can redistribute it and/or modify
+;; 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.
-;; GNU Emacs is distributed in the hope that it will be useful,
+;; 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.
;;; Code:
+;; This is needed for the customized variables.
+(require 'dired)
+(require 'em-dirs)
+
(deftheme tramp
"A custom theme to decorate buffers when they are remote.
It can be combined with other custom themes.")
the remote host \"bar\", and it inverses the fringe face for
frames using the remote user \"root\":
- '((nil \"^root$\" (fringe (:inherit fringe :inverse-video t)))
+ ((nil \"^root$\" (fringe (:inherit fringe :inverse-video t)))
(\"^foo$\" nil (default (:background \"Red\")))
(\"^bar$\" nil (default (:background \"Green\"))))
'tramp-theme-hook-function
(delete 'tramp-theme-hook-function eshell-directory-change-hook)))))
+;;;###autoload
+(when load-file-name
+ (add-to-list
+ 'custom-theme-load-path
+ (file-name-as-directory (file-name-directory load-file-name))))
+
(provide-theme 'tramp)
;;; TODO:
;; to edit the faces. Maybe use (widget-get custom-face-edit :args)
;; for this.
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
;;; tramp-theme.el ends here