823 |
|
|
824 |
(defcustom woman-bold-headings t |
(defcustom woman-bold-headings t |
825 |
"*If non-nil then embolden section and subsection headings. Default is t. |
"*If non-nil then embolden section and subsection headings. Default is t. |
826 |
Heading emboldening is NOT standard `man' behaviour." |
Heading emboldening is NOT standard `man' behavior." |
827 |
:type 'boolean |
:type 'boolean |
828 |
:group 'woman-formatting) |
:group 'woman-formatting) |
829 |
|
|
830 |
(defcustom woman-ignore t |
(defcustom woman-ignore t |
831 |
"*If non-nil then unrecognised requests etc. are ignored. Default is t. |
"*If non-nil then unrecognised requests etc. are ignored. Default is t. |
832 |
This gives the standard ?roff behaviour. If nil then they are left in |
This gives the standard ?roff behavior. If nil then they are left in |
833 |
the buffer, which may aid debugging." |
the buffer, which may aid debugging." |
834 |
:type 'boolean |
:type 'boolean |
835 |
:group 'woman-formatting) |
:group 'woman-formatting) |
876 |
;; You should probably select either italic or underline as you prefer, but |
;; You should probably select either italic or underline as you prefer, but |
877 |
;; not both, although italic and underline work together perfectly well! |
;; not both, although italic and underline work together perfectly well! |
878 |
(defface woman-italic |
(defface woman-italic |
879 |
`((((min-colors 88) (background light)) |
`((((min-colors 88) (background light)) |
880 |
(:slant italic :underline t :foreground "red1")) |
(:slant italic :underline t :foreground "red1")) |
881 |
(((background light)) (:slant italic :underline t :foreground "red")) |
(((background light)) (:slant italic :underline t :foreground "red")) |
882 |
(((background dark)) (:slant italic :underline t))) |
(((background dark)) (:slant italic :underline t))) |
914 |
(put 'woman-addition-face 'face-alias 'woman-addition) |
(put 'woman-addition-face 'face-alias 'woman-addition) |
915 |
|
|
916 |
(defun woman-default-faces () |
(defun woman-default-faces () |
917 |
"Set foreground colours of italic and bold faces to their default values." |
"Set foreground colors of italic and bold faces to their default values." |
918 |
(interactive) |
(interactive) |
919 |
(face-spec-set 'woman-italic (face-user-default-spec 'woman-italic)) |
(face-spec-set 'woman-italic (face-user-default-spec 'woman-italic)) |
920 |
(face-spec-set 'woman-bold (face-user-default-spec 'woman-bold))) |
(face-spec-set 'woman-bold (face-user-default-spec 'woman-bold))) |
921 |
|
|
922 |
(defun woman-monochrome-faces () |
(defun woman-monochrome-faces () |
923 |
"Set foreground colours of italic and bold faces to that of the default face. |
"Set foreground colors of italic and bold faces to that of the default face. |
924 |
This is usually either black or white." |
This is usually either black or white." |
925 |
(interactive) |
(interactive) |
926 |
(set-face-foreground 'woman-italic 'unspecified) |
(set-face-foreground 'woman-italic 'unspecified) |