 
 (def enrich-text (memoize enrich-text))
 
+(defn make-external-link
+  [url]
+  [:a {:href url
+       :target :blank}
+   url])
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; String manipulation (maybe for cuerdas?)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defmethod convert-http-url :default
  [url]
  [:a {:href url} url])

(register-enricher! http-url-regex convert-http-url)


(defn make-image-message
  [url]
  [:span
   (make-external-link url)
   [:br]
   [:img {:src url
          :class-name "message-image"}]])
