From b54d1edc08b0fd187ef0238279ab99068e3e9218 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 23 May 2019 09:39:31 +0200 Subject: [PATCH] (elpher) switches to existing elpher buffer if one exists. --- elpher.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/elpher.el b/elpher.el index 2764f1d..30ec292 100644 --- a/elpher.el +++ b/elpher.el @@ -742,12 +742,14 @@ The result is stored as a string in the variable ‘elpher-selector-string’." (defun elpher () "Start elpher with default landing page." (interactive) - (switch-to-buffer "*elpher*") - (setq elpher-current-node nil) - (let ((start-node (elpher-make-node nil - elpher-start-address - #'elpher-get-index-node))) - (elpher-visit-node start-node)) + (if (get-buffer "*elpher*") + (switch-to-buffer "*elpher*") + (switch-to-buffer "*elpher*") + (setq elpher-current-node nil) + (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. ;;; elpher.el ends here -- 2.20.1