From 7ffde2d9bb9165281be249f56d5b363447239ab7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 31 Jan 2022 17:27:21 -0600
Subject: Changes

---
 lisp/+modeline.el | 6 +++---
 lisp/+org.el      | 2 +-
 lisp/+scratch.el  | 3 +--
 3 files changed, 5 insertions(+), 6 deletions(-)

(limited to 'lisp')

diff --git a/lisp/+modeline.el b/lisp/+modeline.el
index 300787a..9ebeb83 100644
--- a/lisp/+modeline.el
+++ b/lisp/+modeline.el
@@ -224,9 +224,9 @@ The order of elements matters: whichever one matches first is applied."
       (:propertize (line-number-mode
                     ((column-number-mode
                       (column-number-indicator-zero-based
-                       ,(concat before "%3l" sep "%2c" after)
-                       ,(concat before "%3l" sep "%2C" after))
-                      ,(concat before "%3l" sep "" after)))
+                       ,(concat before "%2l" sep "%2c" after)
+                       ,(concat before "%2l" sep "%2C" after))
+                      ,(concat before "%2l" sep "" after)))
                     ((column-number-mode
                       (column-number-indicator-zero-based
                        ,(concat before sep "%2c" after)
diff --git a/lisp/+org.el b/lisp/+org.el
index 5062a08..06e70e4 100644
--- a/lisp/+org.el
+++ b/lisp/+org.el
@@ -269,7 +269,7 @@ instead of the true count."
                                                            (region-end))))
          (org-link (when clipboard-url
                      (org-link-make-string
-                      clipboard-url
+                      (string-trim clipboard-url)
                       (or region-content
                           (read-string  "title: "
                                         (with-current-buffer
diff --git a/lisp/+scratch.el b/lisp/+scratch.el
index 2a89a95..b724a94 100644
--- a/lisp/+scratch.el
+++ b/lisp/+scratch.el
@@ -5,7 +5,7 @@
 ;;(require 'scratch)
 
 (defun +scratch-immortal ()
-  "Bury, don't kill \"*scratc*\" buffer.
+  "Bury, don't kill \"*scratch*\" buffer.
 For `kill-buffer-query-functions'."
   (if (eq (current-buffer) (get-buffer "*scratch*"))
       (progn (bury-buffer)
@@ -24,6 +24,5 @@ For `kill-buffer-query-functions'."
         (next-line 2))
       (rename-buffer (concat "*scratch<" mode ">*") t)))
 
-
 (provide '+scratch)
 ;;; +scratch.el ends here
-- 
cgit 1.4.1-21-gabe81