From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 28 Apr 2019 20:19:05 +0000 (+0200)
Subject: Made start page customizable.
X-Git-Tag: v1.0.0~18
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=7f314ae4656aed17eb1f79d2da86d8fe63edf5f5;p=elpher.git

Made start page customizable.
---

diff --git a/elpher.el b/elpher.el
index b6c4b56..3750962 100644
--- a/elpher.el
+++ b/elpher.el
@@ -161,6 +161,13 @@ Otherwise, use the system browser via the BROWSE-URL function."
   "If non-nil, cache images in memory in the same way as other content."
   :type '(boolean))
 
+(defcustom elpher-start-address nil
+  "If nil, the default start directory is shown when Elpher is started.
+Otherwise, a list containing the selector, host and port of a directory to
+use as the start page."
+  :type '(list string string integer))
+
+
 ;;; Model
 ;;
 
@@ -688,7 +695,9 @@ The result is stored as a string in the variable ‘elpher-selector-string’."
   "Start elpher with default landing page."
   (interactive)
   (setq elpher-current-node nil)
-  (let ((start-node (elpher-make-node nil nil #'elpher-get-index-node)))
+  (let ((start-node (elpher-make-node nil
+                                      elpher-start-address
+                                      #'elpher-get-index-node)))
     (elpher-visit-node start-node))
   "Started Elpher.") ; Otherwise (elpher) evaluates to start page string.