-;; Time-stamp: <2017-04-12 11:46:55 kmodi>
+;; Time-stamp: <2017-06-08 16:38:23 kmodi>
 
 ;; Set up the looks of emacs
 


;;; Frame Title
(defun modi/update-frame-title ()
  "Update the `frame-title-format'."
  (interactive)
  (setq frame-title-format
        `("emacs "
          (emacs-git-branch
           ;; If `emacs-git-branch' is non-nil, show that
           ,(concat "[" emacs-git-branch "]")
           ;; Else show the version number
           ,(concat (number-to-string emacs-major-version)
                    "."
                    (number-to-string emacs-minor-version)))
          "   "
          ;; If `buffer-file-name' exists, show it
          (buffer-file-name "%f"
                            ;; Else show the directory name if in dired mode
                            (dired-directory dired-directory
                                             ;; Else show the buffer name
                                             ;; (*scratch*, *Messages*, etc)
                                             "%b"))
          "%*"))) ; *=modified, %=read-only, -=editable,not modified
(add-hook 'after-init-hook #'modi/update-frame-title)

;;; Fonts


(bind-keys
 :map modi-mode-map
 ;; <C-down-mouse-1> is bound to `mouse-buffer-menu' by default. It is
 ;; inconvenient when that mouse menu pops up when I don't need it
 ;; to. And actually I have never used that menu :P
 ("<C-down-mouse-1>" . modi/global-font-size-reset) ;Ctrl + left mouse down event
 ("<C-mouse-1>" . modi/global-font-size-reset)      ;Ctrl + left mouse up event
 ;; Make Control+mousewheel do increase/decrease font-size
 ;; http://ergoemacs.org/emacs/emacs_mouse_wheel_config.html
 ("<C-mouse-4>" . modi/global-font-size-incr)  ;Ctrl + wheel-up
 ("<C-mouse-5>" . modi/global-font-size-decr)) ;Ctrl + wheel-down

(>=e "25.0"
    ;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=21480
