Move escape-string to utilities.

Raynes · Dec 9, 2012 · 7ef0e44 · 7ef0e44
1 parent dbd2f06
commit 7ef0e44
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/src/refheap/utilities.clj b/src/refheap/utilities.clj
@@ -20,3 +20,9 @@
       (assoc paste
              :contents (paste/pygmentize lexer contents)
              :summary (paste/pygmentize lexer (paste/preview contents))))))
+(defn escape-string
+  "Escapes all escape sequences in a string to make it suitable
+   for passing to another programming language. Kind of like what
+   pr-str does for strings but without the wrapper quotes."
+  [s]
+  (join (map #(char-escape-string % %) s)))
diff --git a/src/refheap/views/paste.clj b/src/refheap/views/paste.clj
@@ -87,13 +87,6 @@
         {:url (str (name scheme) "://" host "/paste/" (:paste-id paste) ".js")})
       {:title (str "Embedding paste " id)})))
 
-(defn escape-string
-  "Escapes all escape sequences in a string to make it suitable
-   for passing to another programming language. Kind of like what
-   pr-str does for strings but without the wrapper quotes."
-  [s]
-  (join (map #(char-escape-string % %) s)))
-
 (defn embed-paste [id host scheme]
   (content-type
    "text/javascript"