192 lines
6.5 KiB
EmacsLisp
192 lines
6.5 KiB
EmacsLisp
;;; oni-smt.el --- My SVG mode-line theme -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2014 Tom Willemse
|
|
|
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
|
;; Keywords: faces
|
|
|
|
;; This program 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 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program 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:
|
|
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(require 'svg-mode-line-themes)
|
|
(require 'flycheck)
|
|
(require 'cl)
|
|
|
|
(defun oni-smt-flycheck-errors-text (_)
|
|
"Show an indicator of the number of errors and warnings from flycheck."
|
|
(when flycheck-mode
|
|
(let* ((counts (flycheck-count-errors flycheck-current-errors))
|
|
(err-color (if (smt/window-active-p) "#a85454" "#969696"))
|
|
(warn-color (if (smt/window-active-p) "#a88654" "#969696"))
|
|
(info-color (if (smt/window-active-p) "#5476a8" "#969696"))
|
|
(err-count (alist-get 'error counts 0))
|
|
(warn-count (alist-get 'warning counts 0))
|
|
(info-count (alist-get 'info counts 0)))
|
|
`(tspan " " (tspan :fill ,err-color ,err-count)
|
|
"/" (tspan :fill ,warn-color ,warn-count)
|
|
"/" (tspan :fill ,info-color ,info-count)))))
|
|
|
|
(smt/defwidget oni-smt-flycheck-errors
|
|
:text #'oni-smt-flycheck-errors-text)
|
|
|
|
(defun oni-smt-jabber-activity-text (_)
|
|
"Show jabber activity indicator."
|
|
(if (and (smt/window-active-p)
|
|
(boundp 'jabber-activity-mode-string)
|
|
(not (equal jabber-activity-mode-string "")))
|
|
(concat jabber-activity-mode-string " ")))
|
|
|
|
(smt/defwidget oni-smt-jabber-activity
|
|
:text #'oni-smt-jabber-activity-text)
|
|
|
|
;;; TODO Turn:
|
|
;; #("message: (FORMAT-STRING &rest ARGS)"
|
|
;; 0 7 (face font-lock-function-name-face)
|
|
;; 10 23 (face eldoc-highlight-function-argument))
|
|
;;; into:
|
|
;;; (tspan (tspan :fill (fg-color font-lock-function-name-face) "message:")
|
|
;;; " ("
|
|
;;; (tspan :fill (fg-color highlight-function-argument) "FORMAT-STRING")
|
|
;;; " &rest ARGS)")
|
|
(defun oni-smt-eldoc-minibuffer-message (format-string &rest args)
|
|
(if (minibufferp)
|
|
(progn
|
|
(add-hook 'minibuffer-exit-hook
|
|
(lambda () (setq oni-smt-eldoc-message nil
|
|
eldoc-mode-line-string nil
|
|
eldoc-last-message nil))
|
|
nil t)
|
|
(setq oni-smt-eldoc-message
|
|
(when (stringp format-string)
|
|
(apply 'format format-string args)))
|
|
(force-mode-line-update t))
|
|
(apply 'message format-string args)))
|
|
|
|
(defvar oni-smt-eldoc-message nil)
|
|
(smt/defwidget oni-smt-eldoc-message
|
|
:text (lambda (widget)
|
|
(ignore widget)
|
|
(when oni-smt-eldoc-message
|
|
`(tspan :fill "#bfbfbf" " (" (tspan :fill "#5476a8" ,oni-smt-eldoc-message) ")"))))
|
|
|
|
(defun oni-smt-yoshi-title-style (_)
|
|
"Fill color for either active or inactive windows."
|
|
(list :fill (if (smt/window-active-p) "#65a854" "#969696")
|
|
:font-weight (if (smt/window-active-p) "bold" "normal")))
|
|
|
|
(smt/defwidget oni-smt-po-counters
|
|
:text (lambda (widget)
|
|
(ignore widget)
|
|
(when (eql major-mode 'po-mode)
|
|
(format " %dt+%df+%du+%do" po-translated-counter
|
|
po-fuzzy-counter po-untranslated-counter
|
|
po-obsolete-counter))))
|
|
|
|
(smt/defwidget oni-smt-buffer-identification
|
|
:style 'oni-smt-yoshi-title-style
|
|
:text (lambda (widget)
|
|
(ignore widget)
|
|
(concat
|
|
(string-trim
|
|
(substring-no-properties
|
|
(format-mode-line mode-line-buffer-identification)))
|
|
(when (and (or buffer-file-name
|
|
buffer-offer-save)
|
|
(buffer-modified-p))
|
|
"*"))))
|
|
|
|
(smt/defwidget oni-smt-current-dictionary
|
|
:text (lambda (widget)
|
|
(ignore widget)
|
|
(if flyspell-mode
|
|
(concat " " (or ispell-current-dictionary
|
|
ispell-local-dictionary
|
|
flyspell-default-dictionary)))))
|
|
|
|
(smt/defwidget oni-smt-erc
|
|
:text (lambda (_)
|
|
(when (boundp 'erc-modified-channels-alist)
|
|
erc-modified-channels-object)))
|
|
|
|
(smt/defwidget oni-smt-position
|
|
:text (lambda (_) (format-mode-line "%l/%c:%p")))
|
|
|
|
(defun oni-smt-read-only/write (_)
|
|
"Show a locked or unlocked icon."
|
|
`(tspan :font-family "FontAwesome"
|
|
:font-size 13
|
|
,(if buffer-read-only " " " ")))
|
|
|
|
(smt/defwidget oni-smt-rwo
|
|
:text #'oni-smt-read-only/write)
|
|
|
|
(defun oni-smt-extra-minor-modes (minor-modes)
|
|
"Add some more info to MINOR-MODES."
|
|
(if (boundp 'evil-state)
|
|
(let ((l (capitalize (elt (symbol-name evil-state) 0))))
|
|
`(tspan ,minor-modes (tspan :fill "#54a875" ,(char-to-string l))))
|
|
minor-modes))
|
|
|
|
(add-function
|
|
:filter-return
|
|
(symbol-function 'smt/minor-mode-indicator-text)
|
|
#'oni-smt-extra-minor-modes)
|
|
|
|
(smt/defrow oni-smt-right
|
|
:prototype 'default-right
|
|
:widgets '(oni-smt-jabber-activity
|
|
oni-smt-erc
|
|
major-mode
|
|
oni-smt-current-dictionary
|
|
oni-smt-flycheck-errors
|
|
version-control
|
|
minor-modes)
|
|
:margin 17)
|
|
|
|
(smt/defrow oni-smt-left
|
|
:prototype 'default-left
|
|
:widgets '(buffer-info
|
|
oni-smt-rwo
|
|
oni-smt-buffer-identification
|
|
oni-smt-po-counters
|
|
which-function
|
|
oni-smt-eldoc-message))
|
|
|
|
(smt/defrow oni-smt-position
|
|
:prototype 'default-position
|
|
:widgets '(oni-smt-position))
|
|
|
|
(defun oni-smt-major-mode-style (widget)
|
|
(ignore widget)
|
|
'(:fill "#ccc" :font-family "Fantasque Sans" :filter nil
|
|
:font-weight "bold" :font-style "italic"))
|
|
|
|
(smt/deftheme oni-smt
|
|
:prototype 'black-crystal
|
|
:local-widgets (list (cons 'major-mode
|
|
(smt/make-widget
|
|
:prototype 'major-mode
|
|
:style 'oni-smt-major-mode-style)))
|
|
:rows '(oni-smt-left oni-smt-position oni-smt-right))
|
|
|
|
(add-function :override (symbol-function 'eldoc-minibuffer-message)
|
|
#'oni-smt-eldoc-minibuffer-message)
|
|
|
|
(provide 'oni-smt)
|
|
;;; oni-smt.el ends here
|