ekg-setup-notes-buffer' setq-local' default-directory' to ekg-db-…

…file' parent directory. (#182)

This makes sure all ekg notes buffer have the same directory.

doc/ekg.org

@@ -77,6 +77,7 @@ triples library is already installed.
 - Fix display of extended structured data in notes.
 - Add contrib directory and =ekg-email= as a contribution to import emails to notes in a structured way.
 - Fix inlines not expanding in the contextual notes in =ekg-llm=.
+- Set =default-directory= to db location in notes buffers (by [[https://github.com/monkpearman][S Pearman]]).
 ** Version 0.6.3
 - Fix issue in trying to get a single-valued item to show up in the metadata line.
 - Remove the never-used named, email, and person schema.

doc/ekg.texi

@@ -233,6 +233,8 @@ Fix display of extended structured data in notes.
 Add contrib directory and @samp{ekg-email} as a contribution to import emails to notes in a structured way.
 @item
 Fix inlines not expanding in the contextual notes in @samp{ekg-llm}.
+@item
+Set @samp{default-directory} to db location in notes buffers (by @uref{https://github.com/monkpearman, S Pearman}).
 @end itemize
 
 @node Version 063

ekg.el

@@ -309,6 +309,13 @@ non-nil, it will be used as the filename, otherwise
       ekg-db-file-obsolete
     ekg-db-file))
 
+(defun ekg--notes-directory ()
+  "Return the directory ekg notes buffers have as the default directory.
+This will be the location of the database file."
+  (file-name-directory
+   (or (ekg-db-file)
+       triples-default-database-filename)))
+
 ;; `ekg-connect' will do things that might themselves call `ekg-connect', so we
 ;; need to protect against an infinite recursion.
 (defalias 'ekg-connect
@@ -2009,7 +2016,8 @@ notes are created with additional tags TAGS."
   (let ((buf (get-buffer-create (format "*ekg %s*" name))))
     (set-buffer buf)
     (ekg--show-notes name notes-func tags)
-    (switch-to-buffer buf)))
+    (switch-to-buffer buf)
+    (setq-local default-directory (ekg--notes-directory))))
 
 (defun ekg-sort-by-creation-time (a b)
   "Used to pass to `sort', which will supply A and B."