diff options
Diffstat (limited to 'elpa/powerline-20200105.2053/powerline-separators.el')
| -rw-r--r-- | elpa/powerline-20200105.2053/powerline-separators.el | 635 |
1 files changed, 635 insertions, 0 deletions
diff --git a/elpa/powerline-20200105.2053/powerline-separators.el b/elpa/powerline-20200105.2053/powerline-separators.el new file mode 100644 index 0000000..ee560d4 --- /dev/null +++ b/elpa/powerline-20200105.2053/powerline-separators.el @@ -0,0 +1,635 @@ +;;; powerline-separators.el --- Separators for Powerline + +;; Copyright (C) 2012-2013 Donald Ephraim Curtis +;; Copyright (C) 2013 Jason Milkins +;; Copyright (C) 2012 Nicolas Rougier + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: +;; +;; Separators for Powerline. +;; Included separators: alternate, arrow, arrow-fade, bar, box, brace, butt, +;; chamfer, contour, curve, rounded, roundstub, slant, wave, zigzag, and nil. +;; + +;;; Code: + +(require 'cl-lib) +(require 'color) + +(defvar powerline-image-apple-rgb + (and (eq (window-system) 'ns) + ns-use-srgb-colorspace + (< 11 + (string-to-number + (and (string-match "darwin\\([0-9]+\\)" system-configuration) + (match-string-no-properties 1 system-configuration))))) + "Boolean variable to determine whether to use Apple RGB colorspace to render images. + +t on macOS 10.7+ and `ns-use-srgb-colorspace' is t, nil otherwise. + +This variable is automatically set, there's no need to modify it.") + +(defun pl/interpolate (color1 color2) + "Interpolate between COLOR1 and COLOR2. + +COLOR1 and COLOR2 must be supplied as hex strings with a leading #." + (let* ((c1 (color-name-to-rgb color1)) + (c2 (color-name-to-rgb color2)) + (red (/ (+ (nth 0 c1) (nth 0 c2)) 2)) + (green (/ (+ (nth 1 c1) (nth 1 c2)) 2)) + (blue (/ (+ (nth 2 c1) (nth 2 c2)) 2))) + (color-rgb-to-hex red green blue))) + +(defun pl/color-xyz-to-apple-rgb (X Y Z) + "Convert CIE X Y Z colors to Apple RGB color space." + (let ((r (+ (* 3.2404542 X) (* -1.5371385 Y) (* -0.4985314 Z))) + (g (+ (* -0.9692660 X) (* 1.8760108 Y) (* 0.0415560 Z))) + (b (+ (* 0.0556434 X) (* -0.2040259 Y) (* 1.0572252 Z)))) + (list (expt r (/ 1.8)) (expt g (/ 1.8)) (expt b (/ 1.8))))) + +(defun pl/color-srgb-to-apple-rgb (red green blue) + "Convert RED GREEN BLUE colors from sRGB color space to Apple RGB. +RED, GREEN and BLUE should be between 0.0 and 1.0, inclusive." + (apply 'pl/color-xyz-to-apple-rgb (color-srgb-to-xyz red green blue))) + +(defun pl/hex-color (color) + "Get the hexadecimal value of COLOR." + (when color + (let ((srgb-color (color-name-to-rgb color))) + (if powerline-image-apple-rgb + (apply 'color-rgb-to-hex (apply 'pl/color-srgb-to-apple-rgb srgb-color)) + (apply 'color-rgb-to-hex srgb-color))))) + +(defun pl/pattern (lst) + "Turn LST into an infinite pattern." + (when lst + (let ((pattern (cl-copy-list lst))) + (setcdr (last pattern) pattern)))) + +(defun pl/pattern-to-string (pattern) + "Convert a PATTERN into a string that can be used in an XPM." + (concat "\"" (mapconcat 'number-to-string pattern "") "\",")) + +(defun pl/reverse-pattern (pattern) + "Reverse each line in PATTERN." + (mapcar 'reverse pattern)) + +(defun pl/row-pattern (fill total &optional fade) + "Make a list that has FILL 0s out of TOTAL 1s with FADE 2s to the right of the fill." + (unless fade + (setq fade 0)) + (let ((fill (min fill total)) + (fade (min fade (max (- total fill) 0)))) + (append (make-list fill 0) + (make-list fade 2) + (make-list (- total fill fade) 1)))) + +(defun pl/pattern-bindings-body (patterns height-exp pattern-height-sym + second-pattern-height-sym) + "Create let-var bindings and a function body from PATTERNS. +The `car' and `cdr' parts of the result can be passed to the +function `pl/wrap-defun' as its `let-vars' and `body' arguments, +respectively. HEIGHT-EXP is an expression calculating the image +height and it should contain a free variable `height'. +PATTERN-HEIGHT-SYM and SECOND-PATTERN-HEIGHT-SYM are symbols used +for let-var binding variables." + (let* ((pattern (pl/pattern (mapcar 'pl/pattern-to-string (car patterns)))) + (header (mapcar 'pl/pattern-to-string (nth 1 patterns))) + (footer (mapcar 'pl/pattern-to-string (nth 2 patterns))) + (second-pattern (pl/pattern (mapcar 'pl/pattern-to-string (nth 3 patterns)))) + (center (mapcar 'pl/pattern-to-string (nth 4 patterns))) + (reserve (+ (length header) (length footer) (length center)))) + (when pattern + (cons `((,pattern-height-sym (max (- ,height-exp ,reserve) 0)) + (,second-pattern-height-sym (/ ,pattern-height-sym 2)) + (,pattern-height-sym ,(if second-pattern `(ceiling ,pattern-height-sym 2) `,pattern-height-sym))) + (list (when header `(mapconcat 'identity ',header "")) + `(mapconcat 'identity + (cl-subseq ',pattern 0 ,pattern-height-sym) "") + (when center `(mapconcat 'identity ',center "")) + (when second-pattern + `(mapconcat 'identity + (cl-subseq ',second-pattern + 0 ,second-pattern-height-sym) "")) + (when footer `(mapconcat 'identity ',footer ""))))))) + +(defun pl/pattern-defun (name dir width &rest patterns) + "Create a powerline function of NAME in DIR with WIDTH for PATTERNS. + +PATTERNS is of the form (PATTERN HEADER FOOTER SECOND-PATTERN CENTER +PATTERN-2X HEADER-2X FOOTER-2X SECOND-PATTERN-2X CENTER-2X). +PATTERN is required, all other components are optional. +The first 5 components are for the standard resolution image. +The remaining ones are for the high resolution image where both +width and height are doubled. If PATTERN-2X is nil or not given, +then the remaining components are ignored and the standard +resolution image with magnification and interpolation will be +used in high resolution environments + +All generated functions generate the form: +HEADER +PATTERN ... +CENTER +SECOND-PATTERN ... +FOOTER + +PATTERN and SECOND-PATTERN repeat infinitely to fill the space needed to generate a full height XPM. + +PATTERN, HEADER, FOOTER, SECOND-PATTERN, CENTER are of the form ((COLOR ...) (COLOR ...) ...). + +COLOR can be one of 0, 1, or 2, where 0 is the source color, 1 is the +destination color, and 2 is the interpolated color between 0 and 1." + (when (eq dir 'right) + (setq patterns (mapcar 'pl/reverse-pattern patterns))) + (let ((bindings-body (pl/pattern-bindings-body patterns + 'height + 'pattern-height + 'second-pattern-height)) + (bindings-body-2x (pl/pattern-bindings-body (nthcdr 5 patterns) + '(* height 2) + 'pattern-height-2x + 'second-pattern-height-2x))) + (pl/wrap-defun name dir width + (append (car bindings-body) (car bindings-body-2x)) + (cdr bindings-body) (cdr bindings-body-2x)))) + +(defun pl/background-color (face) + (face-attribute face + (if (face-attribute face :inverse-video nil 'default) + :foreground + :background) + nil + 'default)) + +(defun pl/wrap-defun (name dir width let-vars body &optional body-2x) + "Generate a powerline function of NAME in DIR with WIDTH using LET-VARS and BODY." + (let* ((src-face (if (eq dir 'left) 'face1 'face2)) + (dst-face (if (eq dir 'left) 'face2 'face1))) + `(defun ,(intern (format "powerline-%s-%s" name (symbol-name dir))) + (face1 face2 &optional height) + (when window-system + (unless height (setq height (pl/separator-height))) + (let* ,(append `((color1 (when ,src-face + (pl/hex-color (pl/background-color ,src-face)))) + (color2 (when ,dst-face + (pl/hex-color (pl/background-color ,dst-face)))) + (colori (when (and color1 color2) (pl/interpolate color1 color2))) + (color1 (or color1 "None")) + (color2 (or color2 "None")) + (colori (or colori "None"))) + let-vars) + (apply 'create-image + ,(append `(concat (format "/* XPM */ static char * %s_%s[] = { \"%s %s 3 1\", \"0 c %s\", \"1 c %s\", \"2 c %s\"," + ,(replace-regexp-in-string "-" "_" name) + (symbol-name ',dir) + ,width + height + color1 + color2 + colori)) + body + '("};")) + 'xpm t + :ascent 'center + :face (when (and face1 face2) + ,dst-face) + ,(and body-2x + `(and (featurep 'mac) + (list :data-2x + ,(append `(concat (format "/* XPM */ static char * %s_%s_2x[] = { \"%s %s 3 1\", \"0 c %s\", \"1 c %s\", \"2 c %s\"," + ,(replace-regexp-in-string "-" "_" name) + (symbol-name ',dir) + (* ,width 2) + (* height 2) + color1 + color2 + colori)) + body-2x + '("};"))))))))))) + +(defmacro pl/alternate (dir) + "Generate an alternating pattern XPM function for DIR." + (pl/pattern-defun "alternate" dir 4 + '((2 2 1 1) + (0 0 2 2)) + nil nil nil nil + ;; 2x + '((2 2 2 2 1 1 1 1) + (2 2 2 2 1 1 1 1) + (0 0 0 0 2 2 2 2) + (0 0 0 0 2 2 2 2)))) + +(defmacro pl/arrow (dir) + "Generate an arrow XPM function for DIR." + (let ((row-modifier (if (eq dir 'left) 'identity 'reverse))) + (pl/wrap-defun "arrow" dir 'middle-width + '((width (1- (/ height 2))) + (middle-width (1- (ceiling height 2)))) + `((cl-loop for i from 0 to width + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i middle-width)))) + (when (cl-oddp height) + (pl/pattern-to-string (make-list middle-width 0))) + (cl-loop for i from width downto 0 + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i middle-width))))) + `((when (cl-evenp height) + (pl/pattern-to-string (make-list (* middle-width 2) 1))) + (cl-loop for i from 0 to (* middle-width 2) + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i (* middle-width 2))))) + (cl-loop for i from (* middle-width 2) downto 0 + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i (* middle-width 2))))) + (when (cl-evenp height) + (pl/pattern-to-string (make-list (* middle-width 2) 1))))))) + +(defmacro pl/arrow-fade (dir) + "Generate an arrow-fade XPM function for DIR." + (let* ((row-modifier (if (eq dir 'left) 'identity 'reverse))) + (pl/wrap-defun "arrow-fade" dir 'middle-width + '((width (1- (/ height 2))) + (middle-width (1+ (ceiling height 2)))) + `((cl-loop for i from 0 to width + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i middle-width 2)))) + (when (cl-oddp height) + (pl/pattern-to-string (,row-modifier (pl/row-pattern (1+ width) middle-width 2)))) + (cl-loop for i from width downto 0 + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i middle-width 2))))) + `((when (cl-evenp height) + (pl/pattern-to-string (,row-modifier (pl/row-pattern 0 (* middle-width 2) (* 2 2))))) + (cl-loop for i from 0 to (* (- middle-width 2) 2) + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i (* middle-width 2) (* 2 2))))) + (cl-loop for i from (* (- middle-width 2) 2) downto 0 + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern i (* middle-width 2) (* 2 2))))) + (when (cl-evenp height) + (pl/pattern-to-string (,row-modifier (pl/row-pattern 0 (* middle-width 2) (* 2 2))))))))) + +(defmacro pl/bar (dir) + "Generate a bar XPM function for DIR." + (pl/pattern-defun "bar" dir 2 + '((2 2)))) + +(defmacro pl/box (dir) + "Generate a box XPM function for DIR." + (pl/pattern-defun "box" dir 2 + '((0 0) + (0 0) + (1 1) + (1 1)) + nil nil nil nil + ;; 2x + '((0 0 0 0) + (0 0 0 0) + (0 0 0 0) + (0 0 0 0) + (1 1 1 1) + (1 1 1 1) + (1 1 1 1) + (1 1 1 1)))) + +(defmacro pl/brace (dir) + "Generate a brace XPM function for DIR." + (pl/pattern-defun "brace" dir 4 + '((0 1 1 1)) + '((1 1 1 1) + (2 1 1 1)) + '((2 1 1 1) + (1 1 1 1)) + '((0 1 1 1)) + '((0 2 1 1) + (0 2 1 1) + (0 0 2 1) + (0 0 0 0) + (0 0 2 1) + (0 2 1 1) + (0 2 1 1)) + ;; 2x + '((0 0 1 1 1 1 1 1)) + '((1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (2 1 1 1 1 1 1 1) + (0 2 1 1 1 1 1 1)) + '((0 2 1 1 1 1 1 1) + (2 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1)) + '((0 0 1 1 1 1 1 1)) + '((0 0 2 1 1 1 1 1) + (0 0 0 1 1 1 1 1) + (0 0 0 2 1 1 1 1) + (0 0 0 0 1 1 1 1) + (0 0 0 0 2 1 1 1) + (0 0 0 0 0 2 1 1) + (0 0 0 0 0 0 0 2) + (0 0 0 0 0 0 0 2) + (0 0 0 0 0 2 1 1) + (0 0 0 0 2 1 1 1) + (0 0 0 0 1 1 1 1) + (0 0 0 2 1 1 1 1) + (0 0 0 1 1 1 1 1) + (0 0 2 1 1 1 1 1)))) + +(defmacro pl/butt (dir) + "Generate a butt XPM function for DIR." + (pl/pattern-defun "butt" dir 3 + '((0 0 0)) + '((1 1 1) + (0 1 1) + (0 0 1)) + '((0 0 1) + (0 1 1) + (1 1 1)) + nil nil + ;; 2x + '((0 0 0 0 0 0)) + '((1 1 1 1 1 1) + (0 1 1 1 1 1) + (0 0 1 1 1 1) + (0 0 0 1 1 1) + (0 0 0 0 1 1) + (0 0 0 0 0 1)) + '((0 0 0 0 0 1) + (0 0 0 0 1 1) + (0 0 0 1 1 1) + (0 0 1 1 1 1) + (0 1 1 1 1 1) + (1 1 1 1 1 1)))) + +(defmacro pl/chamfer (dir) + "Generate a chamfer XPM function for DIR." + (pl/pattern-defun "chamfer" dir 3 + '((0 0 0)) + '((1 1 1) + (0 1 1) + (0 0 1)) + nil nil nil + ;; 2x + '((0 0 0 0 0 0)) + '((1 1 1 1 1 1) + (0 1 1 1 1 1) + (0 0 1 1 1 1) + (0 0 0 1 1 1) + (0 0 0 0 1 1) + (0 0 0 0 0 1)))) + +(defmacro pl/contour (dir) + "Generate a contour XPM function for DIR." + (pl/pattern-defun "contour" dir 10 + '((0 0 0 0 0 1 1 1 1 1)) + '((1 1 1 1 1 1 1 1 1 1) + (0 2 1 1 1 1 1 1 1 1) + (0 0 2 1 1 1 1 1 1 1) + (0 0 0 2 1 1 1 1 1 1) + (0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 2 1 1 1 1 1)) + '((0 0 0 0 0 2 1 1 1 1) + (0 0 0 0 0 0 1 1 1 1) + (0 0 0 0 0 0 2 1 1 1) + (0 0 0 0 0 0 0 2 1 1) + (0 0 0 0 0 0 0 0 0 0)) + nil nil + ;; 2x + '((0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1)) + '((1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1)) + '((0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)))) + +(defmacro pl/curve (dir) + "Generate a curve XPM function for DIR." + (pl/pattern-defun "curve" dir 4 + '((0 0 0 0)) + '((1 1 1 1) + (2 1 1 1) + (0 0 1 1) + (0 0 2 1) + (0 0 0 1) + (0 0 0 2)) + '((0 0 0 2) + (0 0 0 1) + (0 0 2 1) + (0 0 1 1) + (2 1 1 1) + (1 1 1 1)) + nil nil + ;; 2x + '((0 0 0 0 0 0 0 0)) + '((1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (0 0 1 1 1 1 1 1) + (0 0 0 2 1 1 1 1) + (0 0 0 0 2 1 1 1) + (0 0 0 0 0 2 1 1) + (0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 0 1)) + '((0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 1 1) + (0 0 0 0 0 2 1 1) + (0 0 0 0 2 1 1 1) + (0 0 0 2 1 1 1 1) + (0 0 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1) + (1 1 1 1 1 1 1 1)))) + +(defmacro pl/rounded (dir) + "Generate a rounded XPM function for DIR." + (pl/pattern-defun "rounded" dir 6 + '((0 0 0 0 0 0)) + '((2 1 1 1 1 1) + (0 0 2 1 1 1) + (0 0 0 0 1 1) + (0 0 0 0 2 1) + (0 0 0 0 0 1) + (0 0 0 0 0 2)) + nil nil nil + ;; 2x + '((0 0 0 0 0 0 0 0 0 0 0 0)) + '((1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 2 1 1 1 1 1 1 1 1 1) + (0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 0 0 2 1 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1 1) + (0 0 0 0 0 0 0 0 0 1 1 1) + (0 0 0 0 0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 0 0 0 0 2 1) + (0 0 0 0 0 0 0 0 0 0 0 1) + (0 0 0 0 0 0 0 0 0 0 0 1)))) + +(defmacro pl/roundstub (dir) + "Generate a roundstub XPM function for DIR." + (pl/pattern-defun "roundstub" dir 3 + '((0 0 0)) + '((1 1 1) + (0 0 1) + (0 0 2)) + '((0 0 2) + (0 0 1) + (1 1 1)) + nil nil + ;; 2x + '((0 0 0 0 0 0)) + '((1 1 1 1 1 1) + (2 1 1 1 1 1) + (0 0 0 2 1 1) + (0 0 0 0 1 1) + (0 0 0 0 0 1) + (0 0 0 0 0 1)) + '((0 0 0 0 0 1) + (0 0 0 0 0 1) + (0 0 0 0 1 1) + (0 0 0 2 1 1) + (2 1 1 1 1 1) + (1 1 1 1 1 1)))) + +(defmacro pl/slant (dir) + "Generate a slant XPM function for DIR." + (let* ((row-modifier (if (eq dir 'left) 'identity 'reverse))) + (pl/wrap-defun "slant" dir 'width + '((width (1- (ceiling height 2)))) + `((cl-loop for i from 0 to (1- height) + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern (/ i 2) width))))) + `((cl-loop for i from 0 to (1- (* height 2)) + concat (pl/pattern-to-string (,row-modifier (pl/row-pattern (/ i 2) (* width 2))))))))) + +(defmacro pl/wave (dir) + "Generate a wave XPM function for DIR." + (pl/pattern-defun "wave" dir 11 + '((0 0 0 0 0 0 1 1 1 1 1)) + '((2 1 1 1 1 1 1 1 1 1 1) + (0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 2 1 1 1 1 1 1 1) + (0 0 0 0 1 1 1 1 1 1 1) + (0 0 0 0 2 1 1 1 1 1 1) + (0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 2 1 1 1 1 1)) + '((0 0 0 0 0 0 2 1 1 1 1) + (0 0 0 0 0 0 0 1 1 1 1) + (0 0 0 0 0 0 0 1 1 1 1) + (0 0 0 0 0 0 0 2 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1) + (0 0 0 0 0 0 0 0 2 1 1) + (0 0 0 0 0 0 0 0 0 0 2)) + nil nil + ;; 2x + '((0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1)) + '((1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1)) + '((0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1) + (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)))) + +(defmacro pl/zigzag (dir) + "Generate a zigzag pattern XPM function for DIR." + (pl/pattern-defun "zigzag" dir 3 + '((1 1 1) + (0 1 1) + (0 0 1) + (0 0 0) + (0 0 1) + (0 1 1)) + nil nil nil nil + ;; 2x + '((1 1 1 1 1 1) + (0 1 1 1 1 1) + (0 0 1 1 1 1) + (0 0 0 1 1 1) + (0 0 0 0 1 1) + (0 0 0 0 0 1) + (0 0 0 0 0 0) + (0 0 0 0 0 1) + (0 0 0 0 1 1) + (0 0 0 1 1 1) + (0 0 1 1 1 1) + (0 1 1 1 1 1)))) + +(defmacro pl/nil (dir) + "Generate a XPM function that returns nil for DIR." + `(defun ,(intern (format "powerline-nil-%s" (symbol-name dir))) + (face1 face2 &optional height) + nil)) + +(defmacro pl/utf-8 (dir) + "Generate function that returns raw utf-8 symbols." + (let ((dir-name (symbol-name dir)) + (src-face (if (eq dir 'left) 'face1 'face2)) + (dst-face (if (eq dir 'left) 'face2 'face1))) + `(defun ,(intern (format "powerline-utf-8-%s" dir-name)) + (face1 face2 &optional height) + (powerline-raw + (char-to-string ,(intern (format "powerline-utf-8-separator-%s" + dir-name))) + (list :foreground (pl/background-color ,src-face) + :background (pl/background-color ,dst-face) + :inverse-video nil))))) + + +(provide 'powerline-separators) + +;;; powerline-separators.el ends here |