diff options
| author |  FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 11:01:42 +0200 |
|---|---|---|
| committer | FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 11:01:42 +0200 |
| commit | 870ce334b835614bab3f114b2aa57617f699c6be (patch) | |
| tree | e67f20530f3c6168feb9e8fef5ff5edd9175fd03 | |
| parent | 85287c07fff6682c6d3a935efc30aad623e69179 (diff) | |
Cleaned up elisp and added dependencies
| -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))))) |