 
 (defun mode-line-buffer-file-parent-directory ()
   (when buffer-file-name
-    (shortened-path default-directory 40)))
+    (shortened-path default-directory 15)))
 (setq-default mode-line-buffer-identification
               (cons
                '((:eval (mode-line-buffer-file-parent-directory)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  => Package stuff
;;  => General setting

;;  => Custom set variables

;; ======== Package stuff ========

;;; Code:

(package-initialize)
(require 'package)
