Fix issues with online export.

Sometimes we just didn't escape things properly. Use url-lib to handle
that for us, because we really shouldn't have to be doing stuff like
this manually.

wsd-core.el

@@ -205,7 +205,7 @@ to the operating-system to open the local copy."
       (message url))))
 
 (defun wsd-browse-url (url)
-  "Open `URL' in a browser which can support image-formats not understood by emacs."
+  "Open `URL' in a browser which can support image-formats not understood by Emacs."
 
   ;; Some people have eww bound as the default-browser.
   ;;
@@ -219,12 +219,19 @@ to the operating-system to open the local copy."
       (eww-browse-with-external-browser url)
     (browse-url url)))
 
+(defun wsd-get-diagram-online-url (message)
+  "Return the url to show `MESSAGE' online."
+  (let*
+      ((encoded      (url-build-query-string
+                      `((m ,message))))
+       (url          (concat wsd-base-url "?" encoded)))
+    url))
+
 (defun wsd-show-diagram-online ()
   "Show the current buffer on www.websequencediagrams.com."
   (interactive)
   (let* ((message      (buffer-substring-no-properties (point-min) (point-max)))
-         (encoded      (wsd-encode message))
-         (url          (concat wsd-base-url "?m=" encoded)))
+         (url          (wsd-get-diagram-online-url message)))
     (browse-url url)))
 
 (provide 'wsd-core)

wsd-mode.el

@@ -2,7 +2,7 @@
 
 ;; Author     : Jostein Kjønigsen <jostein@gmail.com>
 ;; Created    : December 2014
-;; Modified   : Februar 2016
+;; Modified   : February 2016
 ;; Version    : 0.5.0
 ;; Keywords   : wsd diagrams design process modelling uml
 ;; X-URL      : https://github.com/josteink/wsd-mode

wsd-tests.el

@@ -173,6 +173,17 @@
 
     (kill-buffer buffer)))
 
+(ert-deftest document-contents-are-encoded-when-shown-online ()
+  (let* ((test-chars "\"#¤&/()+&<>")
+         (url-base   (wsd-get-diagram-online-url ""))
+         (url        (wsd-get-diagram-online-url test-chars))
+         (url-query  (substring url (length url-base))))
+    (dolist (char (string-to-list test-chars))
+      ;; (message (concat "Testing " (string char)))
+      (should (not (string-match-p
+                    (regexp-quote (string char))
+                    url-query))))))
+
 ;; (ert-deftest flycheck-errors-are-returned ()
 ;;   (let* ((result (wsd-flycheck-parse-errors
 ;;                   'wsd-mode-checker