(def shortlink (url)
  (unless (or (no url) (< (len url) 7))
    (link (cut url 7) url)))

From html.arc ©