| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301%\210\310\314\315\316\306\301%\210\310\317\320\321\306\301%\210\310\322\323\324\306\301%\210\310\325\326\327\306\301%\210\310\330\331\332\306\301%\210\310\333\334\335\306\301%\210\310\336\337\340\306\301%\210\310\341\342\343\306\301%\210\310\344\345\346\306\301%\210\310\347\350\351\306\301%\210\310\352\353\354\306\301%\210\310\355\302\356\306\301%\210\310\357\360\361\306\301%\210\310\362\363\364\306\301%\210\310\365\366\367\306\301%\210\310\370\371\372\306\301%\210\310\373\374\375\306\301%\210\310\376\377\201@ \306\301%\210\310\201A \201B \201C \306\301%\210\310\201D \201E \201F \306\301%\210\310\201G \201H \201I \306\301%\210\310\201J \201K \201L \306\301%\210\310\201M \201N \201O \306\301%\210\310\201P \201Q \201R \306\301%\210\310\201S \201T \201U \306\301%\210\310\201V \201W \201X \306\301%\210\310\201Y \201Z \201[ \306\301%\210\310\201\\ \201] \201^ \306\301%\210\310\201_ \201` \201a \306\301%\210\310\201b \201c \201d \306\301%\210\201e \201f \201g \201h \201i DD\201j \306\301\306\201Y \201k \201l \201m \201n & \210\201e \201o \201g \201h \201p DD\201q \306\301\306\201Y \201m \201r & \210\310\201s \201t \201u \306\301%\210\201e \201v \201g \201h \201w DD\201x \306\301\306\201Y \201m \201y & \207" [custom-declare-group org-faces nil "Faces in Org mode." :tag "Org Faces" :group org-appearance custom-declare-face org-default ((t :inherit default)) "Face used for default text." org-hide ((((background light)) (:foreground "white")) (((background dark)) (:foreground "black"))) "Face used to hide leading stars in headlines.\nThe foreground color of this face should be equal to the background\ncolor of the frame." org-level-1 ((t :inherit outline-1)) "Face used for level 1 headlines." org-level-2 ((t :inherit outline-2)) "Face used for level 2 headlines." org-level-3 ((t :inherit outline-3)) "Face used for level 3 headlines." org-level-4 ((t :inherit outline-4)) "Face used for level 4 headlines." org-level-5 ((t :inherit outline-5)) "Face used for level 5 headlines." org-level-6 ((t :inherit outline-6)) "Face used for level 6 headlines." org-level-7 ((t :inherit outline-7)) "Face used for level 7 headlines." org-level-8 ((t :inherit outline-8)) "Face used for level 8 headlines." org-special-keyword ((t :inherit font-lock-keyword-face)) "Face used for special keywords." org-drawer ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:foreground "blue" :bold t)) (t (:bold t))) "Face used for drawers." org-property-value "Face used for the value of a property." org-column ((((class color) (min-colors 16) (background light)) (:background "grey90" :weight normal :slant normal :strike-through nil :underline nil)) (((class color) (min-colors 16) (background dark)) (:background "grey30" :weight normal :slant normal :strike-through nil :underline nil)) (((class color) (min-colors 8)) (:background "cyan" :foreground "black" :weight normal :slant normal :strike-through nil :underline nil)) (t (:inverse-video t))) "Face for column display of entry properties.\nThis is actually only part of the face definition for the text in column view.\nThe following faces apply, with this priority.\n\n1. The color of the reference face. This is normally the level fact that\n is used in the outline. In agenda-mode, it will be the face of the\n first character in the line. The color is explicitly retained to\n make sure that the column line still looks a bit like the structure\n line it is masking.\n\n2. The `org-column' face.\n\n3. The remaining properties of the reference face.\n\nSince column view works by putting overlays with a display property\nover individual characters in the buffer, the face of the underlining\ncharacter (this might for example be the a TODO keyword) might still\nshine through in some properties. So when your column view looks\nfunny, with \"random\" colors, weight, strike-through, try to explicitly\nset the properties in the `org-column' face. For example, set\n:underline to nil, or the :slant to `normal'." org-column-title ((((class color) (min-colors 16) (background light)) (:background "grey90" :underline t :weight bold)) (((class color) (min-colors 16) (background dark)) (:background "grey30" :underline t :weight bold)) (((class color) (min-colors 8)) (:background "cyan" :foreground "black" :underline t :weight bold)) (t (:inverse-video t))) "Face for column display of entry properties." org-agenda-column-dateline ((t :inherit org-column)) "Face used in agenda column view for datelines with summaries." org-warning ((t :inherit font-lock-warning-face)) "Face for deadlines and TODO keywords." org-archived ((t :inherit shadow)) "Face for headline with the ARCHIVE tag." org-link ((t :inherit link)) "Face for links." org-footnote ((((class color) (background light)) (:foreground "Purple" :underline t)) (((class color) (background dark)) (:foreground "Cyan" :underline t)) (t (:underline t))) "Face for footnotes." org-ellipsis ((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t)) (((class color) (background dark)) (:foreground "LightGoldenrod" :underline t)) (t (:strike-through t))) "Face for the ellipsis in folded text." org-target ((((class color) (background light)) (:underline t)) (((class color) (background dark)) (:underline t)) (t (:underline t))) "Face for link targets." org-date ((((class color) (background light)) (:foreground "Purple" :underline t)) (((class color) (background dark)) (:foreground "Cyan" :underline t)) (t (:underline t))) "Face for date/time stamps." org-date-selected ((((class color) (min-colors 16) (background light)) (:foreground "Red1" :inverse-video t)) (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :inverse-video t)) (((class color) (min-colors 8) (background light)) (:foreground "red" :inverse-video t)) (((class color) (min-colors 8) (background dark)) (:foreground "red" :inverse-video t)) (t (:inverse-video t))) "Face for highlighting the calendar day when using `org-read-date'.\nUsing a bold face here might cause discrepancies while displaying the\ncalendar." org-sexp-date ((((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:underline t))) "Face for diary-like sexp date specifications." org-tag ((t (:bold t))) "Default face for tags.\nNote that the variable `org-tag-faces' can be used to overrule this face for\nspecific tags." org-list-dt ((t (:bold t))) "Default face for definition terms in lists." org-todo ((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t)) (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold t)) (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t)) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:inverse-video t :bold t))) "Face for TODO keywords." org-done ((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen" :bold t)) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t))) "Face used for todo keywords that indicate DONE items." org-agenda-done ((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold nil))) "Face used in agenda, to indicate lines switched to DONE.\nThis face is used to de-emphasize items that where brightly colored in the\nagenda because they were things to do, or overdue. The DONE state itself\nis of course immediately visible, but for example a passed deadline is\n(by default) very bright read. This face could be simply the default face\nof the frame, for example." org-headline-done ((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) (((class color) (min-colors 8) (background light)) (:bold nil))) "Face used to indicate that a headline is DONE.\nThis face is only used if `org-fontify-done-headline' is set. If applies\nto the part of the headline after the DONE keyword." custom-declare-variable org-faces-easy-properties funcall function #[0 "\300\207" [((todo . :foreground) (tag . :foreground) (priority . :foreground))] 1] "The property changes by easy faces.\nThis is an alist, the keys show the area of application, the values\ncan be `:foreground' or `:background'. A color string for special\nkeywords will then be interpreted as either foreground or background\ncolor." :version "24.1" :type (repeat (cons (choice (const todo) (const tag) (const priority)) (choice (const :foreground) (const :background)))) org-todo-keyword-faces #[0 "\300\207" [nil] 1] "Faces for specific TODO keywords.\nThis is a list of cons cells, with TODO keywords in the car\nand faces in the cdr. The face can be a symbol, a color\nas a string (in which case the rest is inherited from the `org-todo' face),\nor a property list of attributes, like\n (:foreground \"blue\" :weight bold :underline t).\nIf it is a color string, the variable `org-faces-easy-properties'\ndetermines if it is a foreground or a background color." (repeat (cons (string :tag "Keyword") (choice :tag "Face " (string :tag "Color") (sexp :tag "Face")))) org-priority ((t :inherit font-lock-keyword-face)) "Face used for priority cookies." org-priority-faces #[0 "\300\207" [nil] 1] "Faces for specific Priorities.\nThis is a list of cons cells, with priority character in the car\nand faces in the cdr. The face can be a symbol, a color\nas a string, or a property list of attributes, like\n (:foreground \"blue\" :weight bold :underline t).\nIf it is a color string, the variable `org-faces-easy-properties'\ndetermines if it is a foreground or a background color." (repeat (cons (character :tag "Priority") (choice :tag "Face " (string :tag "Color") (sexp :tag "Face"))))] 12) | |
| 16 | (defvar org-tags-special-faces-re nil) | |
| 17 | #@18 | |
| 18 | ||
| 19 | (fn VAR VALUE) | |
| 20 | (defalias 'org-set-tag-faces #[514 "L\210\211\204\f \301\211\207\302\303\304\305#\306Q\211\207" [org-tags-special-faces-re nil ":\\(" mapconcat car "\\|" "\\):"] 7 (#$ . 10831)]) | |
| 21 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\314\315\316\317\320DD\321\304\305\304\322\323\324\325\326& \210\300\327\330\331\304\305%\210\300\332\333\334\304\305%\210\300\335\336\337\304\305\340\341&\210\300\342\343\344\304\305\340\341&\210\300\345\346\347\304\305%\210\300\350\351\352\304\305%\210\300\353\354\355\304\305%\210\300\356\357\360\304\305\340\361&\210\300\362\363\364\304\305%\210\300\365\366\367\304\305%\210\300\370\371\372\304\305\340\341&\210\300\373\374\375\304\305%\210\300\376\377\201@ \304\305%\210\314\201A \316\317\201B DD\201C \304\305\340\201D \325\201E & \210\300\201F \201G \201H \304\305%\210\300\201I \201J \201K \304\305%\210\300\201L \201M \201N \304\305%\210\300\201O \201P \201Q \304\305%\210\300\201R \201S \201T \304\305%\210\300\201U \201V \201W \304\305%\210\300\201X \201Y \201Z \304\305%\210\300\201[ \201\\ \201Z \304\305%\210\300\201] \201^ \201_ \304\305%\210\300\201` \201a \201b \304\305%\210\300\201c \201d \201b \304\305%\210\314\201e \316\317\201f DD\201g \304\305\304\201h \325\201i & \210\300\201j \201k \201l \304\305%\210\300\201m \201n \201o \304\305%\210\300\201p \201q \201r \304\305%\210\300\201s \201t \201u \304\305%\210\300\201v \201w \201x \304\305%\210\300\201y \201z \201{ \304\305%\210\300\201| \201} \201~ \304\305%\210\300\201 \201\200 \201\201 \304\305%\210\300\201\202 \201\203 \201\204 \304\305%\210\300\201\205 \201\206 \201\207 \304\305%\207" [custom-declare-face org-checkbox ((t :inherit bold)) "Face for checkboxes." :group org-faces org-checkbox-statistics-todo ((t (:inherit org-todo))) "Face used for unfinished checkbox statistics." org-checkbox-statistics-done ((t (:inherit org-done))) "Face used for finished checkbox statistics." custom-declare-variable org-tag-faces funcall function #[0 "\300\207" [nil] 1] "Faces for specific tags.\nThis is a list of cons cells, with tags in the car and faces in the cdr.\nThe face can be a symbol, a foreground color (in which case the rest is\ninherited from the `org-tag' face) or a property list of attributes,\nlike (:foreground \"blue\" :weight bold :underline t).\nIf you set this variable through customize, it will immediately be effective\nin new buffers and in modified lines.\nIf you set it with Lisp, a restart of Emacs is required to activate the\nchanges." org-tags :set org-set-tag-faces :type (repeat (cons (string :tag "Tag ") (choice :tag "Face" (string :tag "Foreground color") (sexp :tag "Face")))) org-table ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8) (background light)) (:foreground "blue")) (((class color) (min-colors 8) (background dark)))) "Face used for tables." org-formula ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red")) (t (:bold t :italic t))) "Face for formulas." org-code ((t :inherit shadow)) "Face for fixed-width text like code snippets." :version "22.1" org-meta-line ((t :inherit font-lock-comment-face)) "Face for meta lines starting with \"#+\"." org-document-title ((((class color) (background light)) (:foreground "midnight blue" :weight bold)) (((class color) (background dark)) (:foreground "pale turquoise" :weight bold)) (t (:weight bold))) "Face for document title, i.e. that which follows the #+TITLE: keyword." org-document-info ((((class color) (background light)) (:foreground "midnight blue")) (((class color) (background dark)) (:foreground "pale turquoise")) (t nil)) "Face for document date, author and email; i.e. that which\nfollows a #+DATE:, #+AUTHOR: or #+EMAIL: keyword." org-document-info-keyword ((t :inherit shadow)) "Face for #+TITLE:, #+AUTHOR:, #+EMAIL: and #+DATE: keywords." org-block ((t :inherit shadow)) "Face text in #+begin ... #+end blocks.\nFor source-blocks `org-src-block-faces' takes precedence.\nSee also `org-fontify-quote-and-verse-blocks'." "26.1" org-block-begin-line ((t (:inherit org-meta-line))) "Face used for the line delimiting the begin of source blocks." org-block-end-line ((t (:inherit org-block-begin-line))) "Face used for the line delimiting the end of source blocks." org-verbatim ((t (:inherit shadow))) "Face for fixed-with text like code snippets" org-quote ((t (:inherit org-block))) "Face for #+BEGIN_QUOTE ... #+END_QUOTE blocks." org-verse ((t (:inherit org-block))) "Face for #+BEGIN_VERSE ... #+END_VERSE blocks." org-fontify-quote-and-verse-blocks #[0 "\300\207" [nil] 1] "Non-nil means, add a special face to #+begin_quote and #+begin_verse block.\nWhen nil, format these as normal Org. This is the default, because the\ncontent of these blocks will still be treated as Org syntax." "24.1" boolean org-clock-overlay ((((class color) (min-colors 88) (background light)) (:background "LightGray" :foreground "black")) (((class color) (min-colors 88) (background dark)) (:background "SkyBlue4" :foreground "white")) (((class color) (min-colors 16) (background light)) (:background "gray" :foreground "black")) (((class color) (min-colors 16) (background dark)) (:background "SkyBlue4" :foreground "white")) (((class color) (min-colors 8)) (:background "cyan" :foreground "black")) (t (:inverse-video t))) "Basic face for displaying the secondary selection." org-agenda-structure ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:foreground "blue" :bold t)) (t (:bold t))) "Face used in agenda for captions and dates." org-agenda-date ((t (:inherit org-agenda-structure))) "Face used in agenda for normal days." org-agenda-date-today ((t (:inherit org-agenda-date :weight bold :italic t))) "Face used in agenda for today." org-agenda-clocking ((t (:inherit secondary-selection))) "Face marking the current clock item in the agenda." org-agenda-date-weekend ((t (:inherit org-agenda-date :weight bold))) "Face used in agenda for weekend days.\n\nSee the variable `org-agenda-weekend-days' for a definition of\nwhich days belong to the weekend." org-scheduled ((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t :italic t))) "Face for items scheduled for a certain day." org-scheduled-today ((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t :italic t))) org-agenda-dimmed-todo-face ((((background light)) (:foreground "grey50")) (((background dark)) (:foreground "grey50"))) "Face used to dim blocked tasks in the agenda." org-scheduled-previously ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) "Face for items scheduled previously, and not yet done." org-upcoming-deadline ((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) org-agenda-deadline-faces #[0 "\300\207" [((1.0 . org-warning) (0.5 . org-upcoming-deadline) (0.0 . default))] 1] "Faces for showing deadlines in the agenda.\nThis is a list of cons cells. The cdr of each cell is a face to be used,\nand it can also just be like \\='(:foreground \"yellow\").\nEach car is a fraction of the head-warning time that must have passed for\nthis the face in the cdr to be used for display. The numbers must be\ngiven in descending order. The head-warning time is normally taken\nfrom `org-deadline-warning-days', but can also be specified in the deadline\ntimestamp itself, like this:\n\n DEADLINE: <2007-08-13 Mon -8d>\n\nYou may use d for days, w for weeks, m for months and y for years. Months\nand years will only be treated in an approximate fashion (30.4 days for a\nmonth and 365.24 days for a year)." org-agenda-daily/weekly (repeat (cons (number :tag "Fraction of head-warning time passed") (sexp :tag "Face"))) org-agenda-restriction-lock ((((class color) (min-colors 88) (background light)) (:background "#eeeeee")) (((class color) (min-colors 88) (background dark)) (:background "#1C1C1C")) (((class color) (min-colors 16) (background light)) (:background "#eeeeee")) (((class color) (min-colors 16) (background dark)) (:background "#1C1C1C")) (((class color) (min-colors 8)) (:background "cyan" :foreground "black")) (t (:inverse-video t))) "Face for showing the agenda restriction lock." org-agenda-filter-tags ((t :inherit mode-line)) "Face for tag(s) in the mode-line when filtering the agenda." org-agenda-filter-regexp ((t :inherit mode-line)) "Face for regexp(s) in the mode-line when filtering the agenda." org-agenda-filter-category ((t :inherit mode-line)) "Face for categories in the mode-line when filtering the agenda." org-agenda-filter-effort ((t :inherit mode-line)) "Face for effort in the mode-line when filtering the agenda." org-time-grid ((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8)) (:foreground "yellow" :weight light))) "Face used for time grids." org-agenda-current-time ((t (:inherit org-time-grid))) "Face used to show the current time in the time grid." org-agenda-diary ((t :inherit default)) "Face used for agenda entries that come from the Emacs diary." org-agenda-calendar-event ((t :inherit default)) "Face used to show events and appointments in the agenda." org-agenda-calendar-sexp ((t :inherit default)) "Face used to show events computed from a S-expression."] 12) | |
| 22 | (defconst org-level-faces '(org-level-1 org-level-2 org-level-3 org-level-4 org-level-5 org-level-6 org-level-7 org-level-8)) | |
| 23 | (byte-code "\301\302\303\304\305DD\306\307\310\311\312&\210\301\313\303\304\314DD\315\311\316\311\312\317\320\307\321& \210\322\323\324\236\203. \325\202/ \326\327\330\331BBD\332\330\333BBD\334\335\336D\257\262\337\311\312\317\340\341\342& \210\322\343\344\345\311\312\317\340\341\346& \210\322\347\350\351\311\312\317\340\341\352& \210\322\353\354\355\311\312%\210\322\356\357\360\311\312%\210\361\312!\207" [custom-face-attributes custom-declare-variable org-n-level-faces funcall function #[0 "G\207" [org-level-faces] 1] "The number of different faces to be used for headlines.\nOrg mode defines 8 different headline faces, so this can be at most 8.\nIf it is less than 8, the level-1 face gets re-used for level N+1 etc." :type integer :group org-faces org-cycle-level-faces #[0 "\300\207" [t] 1] "Non-nil means level styles cycle after level `org-n-level-faces'.\nThen so level org-n-level-faces+1 is styled like level 1.\nIf nil, then all levels >=org-n-level-faces are styled like\nlevel org-n-level-faces" org-appearance :version "24.1" boolean custom-declare-face org-latex-and-related :inherit (:inherit underline) (:underline t) ((class grayscale) (background light)) :foreground "DimGray" ((class grayscale) (background dark)) "LightGray" (((class color) (background light)) (:foreground "SaddleBrown")) (((class color) (background dark)) (:foreground "burlywood")) t "Face used to highlight LaTeX data, entities and sub/superscript." "24.4" :package-version (Org . "8.0") org-macro ((t :inherit org-latex-and-related)) "Face for macros." (Org . "8.0") org-tag-group ((t :inherit org-tag)) "Face for group tags." (Org . "8.0") org-mode-line-clock ((t (:inherit mode-line))) "Face used for clock display in mode line." org-mode-line-clock-overrun ((t (:inherit mode-line :background "red"))) "Face used for clock display for overrun tasks in mode line." provide] 12) | |
