diff options
Diffstat (limited to 'wiki-markup.el')
-rw-r--r-- | wiki-markup.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/wiki-markup.el b/wiki-markup.el index 4809695..61cdca8 100644 --- a/wiki-markup.el +++ b/wiki-markup.el @@ -90,8 +90,13 @@ This can be overriden with .dir-locals.el." (unless wiki-site (setq-local wiki-site (let ((guessed - (intern (file-name-base - (directory-file-name default-directory))))) + (intern (replace-regexp-in-string + (format + "%s/\\(.+?\\)/.*" + (regexp-quote + (expand-file-name wiki-local-dir))) + "\\1" + default-directory)))) (if (alist-get guessed wiki-sites) guessed 'local)))) |