From 357e30ad12017b4d67cac5f4400e8f371cd2f504 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tantek=20=C3=87elik?= <tantek@tantek.com>
Date: Mon, 4 Apr 2016 08:31:04 -0700
Subject: [PATCH] new function trim_leading_urls

new function from Falcon, trim_leading_urls, useful for generating post
name/title from plain text that is usually auto-linked/embedded, e.g.
photo posts
---
 cassis.js | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/cassis.js b/cassis.js
index 63f6dcf..278a392 100755
--- a/cassis.js
+++ b/cassis.js
@@ -1199,6 +1199,24 @@ function ellipsize_to_word($s, $max, $e, $min) { /// ?> <!--   ///
   return strcat(substr($s, 0, $slen), $e);
 }
 
+function trim_leading_urls($s) {
+  // deliberately trim URLs with explicit http: / https: from start
+  // keep schemeless URLs, @-names as expected user-visible text
+  // if empty or just space after trimming, just return original
+  $r = trim($s);
+  while (substr($r, 0, 5) == 'http:' || substr($r, 0, 6) == 'https:')
+  {
+    $ws = offset(' ', $r);
+    $rs = offset("\r", $r);
+    if ($rs == 0) { $rs = offset("\n", $r); }
+    if ($rs != 0 && $rs < $ws) { $ws = $rs; }
+    if ($ws == 0) { return $s; }
+    $r = substr($r, $ws, strlen($r)-$ws);
+  }
+  $r = trim($r);
+  return ((strlen($r) > 0) ? $r : $s);
+}
+
 function auto_space($s) {
 // replace linebreaks with <br class="auto-break"/>
 //  and one leading space with &nbsp;