From 8269adf84926e576c76d4686fdba77f1451e1b8f Mon Sep 17 00:00:00 2001 From: Debanjum Singh Solanky Date: Thu, 27 Apr 2023 18:55:48 +0800 Subject: [PATCH] Refactor khoj-setup in khoj.el for readability. No functional change --- src/interface/emacs/khoj.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/src/interface/emacs/khoj.el b/src/interface/emacs/khoj.el index 6e245663..1f8965da 100644 --- a/src/interface/emacs/khoj.el +++ b/src/interface/emacs/khoj.el @@ -465,17 +465,19 @@ CONFIG is json obtained from Khoj config API." (permitted (if (and not-started interact) (y-or-n-p "Could not connect to Khoj server. Should I install, start and configure it for you?") t))) - ;; Install, start server if user permitted and server not ready - (when (and permitted not-started) - (khoj--server-setup)) - - ;; Server can be started but not ready (to use/configure) - ;; Wait until server is ready if setup was permitted - (while (and permitted (not khoj--server-ready?)) - (sit-for 0.5)) - - ;; Configure server once server ready if user permitted + ;; If user permits setup of khoj server from khoj.el (when permitted + ; Install, start server if server not running + (when not-started + (khoj--server-setup)) + + ;; Wait until server is ready + ;; As server can be started but not ready to use/configure + (while (not khoj--server-ready?) + (message "Khoj: Waiting for server to start...") + (sit-for 0.5)) + + ;; Configure server once it's ready (khoj--server-configure))))