From 02eb3c7b1abfb616f179ca311f481589d5476c4e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 05:03:03 +0200 Subject: Redo gnosis-display--question Use fill-paragraph --- gnosis.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index 0a6fb0e..e363d77 100644 --- a/gnosis.el +++ b/gnosis.el @@ -74,15 +74,15 @@ Example: "From TABLE use where to delete VALUE." (emacsql gnosis-db `[:delete :from ,table :where ,value])) -(defun gnosis--display-question (id) - "Display main row for question ID." +(defun gnosis-display--question (id) + "Display main row for note ID." (let ((question (gnosis-get 'main 'notes `(= id ,id)))) (with-current-buffer (switch-to-buffer (get-buffer-create "*gnosis*")) (erase-buffer) - (insert question) - (sit-for 0.5)))) + (fill-paragraph (insert question)) + (sit-for 0.3)))) (cl-defun gnosis--prompt (prompt &optional (downcase nil) (split nil)) "PROMPT user for input until `q' is given. -- cgit v1.2.3