X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7f2c92e95f9a1e316649c3d3a898c2a5484d0407..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/tramp-theme/tramp-theme.el

diff --git a/packages/tramp-theme/tramp-theme.el b/packages/tramp-theme/tramp-theme.el
index 3e80257da..2bf9e9b69 100644
--- a/packages/tramp-theme/tramp-theme.el
+++ b/packages/tramp-theme/tramp-theme.el
@@ -3,17 +3,19 @@
 ;; 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.
@@ -35,6 +37,10 @@
 
 ;;; 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.")
@@ -63,7 +69,7 @@ changes the background color to \"Green\" for frames connected to
 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\"))))
 
@@ -145,6 +151,12 @@ Used in different hooks, in order to accelerate the redisplay."
       '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:
@@ -153,8 +165,4 @@ Used in different hooks, in order to accelerate the redisplay."
 ;;   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