[elpa] externals/hyperbole 185affeb56 8/9: hywiki.el - Change `hywiki-directory' to a defcustom

[ELPA Syncer]

branch: externals/hyperbole
commit 185affeb56ffe060d3ff52450b456ef9a3f4c68d
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    hywiki.el - Change `hywiki-directory' to a defcustom
    
    This allows this setting to be set properly before loading HyWiki.
---
 ChangeLog |  3 +++
 hywiki.el | 10 ++++++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 82fcd4de56..0e77f3d563 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
 
 * hywiki.el (hywiki-maybe-highlight-page-names-in-frame): Reduce sit-for
     to 0 since just want to trigger redisplay.
+            (hywiki-publish-to-html): Retrieve HyWiki project by name.
+           (hywiki-directory): Change to a defcustom so can set this before
+    loading Hyperoble.
 
 2024-08-10  Bob Weiner  <rsw@gnu.org>
 
diff --git a/hywiki.el b/hywiki.el
index 1f6b7acdfe..2121646ba4 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    21-Apr-24 at 22:41:13
-;; Last-Mod:     10-Aug-24 at 21:05:30 by Bob Weiner
+;; Last-Mod:     11-Aug-24 at 01:09:50 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -181,9 +181,11 @@ Use nil for no HyWiki mode indicator."
 (defvar hywiki-file-suffix ".org"
   "File suffix (including period) to use when creating HyWiki pages.")
 
-(defvar hywiki-directory '"~/hywiki/"
+(defcustom hywiki-directory '"~/hywiki/"
   "Directory that holds all HyWiki pages in Org format.
-See `hywiki-org-publishing-directory' for exported pages in html format.")
+See `hywiki-org-publishing-directory' for exported pages in html format."
+  :type 'string
+  :group 'hyperbole-hywiki)
 
 (defvar-local hywiki-buffer-highlighted-state nil
   "State of HyWikiWords highlighting in the associated buffer.
@@ -1201,7 +1203,7 @@ Files are saved in:
 Customize this directory with:
     {M-x customize-variable RET hywiki-org-publishing-directory RET}."
   (interactive "P")
-  (org-publish-project (hywiki-org-get-publish-properties) all-pages-flag))
+  (org-publish-project "hywiki" all-pages-flag))
 
 ;;;###autoload
 (defun hywiki-tags-view (&optional todo-only match view-buffer-name)