From 17d4aef5413349c9d4172422059da559991078ad Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 11 Feb 2021 03:42:00 +0000
Subject: marginalia margins, widths and thresholds

---
 consult.org | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/consult.org b/consult.org
index 8ce5e1a..bf25e19 100644
--- a/consult.org
+++ b/consult.org
@@ -27,8 +27,12 @@
       :ensure t
       :bind (:map minibuffer-local-map ("C-M-a" . marginalia-cycle))
 
-      :custom (marginalia-annotators
-               '(marginalia-annotators-heavy marginalia-annotators-light nil))
+      :custom ((marginalia-align-offset 1)
+               (marginalia-margin-threshold 180)
+               (marginalia-separator-threshold 80)
+               (marginalia-truncate-width 260)
+               (marginalia-annotators
+                '(marginalia-annotators-heavy marginalia-annotators-light nil)))
       :config
       (with-eval-after-load "selectrum"
         (advice-add #'marginalia-cycle
@@ -223,7 +227,7 @@
         (when (derived-mode-p 'org-mode)
           (when (org-in-regexp org-link-any-re)
             (let ((lnk (match-string-no-properties 2)))
-              (if (string-match-p "https?://.+" lnk)
+              (if (string-match-p "https?://.+" (or lnk ""))
                   (cons 'url lnk)
                 (cons 'org-link (match-string-no-properties 0)))))))
 
-- 
cgit v1.2.3