 
      ;; relative position, size of file
     "["
-    "%p"
-    ;;(propertize "%p" 'face 'font-lock-constant-face) ;; % above top
+    ;;"%p"
+    (propertize "%p" 'face 'font-lock-constant-face) ;; % above top
     "/"
-    "%I"
-    ;;(propertize "%I" 'face 'font-lock-constant-face) ;; size
+    ;;"%I"
+    (propertize "%I" 'face 'font-lock-constant-face) ;; size
     "] "
 
     ;; the current major mode for the buffer.
     "["
 
-    '(:eval (propertize "%m" 'face nil
+    '(:eval (propertize "%m" 'face font-lock-type-face
               'help-echo buffer-file-coding-system))
     "] "
 

    ;; is this buffer read-only?
    '(:eval (when buffer-read-only
              (concat ","  (propertize "RO"
                             'face nil
                             'help-echo "Buffer is read-only"))))
    "] "


(setq-default mode-line-format
  (list
    ;; the buffer name; the file name as a tool tip
    '(:eval (propertize "%b " 'face font-lock-keyword-face
        'help-echo (buffer-file-name)))

    ;; line and column
