5 (setq ns-use-srgb-colorspace nil)
7 (load-theme 'cyberpunk t)
10 (defun arrow-right-xpm (color1 color2)
11 "Return an XPM right arrow string representing."
13 static char * arrow_right[] = {
34 \". \"};" color1 color2))
36 (defun arrow-left-xpm (color1 color2)
37 "Return an XPM right arrow string representing."
39 static char * arrow_right[] = {
60 \" .\"};" color2 color1))
62 ;;(defconst color1 "#666666") ; gray40
63 ;;(defconst color2 "#999999") ; gray60
65 ;;j;(defconst color1 "#4682b4")
66 ;;(defconst color2 "#ff6347")
68 (defconst color1 "#6b8e23")
69 (defconst color2 "#eedd82")
71 ;;(set-face-attribute 'mode-line-color-2 nil
72 ;; :foreground "#171717"
74 ;; :background color2)
78 (defvar arrow-right-0 (create-image (arrow-right-xpm "None" color1) 'xpm t :ascent 'center))
79 (defvar arrow-right-1 (create-image (arrow-right-xpm color1 color2) 'xpm t :ascent 'center))
80 (defvar arrow-right-2 (create-image (arrow-right-xpm color2 "None") 'xpm t :ascent 'center))
81 (defvar arrow-left-1 (create-image (arrow-left-xpm color2 color1) 'xpm t :ascent 'center))
82 (defvar arrow-left-2 (create-image (arrow-left-xpm "None" color2) 'xpm t :ascent 'center))
86 (setq-default mode-line-format
92 '(:eval (concat (propertize " " 'display arrow-right-0)))
93 '(:eval (concat (propertize " %m " 'face 'mode-line-color-1)
94 (propertize " " 'display arrow-right-1)))
95 '(:eval (concat (propertize " %b " 'face 'mode-line-color-2)
96 (propertize " " 'display arrow-right-2)))
97 ;; Justify right by filling with spaces to right fringe - 16
98 ;; (16 should be computed rahter than hardcoded)
99 '(:eval (propertize " " 'display '((space :align-to (- right-fringe 17)))))
100 '(:eval (concat (propertize " " 'display arrow-left-2)
101 (propertize " %p " 'face 'mode-line-color-2)))
102 '(:eval (concat (propertize " " 'display arrow-left-1)
103 (propertize "%4l:%2c " 'face 'mode-line-color-1)))
107 (make-face 'mode-line-color-1)
108 (set-face-attribute 'mode-line-color-1 nil
109 :foreground "#fffacd"
113 (make-face 'mode-line-color-2)
114 (set-face-attribute 'mode-line-color-2 nil
115 :foreground "#fffacd"
119 (set-face-attribute 'mode-line nil
120 :foreground "#fffacd"
121 :background "#171717"
123 (set-face-attribute 'mode-line-inactive nil
124 :foreground "#fffacd"
125 :background "#171717")
129 (provide 'my-powerline)