From 474961355d7bd3fed6c31ca8182f8f10ae123b17 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 26 Jul 2015 22:11:23 +0200 Subject: [PATCH] Add overlay and background These were heavily inspired by ocodo-svg-modelines --- emacs/.emacs.d/site-lisp/oni-smt.el | 32 +++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/emacs/.emacs.d/site-lisp/oni-smt.el b/emacs/.emacs.d/site-lisp/oni-smt.el index 48f15fb..13e4365 100644 --- a/emacs/.emacs.d/site-lisp/oni-smt.el +++ b/emacs/.emacs.d/site-lisp/oni-smt.el @@ -177,8 +177,40 @@ '(:fill "#ccc" :font-family "Fantasque Sans" :filter nil :font-weight "bold" :font-style "italic")) +(defun oni-smt-background (theme) + "" + (let ((stops '(("0%" "#484848" 0.3) + ("25%" "#484848" 0.3) + ("75%" "#484848" 0.3) + ("100%" "#111111" 0.3)))) + `((\defs + (linearGradient + :id "twisted" :x1 "0%" :y1 "0%" :x2 "100%" :y2 "25%" + (stop :offset ,(first (nth 1 stops)) :stop-color ,(second (nth 1 stops)) :stop-opacity ,(third (nth 1 stops))) + (stop :offset ,(first (nth 2 stops)) :stop-color ,(second (nth 2 stops)) :stop-opacity ,(third (nth 2 stops))) + (stop :offset ,(first (nth 3 stops)) :stop-color ,(second (nth 3 stops)) :stop-opacity ,(third (nth 3 stops))) + (stop :offset ,(first (nth 4 stops)) :stop-color ,(second (nth 4 stops)) :stop-opacity ,(third (nth 4 stops))))) + (rect :width "100%" :height "100%" :x 0 :y 0 :fill "url(#twisted)")))) + +(defun oni-smt-overlay (_) + "" + (let ((stops '(("0%" "#FFFFFF" 0.1) + ("20%" "#111111" 0.0) + ("90%" "#111111" 0.5) + ("100%" "#111111" 0.8)))) + `((\defs + (linearGradient + :id "over-gradient" :x1 "0%" :y1 "0%" :x2 "0%" :y2 "100%" + (stop :offset ,(first (nth 1 stops)) :stop-color ,(second (nth 1 stops)) :stop-opacity ,(third (nth 1 stops))) + (stop :offset ,(first (nth 2 stops)) :stop-color ,(second (nth 2 stops)) :stop-opacity ,(third (nth 2 stops))) + (stop :offset ,(first (nth 3 stops)) :stop-color ,(second (nth 3 stops)) :stop-opacity ,(third (nth 3 stops))) + (stop :offset ,(first (nth 4 stops)) :stop-color ,(second (nth 4 stops)) :stop-opacity ,(third (nth 4 stops))))) + (rect :width "100%" :height "100%" :x 0 :y 0 :fill "url(#over-gradient)")))) + (smt/deftheme oni-smt :prototype 'black-crystal + :overlay 'oni-smt-overlay + :background 'oni-smt-background :local-widgets (list (cons 'major-mode (smt/make-widget :prototype 'major-mode