 (global-set-key (kbd "C-c C-v ;") 'toggle-truncate-lines)
 (setq-default truncate-lines t)
 (if full-colors-supported
-    (let ((bogus nil))
+    (let ()
         (global-hl-line-mode 1)
         (set-face-background 'hl-line "ivory")))
 (defvar current-date-format "%Y-%m-%d")

                    "&")))
    (url-retrieve url callback)))

(defun strip-http-headers (entity)
    (let ((i (string-match "\n\n" entity)))
            (decode-coding-string (substring entity (+ i 2)) 'utf-8)))

(defun http-get (url callback)
    (setq view-current-line (line-number-at-pos))
    (url-retrieve url callback))


;; BUFFERS / VARIABLES ;;;;;;;;;;;;;;;;;

    (interactive)
    (let (
        (entity (buffer-string)))
        ;; The received view may very well differ from the pushed view in terms of line numbering,
        ;; but we'll try to stay on the same line anyway.
        (setq view-current-line (line-number-at-pos))
        (http-post
            (concat (base-url) "update")
            (list
