diff options
| -rw-r--r-- | src/elisp/urweb-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 1eb9a1eb..057761ac 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -939,13 +939,14 @@ Optional argument STYLE is currently ignored." (let* ((row (line-number-at-pos)) (col (evil-column)) - (bfn (or (buffer-file-name) - "/Users/Simon/ur-proj/testje/a.ur")) + (bfn (buffer-file-name)) (proj-dir (urweb-get-proj-dir bfn)) (filename (file-relative-name bfn proj-dir)) (loc (concat filename ":" (number-to-string row) ":" (number-to-string col))) ) - (require 'popup) + (require 's) + (require 'f) + (require 'simple) (message (let ((default-directory proj-dir)) (shell-command-to-string (concat "urweb -getInfo " loc))))) |