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, 0 insertions, 635 deletions
diff --git a/elpa/powerline-20200105.2053/powerline-separators.el b/elpa/powerline-20200105.2053/powerline-separators.el deleted file mode 100644 index ee560d4..0000000 --- a/elpa/powerline-20200105.2053/powerline-separators.el +++ /dev/null @@ -1,635 +0,0 @@ -;;; 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 |