              (rcirc-server ((t (:foreground ,base1))))
              (rcirc-timestamp ((t (:foreground ,base01))))
              ;; ERC
+             (erc-action-face ((t (:inherit erc-default-face))))
+             (erc-bold-face ((t (,@fmt-bold))))
+             (erc-current-nick-face ((t (,@fg-blue ,@fmt-bold))))
+             (erc-dangerous-host-face ((t (:inherit font-lock-warning))))
+             (erc-default-face ((t (,@fg-base0 ,@bg-base03 ,@fmt-none))))
+             (erc-direct-msg-face ((t (:inherit erc-default))))
+             (erc-error-face ((t (:inherit font-lock-warning))))
+             (erc-fool-face ((t (:inherit erc-default))))
+             (erc-highlight-face ((t (:inherit hover-highlight))))
              (erc-input-face ((t (:foreground ,base01))))
              (erc-keyword-face ((t (,@fmt-bldi ,@fg-yellow))))
              (erc-my-nick-face ((t (:foreground ,blue))))
              (erc-nick-default-face ((t (,@fmt-none ,@fg-cyan))))
              (erc-notice-face ((t (,@fmt-none ,@fg-blue))))
+             (erc-pal-face ((t (,@fg-orange ,@fmt-bold))))
+             (erc-prompt-face ((t (,@fg-orange ,@bg-base03 ,@fmt-bold))))
              (erc-timestamp-face ((t (:foreground ,base01))))
+             (erc-underline-face ((t (,@fmt-undr))))             
              ;;font-latex
              (font-latex-warning-face ((t (,@fg-red))))
              (font-latex-sectioning-5-face ((t (,@fg-violet))))
+             ;; tuareg mode
+             (tuareg-font-lock-governing-face ((t (,@fg-green ,@fmt-bold))))
+             (tuareg-font-lock-multistage-face ((t (,@fg-blue ,@bg-base02 ,@fmt-bold))))
+             (tuareg-font-lock-operator-face ((t (,@fg-base1))))
+             (tuareg-font-lock-error-face ((t (,@fg-magenta ,@bg-base02 ,@fmt-bold))))
+             (tuareg-font-lock-interactive-output-face ((t (,@fg-violet))))
+             (tuareg-font-lock-interactive-error-face ((t (,@fg-red))))
+             (caml-types-def-dace ((t (,@bg-base02))))
+             (caml-types-expr-face ((t (,@bg-base02))))
+             (caml-types-occ-face ((t (,@bg-base02))))
+             (caml-types-scope-face ((t (,@bg-base02))))
+             (caml-types-typed-face ((t (,@bg-base02))))
+             ;; e2wm
+             (e2wm:face-history-list-normal ((t (,@fg-violet ))))
+             (e2wm:face-history-list-select1 ((t (,@fg-orange ,bg-base03))))
+             (e2wm:face-history-list-select2 ((t (,@fg-cyan ,bg-base03))))
              ;;flyspell
              (flyspell-incorrect ((t (,@fg-red))))
              (flyspell-duplicate ((t (,@fg-yellow)))))

             (font-lock-other-emphasized-face ((t (,@fmt-bldi ,@fg-violet))))
             (font-lock-regexp-grouping-backslash
              ((t (,@fmt-none ,@fg-yellow))))
             ;; info
             (info-xref ((t (,@fmt-undr ,@fg-blue))))
             (info-xref-visited ((t (,@fg-magenta :inherit info-xref))))

             (org-started-kwd-face ((t (,@fg-yellow ,@bg-base03))))
             (org-cancelled-kwd-face ((t (,@fg-green ,@bg-base03))))
             (org-delegated-kwd-face ((t (,@fg-cyan ,@bg-base03))))
             (org-level-1 ((t (,@fmt-none ,@fg-blue))))
             (org-level-2 ((t (,@fmt-none ,@fg-cyan))))
             (org-level-3 ((t (,@fmt-none ,@fg-yellow))))
             (org-level-4 ((t (,@fg-violet))))
             (org-level-5 ((t (,@fmt-none ,@fg-base1))))
             (org-level-6 ((t (,@fmt-none ,@fg-base01))))
             (org-level-7 ((t (,@fmt-none ,@fg-orange))))
             (org-level-8 ((t (,@fmt-none ,@fg-violet))))
             ;; table
             (table-cell ((t (,@fmt-none ,@fg-base0 ,@bg-back))))
             ;; outline - pandocBlockQuoteLeader*
