Permalink
Browse files

Define new `haskell-mode-pkg-base-dir` defvar

Because `haskell-mode-pkg-base-dir` is also used for initializating
`haskell-process-logo` now this fixes #102 as a side-effect.
  • Loading branch information...
1 parent 850880d commit 8244097b9f9320ed1a3f1d3c84fe65a35fc3f238 @hvr hvr committed Jun 26, 2013
Showing with 5 additions and 1 deletion.
  1. +4 −0 haskell-mode.el
  2. +1 −1 haskell-process.el
View
4 haskell-mode.el
@@ -148,6 +148,10 @@
(defconst haskell-git-version "@GIT_VERSION@"
"The Git version of org-mode `haskell-mode'.")
+(defvar haskell-mode-pkg-base-dir (file-name-directory load-file-name)
+ "Package base directory of installed haskell-mode.
+Used for locating additional data files")
+
;;;###autoload
(defun haskell-version (&optional here)
"Show the `haskell-mode` version in the echo area.
View
2 haskell-process.el
@@ -130,7 +130,7 @@ has changed?"
"Greetings for when the Haskell process starts up.")
(defconst haskell-process-logo
- (expand-file-name "logo.svg" (file-name-directory load-file-name))
+ (expand-file-name "logo.svg" haskell-mode-pkg-base-dir)
"Haskell logo for notifications.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

0 comments on commit 8244097

Please sign in to comment.