/* static-witch */
:root {
    --default-bg: #000000; /* base00 */
    --light-bg: #0A0101; /* base01 */
    --selection-bg: #e99857; /* base02 */
    --comment: #454545; /* base03 */
    --darkest-fg: #aabcb0; /* base04 */
    --fg: #aabcb0; /* base05 color of plastic*/
    --brightest-fg: #f1edb9; /* base07 */
    --variable: #BDCC76; /* base08 */
    --constant: #e99857; /* base09 */
    --class: #995167; /* base0A */
    --string: #53777D; /* base0B */
    --function: #894F4F; /* base0D */
    --keyword: #70588F; /* base0E */
}

  ;;; modelynne-segments.el --- modelynne segment definitions  -*- lexical-binding: t; -*-

(require 'modelynne-core)

(defun mode-lynne-segment-modal ()
  "Return the current `meow` state."
  (let ((mode-cons (alist-get meow--current-state
                              mode-lynne-modal-state-alist)))
    (concat (propertize (car mode-cons) 'face (cdr mode-cons)))))

(defun mode-lynne-segment-major-mode ()
  "Return the current major mode, formatted for readability, with a special symbol."
  (let ((indicator (or (alist-get major-mode
                                  mode-lynne-major-mode-alist)
                       (mode-lynne-major-mode-default))))
    (propertize indicator 'face 'gray75)))

(provide 'modelynne-segments)

;;; modelynne-segments.el ends here