[nongnu] elpa/gptel 04da0a42af 10/11: gptel: Truncate function documentation to newline

[ELPA Syncer]

branch: elpa/gptel
commit 04da0a42af7fd81be6bd004f311c710b5cf3111e
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel: Truncate function documentation to newline
    
    * gptel.el (gptel--describe-directive): Return function
    documentation only up to the first newline.  Most of the following
    documentation is usually irrelevant in the context that we show it
    in gptel.
    
    * gptel-rewrite.el (gptel-rewrite-menu): Prettify rewrite
    directive display in the menu.
---
 gptel-rewrite.el | 2 +-
 gptel.el         | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/gptel-rewrite.el b/gptel-rewrite.el
index 7a2aebd01a..97cb8e98cf 100644
--- a/gptel-rewrite.el
+++ b/gptel-rewrite.el
@@ -352,7 +352,7 @@ By default, gptel uses the directive associated with the 
`rewrite'
   [:description
    (lambda ()
      (gptel--describe-directive
-      gptel--rewrite-directive (max (- (window-width) 14) 20) "⮐"))
+      gptel--rewrite-directive (max (- (window-width) 14) 20) " "))
    [""
     ("s" "Set full directive" gptel--rewrite-directive-menu)
     (gptel--infix-rewrite-extra)]]
diff --git a/gptel.el b/gptel.el
index 599d5b8929..3e91d91b47 100644
--- a/gptel.el
+++ b/gptel.el
@@ -1013,7 +1013,8 @@ replaced with REPLACEMENT."
       (string-replace
        "\n" (or replacement " ")
        (truncate-string-to-width
-        (or (documentation directive)
+        (or (and-let* ((doc (documentation directive)))
+              (substring doc nil (string-match-p "\n" doc)))
             "[Dynamically generated; no preview available]")
         width nil nil t))))
     (list (and-let* ((from-template (car directive)))