;; 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 not part of GNU Emacs.
-;; This file is 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.
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