os-github.el: clean filter and add debug message.
authorAurélien Aptel <k@b0.cx>
Mon, 13 Aug 2012 10:05:30 +0000 (12:05 +0200)
committerAurélien Aptel <k@b0.cx>
Mon, 13 Aug 2012 10:05:30 +0000 (12:05 +0200)
os-github.el

index 3116ed4..8fec5e1 100644 (file)
@@ -185,6 +185,7 @@ Append new tags in EXISTING-TAGS by side effects."
   "Send HTTP request at URL using METHOD with DATA.
 AUTH is a cons (\"user\" . \"pwd\").  Return the server decoded
 JSON response."
+  (message "%s %s %s" method url (prin1-to-string data))
   (let* ((url-request-method method)
          (url-request-data data)
          (auth os-github-auth)
@@ -212,10 +213,9 @@ JSON response."
 ;; XXX: we need an actual markdown parser here...
 (defun os-github-filter-desc (desc)
   "Return a filtered description of a GitHub description."
-  (setq desc (replace-regexp-in-string "^\\*" "-" desc))
-  (replace-regexp-in-string "\\([^ \t\n]\\)[ \t\n]*\\'"
-                            "\\1\n"
-                            (replace-regexp-in-string "\r\n" "\n" desc)))
+  (setq desc (replace-regexp-in-string "\r\n" "\n" desc))
+  (setq desc (replace-regexp-in-string "\\([^ \t\n]\\)[ \t\n]*\\'"
+                                       "\\1\n" desc)))          
 
 (defun os-github-json-to-bug (data)
   "Return DATA (in json) converted to a bug."