            '(woman-bold ((t (:inherit bold :foreground "blue"))))
            '(woman-italic
              ((t (:inherit italic :foreground "Purple4" :underline t))))
+
+           ;; Programming Mode
+           '(develock-long-line-1 ((t (:foreground "DeepPink"))))
+           '(develock-long-line-2 ((t
+                                    (:inherit develock-long-line-1
+                                              :background "#ffff7f"
+                                              :foreground "DeepPink3")
+                                    )))
+           '(develock-whitespace-1 ((t (:background "#ffdfdf"))))
+           '(develock-whitespace-2
+             ((t
+               (:background "#ffdfbf"
+                            :box (:line-width 1 :color "#ffcf9f")))))
+           '(develock-whitespace-3
+             ((t (:background "#ffffbf"
+                              :box (:line-width 1 :color "yellow3")))))
+
+           '(diff-added ((t (:inherit diff-changed
+                                      :foreground "SpringGreen2"
+                                      :weight bold))))
+           '(diff-changed ((nil (:foreground "#8000FF" :weight bold))))
+           '(diff-removed ((t (:inherit diff-changed
+                                        :foreground "VioletRed4"))))
+
+           '(ess-function-call-face
+             ((default (:inherit font-lock-function-name-face))
+              (nil (:foreground "#1f3fff"))))
+
+           '(font-wikipedia-bold-face ((((class color)
+                                         (background light))
+                                        (:inherit bold))))
+           '(font-wikipedia-italic-face ((((class color)
+                                           (background light))
+                                          (:inherit italic))))
+           '(font-wikipedia-math-face
+             ((((class color) (background light))
+               (:inherit font-lock-function-name-face))))
+           '(font-wikipedia-sedate-face
+             ((((class color) (background light))
+               (:inherit variable-pitch
+                         :foreground "SlateGray" :height 1.25))))
+           '(font-wikipedia-string-face
+             ((((class color) (background light))
+               (:inherit font-lock-string-face))))
+           '(font-wikipedia-verbatim-face
+             ((((class color) (background light))
+               (:inherit font-lock-constant-face))))
+
+           '(html-helper-bold-face
+             ((t (:foreground nil :weight normal :inherit (bold)))))
+           '(html-helper-builtin-face
+             ((t (:foreground nil :weight normal
+                              :inherit (font-lock-builtin-face)))))
+           '(html-helper-italic-face
+             ((t (:foreground nil :weight normal :inherit (italic)))))
+           '(html-helper-underline-face
+             ((t (:foreground nil :weight normal :inherit (underline)))))
+           '(html-tag-face
+             ((t (:foreground nil :weight normal
+                              :inherit (font-lock-function-name-face)))))
+
+           '(org-agenda-done
+             ((((class color) (min-colors 16) (background light))
+               (:inherit org-done :weight normal))))
+           '(org-block ((t (:inherit font-lock-comment-face))))
+           '(org-code ((t (:inherit font-lock-constant-face))))
+           '(org-document-info
+             ((((class color) (background light))
+               (:inherit font-lock-doc-face))))
+           '(org-document-info-keyword
+             ((t (:inherit font-lock-builtin-face))))
+           '(org-done ((t (:background "#e0ffe0"
+                                       :foreground "midnight blue"
+                                       :weight bold))))
+           '(org-formula
+             ((((class color) (min-colors 88) (background light))
+               (:inherit font-lock-type-face))))
+           '(org-level-1
+             ((t (:inherit outline-1 :overline t :underline t))))
+           '(org-level-2
+             ((t (:inherit outline-2 :overline t :underline t))))
+           '(org-level-3
+             ((t (:inherit outline-3 :overline t :underline t))))
+           '(org-level-4
+             ((t (:inherit outline-4 :overline t :underline t))))
+           '(org-level-5
+             ((t (:inherit outline-5 :overline t :underline t))))
+           '(org-level-6
+             ((t (:inherit outline-6 :overline t :underline t))))
+           '(org-level-7
+             ((t (:inherit outline-7 :overline t :underline t))))
+           '(org-level-8
+             ((t (:inherit outline-8 :overline t :underline t))))
+           '(org-scheduled
+             ((((class color) (min-colors 88) (background light))
+               (:foreground "SeaGreen2"))))
+           '(org-scheduled-today
+             ((t (:inherit org-scheduled :weight bold))))
+           '(org-special-keyword
+             ((((class color) (min-colors 16) (background light))
+               (:inherit font-lock-keyword-face))))
+           '(org-todo ((t (:background "LemonChiffon"
+                                       :foreground "DeepPink2"
+                                       :weight bold))))
+           '(org-verbatim ((t (:inherit font-lock-constant-face))))
+
+           '(sh-heredoc ((t (:inherit (font-lock-doc-face)))))
            )
 
           (if (or is-version-twentytwo is-version-twentythree)
               (progn
                 (jpw-custom-set-faces-nonsaved
-                 '(develock-long-line-1 ((t (:foreground "DeepPink"))))
-                 '(develock-long-line-2 ((t
-                                          (:inherit develock-long-line-1
-                                                    :background "#ffff7f"
-                                                    :foreground "DeepPink3")
-                                          )))
-                 '(develock-whitespace-1 ((t (:background "#ffdfdf"))))
-                 '(develock-whitespace-2
-                   ((t
-                     (:background "#ffdfbf"
-                                  :box (:line-width 1 :color "#ffcf9f")))))
-                 '(develock-whitespace-3
-                   ((t (:background "#ffffbf"
-                                    :box (:line-width 1 :color "yellow3")))))
-                 '(diff-added ((t (:inherit diff-changed
-                                            :foreground "SpringGreen2"
-                                            :weight bold))))
-                 '(diff-changed ((nil (:foreground "#8000FF" :weight bold))))
-                 '(diff-removed ((t (:inherit diff-changed
-                                              :foreground "VioletRed4"))))
                  '(escape-glyph ((((class color) (background light))
                                   (:foreground "chartreuse"))))
-                 '(font-wikipedia-bold-face ((((class color)
-                                               (background light))
-                                              (:inherit bold))))
-                 '(font-wikipedia-italic-face ((((class color)
-                                                 (background light))
-                                                (:inherit italic))))
-                 '(font-wikipedia-math-face
-                   ((((class color) (background light))
-                     (:inherit font-lock-function-name-face))))
-                 '(font-wikipedia-sedate-face
-                   ((((class color) (background light))
-                     (:inherit variable-pitch
-                               :foreground "SlateGray" :height 1.25))))
-                 '(font-wikipedia-string-face
-                   ((((class color) (background light))
-                     (:inherit font-lock-string-face))))
-                 '(font-wikipedia-verbatim-face
-                   ((((class color) (background light))
-                     (:inherit font-lock-constant-face))))
+
                  '(minibuffer-prompt ((((class color) (background light))
                                        (:foreground "blue"))))
+
                  '(mode-line
                    ((t (:background "plum3" :foreground "black"
                                     :box (:line-width -1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun jpw-custom-set-variables-nonsaved  (&rest args)
  "Initializes the default value of a customization variable.

Calls `custom-set-variables' on the list of arguments, then converts the
\"saved value\" to the \"default value\".  This prevents localized
customizations from being written to your \".emacs\" file.

`args' is a list of lists of the form:


(jpw-custom-set-variables-nonsaved
 '(case-fold-search t)
 '(confirm-kill-emacs (quote y-or-n-p))
 ;; obsolete since 23.2
 '(default-major-mode (quote text-mode))
 ;; replacement for `default-major-mode'
 '(major-mode 'text-mode)
 '(history-delete-duplicates t)
 '(revert-without-query (quote (".*")))
 '(enable-local-eval t)
