add lisp packages

2020-12-05 21:29:49 +01:00
parent 85e20365ae
commit a6e2395755
7272 changed files with 1363243 additions and 0 deletions
--- a/lisp/org-cliplink/org-cliplink-string.el
+++ b/lisp/org-cliplink/org-cliplink-string.el
@@ -0,0 +1,18 @@
+(defun org-cliplink-straight-string (s)
+  (when s
+    (mapconcat #'identity (split-string s) " ")))
+
+(defun org-cliplink-join-string (ss)
+  (mapconcat #'identity ss " "))
+
+(defun org-cliplink-elide-string (s max-length)
+  (if max-length
+      (when s
+        (if (> max-length 3)
+            (if (> (length s) max-length)
+                (concat (substring s 0 (- max-length 3)) "...")
+              s)
+          "..."))
+    s))
+
+(provide 'org-cliplink-string)