 
 
 (setq-default my-mode-line-window-manipulation
-  (list (propertize "⇨"
+  (list (propertize "[⇨]"
                     'mouse-face 'mode-line-highlight
                     'help-echo "split window right"
                     'local-map (my-make-mode-line-mouse-map
                                 'down-mouse-1 #'ignore
                                 'mouse-1 #'my-mode-line-window-split-right))
-        (propertize "⇩"
+        (propertize "[⇩]"
                     'mouse-face 'mode-line-highlight
                     'help-echo "split window below"
                     'local-map (my-make-mode-line-mouse-map
                                 'down-mouse-1 #'ignore
                                 'mouse-1 #'my-mode-line-window-split-below))
-        (propertize "×" ; "₀"
+        (propertize "[×]" ; "₀"
                     'mouse-face 'mode-line-highlight
                     'help-echo "delete window"
                    'local-map (my-make-mode-line-mouse-map
                                 'down-mouse-1 #'ignore
                                 'mouse-1 #'my-mode-line-window-delete))
-        (propertize "1" ; "₁"
+        (propertize "[1]" ; "₁"
                     'mouse-face 'mode-line-highlight
                     'help-echo "delete other windows"
                     'local-map (my-make-mode-line-mouse-map

(require 'advice)

(defadvice mouse-drag-region (after my-sublime-like-mouse-select (start-event))
  (let ((click-count (event-click-count start-event)))
    (cond ((= click-count 2)
           (my-sublime-like-mouse-dblclick-select-fn))
          ((= click-count 1)
           (my-sublime-like-mouse-dblclick-unselect-fn)))))

(ad-activate 'mouse-drag-region)


(add-hook 'magit-log-edit-mode-hook 'turn-on-auto-fill)

;; Some Sublime Text-isms:

(defun my-sublime-like-mouse-dblclick-select-fn ()
  (let ((isearch-word t)
        (isearch-forward t)
        (beg (min (mark) (point)))
