657 lines
28 KiB
EmacsLisp
657 lines
28 KiB
EmacsLisp
;;; 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)
|
|
(require 'ring)
|
|
|
|
(defvar powerline-image-apple-rgb
|
|
(and (eq (window-system) 'ns)
|
|
(bound-and-true-p ns-use-srgb-colorspace)
|
|
(< 11
|
|
(string-to-number
|
|
(save-match-data
|
|
(and (string-match "darwin\\([0-9]+\\)" system-configuration)
|
|
(match-string-no-properties 1 system-configuration)))))
|
|
(< emacs-major-version 28))
|
|
"If non-nil, 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.
|
|
|
|
Obsolete since Emacs 28.")
|
|
|
|
(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
|
|
(ring-convert-sequence-to-ring lst)))
|
|
|
|
(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)
|
|
"Return list that has FILL 0s out of TOTAL 1s with FADE 2s to the right."
|
|
(unless fade
|
|
(setq fade 0))
|
|
(let ((fill (min fill total))
|
|
(fade (min fade (max (- total fill) 0))))
|
|
(nconc (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 `(apply 'concat ',header))
|
|
`(cl-loop for i to ,pattern-height-sym
|
|
concat (ring-ref ',pattern i))
|
|
(when center `(apply 'concat ',center))
|
|
(when second-pattern
|
|
`(cl-loop for i to ,second-pattern-height-sym
|
|
concat (ring-ref ',second-pattern i)))
|
|
(when footer `(apply 'concat ',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
|
|
:scale 1
|
|
: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/smooth-slant (dir)
|
|
"Generate a smoothed slant XPM function for DIR."
|
|
(let* ((row-modifier (if (eq dir 'left) 'identity 'reverse)))
|
|
(pl/wrap-defun "smooth-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-mod i 2))))))
|
|
`((cl-loop for i from 0 to (1- (* height 2))
|
|
concat (pl/pattern-to-string
|
|
(,row-modifier
|
|
(pl/row-pattern (/ i 2) (* width 2) (cl-mod i 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
|