;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/terror-3/ev3-color.el

(require 'file-write-to)

(defvar color-path nil)

(let ((color-mode)
      (color-mode-file)
      (color-modes)
      (color-modes-file) )

  (defun color-init ()
    (setq color-mode-file  (format "%s/mode"  color-path))
    (setq color-modes-file (format "%s/modes" color-path))
    (setq color-mode       (file-to-string color-mode-file))
    (setq color-modes      (color-get-modes)) )

  (declare-function color-init nil)

  (defun color-get-modes ()
    (let*((modes-string  (file-to-string color-modes-file))
          (modes-strings (split-string modes-string )))
      modes-strings) )

  (declare-function color-get-modes nil)

  (defun color-set-mode (mode)
    (unless (string= color-mode mode)
      (when (member mode color-modes)
        (setq color-mode mode)
        (write-to-file color-mode-file mode) )))

  (declare-function color-set-mode nil) )

(provide 'ev3-color)