 (defn remove-mark-char
   [c]
   (mark->char c :nomark))
+

    (string/upper-case c2)))

(defn single-vowel?
  [c]
  (if (not= -1 (.indexOf SINGLE-VOWELS (string/lower-case c)))
    true
    false))

(defn single-consonant?
  [c]
  (not  (single-vowel? c))
  )

(defn get-accent-char
  [c]
  (let [accent-pos (.indexOf SINGLE-VOWELS (string/lower-case (str c)))
        current-accent (mod accent-pos 6)]
    (if (not= -1 accent-pos)
      (ACCENTS current-accent)
      :none)))

(defn accent->char
  "Add mark to a character.

  (if (char? char)
    (mark->char (str char) mark)
    (let [c (remove-accent-char (string/lower-case char))
          current-accent (char->accent char)]
      (accent->char (to-case-of char
                                (mark->char* c mark) )
                       current-accent))))
