                 mode-line-modified " "
                 my-mode-line-window-manipulation " "
                 mode-line-buffer-identification " "
-                mode-line-modes " "
+;                mode-line-modes " "
                 mode-line-position))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)




(setq-default my-mode-line-window-manipulation
  (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 "[⇩]"
                    '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 "[×]" ; "₀"
                    '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]" ; "₁"
                    'mouse-face 'mode-line-highlight
                    'help-echo "delete other windows"
                    'local-map (my-make-mode-line-mouse-map
