Lines Matching +defs:gnus +defs:article +defs:display +defs:face
71 (require 'gnus-sum)
198 and just in Org-mode (which will then use its own display table).
205 (defvar org-display-table nil
206 "The display table for org-mode, in case `org-ellipsis' is non-nil.")
477 Such highlights are created by `org-occur' and `org-clock-display'.
798 calc-display-working-message t
1022 (gnus . gnus-other-frame)
1025 When following a link with Emacs, it may often be useful to display
1032 `gnus'
1033 `gnus-other-frame'
1039 For BBDB, it is currently only possible to display the matches in
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1058 (defcustom org-display-internal-link-with-indirect-buffer nil
1059 "Non-nil means, use indirect buffer to display infile links.
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1468 (defcustom org-display-custom-times nil
1476 (make-variable-buffer-local 'org-display-custom-times)
1482 `org-display-custom-times' is set."
1496 This variable governs the display in sparse trees and in the agenda."
1612 "Variable used by org files to set a category for agenda display.
1626 "The files to be used for agenda display.
1863 other-frame Use `switch-to-buffer-other-frame' to display agenda.
1864 other-window Use `switch-to-buffer-other-window' to display agenda.
1885 (defcustom org-indirect-buffer-display 'other-window
1891 other-window Just display in another window.
1908 "Number of days to include in overview display.
1967 "The settings for time grid for agenda display.
1973 today show grid on current date, independent of daily/weekly display
1984 (const :tag "Show grid in single day agenda display" daily)
1985 (const :tag "Show grid in weekly agenda display" weekly)
2060 "Options concerning the entry prefix in the Org-mode agenda display."
2136 11:30-4pm) will be removed for agenda display. This makes the agenda less
2382 display math.
2641 This works by using the face `org-hide' for these stars. This
2642 face is white for a light background, and black for a dark
2643 background. You may have to customize the face `org-hide' to
2656 "Non-nil means, change the face of a headline if it is marked DONE.
2752 characters, the face to bbe used by font-lock for highlighting in Org-mode
2761 (face :tag "Font-lock-face")
2773 (defun org-compatible-face (specs)
2774 "Make a compatible face specification.
2798 The forground color of this face should be equal to the background
2802 (defface org-level-1 ;; font-lock-function-name-face
2803 (org-compatible-face
2813 (defface org-level-2 ;; font-lock-variable-name-face
2814 (org-compatible-face
2823 (defface org-level-3 ;; font-lock-keyword-face
2824 (org-compatible-face
2835 (defface org-level-4 ;; font-lock-comment-face
2836 (org-compatible-face
2847 (defface org-level-5 ;; font-lock-type-face
2848 (org-compatible-face
2855 (defface org-level-6 ;; font-lock-constant-face
2856 (org-compatible-face
2863 (defface org-level-7 ;; font-lock-builtin-face
2864 (org-compatible-face
2871 (defface org-level-8 ;; font-lock-string-face
2872 (org-compatible-face
2879 (defface org-special-keyword ;; font-lock-string-face
2880 (org-compatible-face
2887 (defface org-warning ;; font-lock-warning-face
2888 (org-compatible-face
2897 (defface org-headline-done ;; font-lock-string-face
2898 (org-compatible-face
2903 This face is only used if `org-fontify-done-headline' is set."
2907 (org-compatible-face
2938 (defface org-todo ;; font-lock-warning-face
2939 (org-compatible-face
2948 (defface org-done ;; font-lock-type-face
2949 (org-compatible-face
2957 (defface org-table ;; font-lock-function-name-face
2958 (org-compatible-face
2969 (org-compatible-face
2979 (org-compatible-face
2988 (org-compatible-face
2998 (org-compatible-face
3007 (defface org-time-grid ;; font-lock-variable-name-face
3008 (org-compatible-face
3084 (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t
3136 ("customtime" org-display-custom-times t)
3199 '(face t fontified t) arch)))
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3372 (defun org-overlay-display (ovl text &optional face evap)
3373 "Make overlay OVL display TEXT with face FACE."
3376 (and face (set-glyph-face gl face))
3379 (overlay-put ovl 'display text)
3380 (if face (overlay-put ovl 'face face))
3382 (defun org-overlay-before-string (ovl text &optional face evap)
3383 "Make overlay OVL display TEXT with face FACE."
3386 (and face (set-glyph-face gl face))
3388 (if face (org-add-props text nil 'face face))
3527 (fboundp 'set-display-table-slot) (boundp 'buffer-display-table))
3528 (unless org-display-table
3529 (setq org-display-table (make-display-table)))
3530 (set-display-table-slot org-display-table
3532 (setq buffer-display-table org-display-table))
3618 (define-key org-mouse-map [follow-link] 'mouse-face))
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3711 (defvar org-emph-face nil)
3718 'face
3731 (list 'mouse-face 'highlight
3742 (list 'mouse-face 'highlight
3770 'keymap org-mouse-map 'mouse-face 'highlight
3773 'keymap org-mouse-map 'mouse-face 'highlight
3794 (list 'mouse-face 'highlight
3797 (when org-display-custom-times
3799 (org-display-custom-time (match-beginning 3) (match-end 3)))
3800 (org-display-custom-time (match-beginning 1) (match-end 1)))
3817 (list 'mouse-face 'highlight
3879 (list 'mouse-face 'highlight
3904 '("^\\(\\**\\)\\(\\*\\)\\(.*\\)" (1 (org-get-level-face 1))
3905 (2 (org-get-level-face 2)) (3 (org-get-level-face 3)))
3937 (0 (org-get-checkbox-statistics-face) t)))
3942 '("^#.*" (0 'font-lock-comment-face t))
3967 (defun org-get-level-face (n)
3968 "Get the right face for match N in font-lock matching of healdines."
3986 '(mouse-face t keymap t org-linked-text t
4372 ;;; Indirect buffer display of subtrees
4375 "This is the frame being used for indirect tree display.")
4385 If `org-indirect-buffer-display' is `dedicated-frame', the C-u prefix also
4409 ((or (eq org-indirect-buffer-display 'new-frame)
4410 (and arg (eq org-indirect-buffer-display 'dedicated-frame)))
4415 ((eq org-indirect-buffer-display 'dedicated-frame)
4424 ((eq org-indirect-buffer-display 'current-window)
4426 ((eq org-indirect-buffer-display 'other-window)
5170 (defun org-get-checkbox-statistics-face ()
5171 "Select the face for checkbox statistics.
5172 The face will be `org-done' when all relevant boxes are checked. Otherwise
5926 "Used as display property in narrowed table columns.")
5953 (remove-text-properties beg end '(org-cwidth t org-dwidth t display t))
5958 (setq dates (and org-display-custom-times
6023 (list 'display org-narrow-column-arrow)
6952 display t intangible t))
6966 '(invisible t org-cwidth t display t
7967 (put-text-property 0 (length s) 'face 'font-lock-comment-face s)
7972 (remove-text-properties 0 (length s) '(face nil) s)
8242 (defun org-table-add-rectangle-overlay (beg end &optional face)
8245 (org-overlay-put ov 'face (or face 'secondary-selection))
8248 (defun org-table-highlight-rectangle (&optional beg end face)
8271 (org-table-add-rectangle-overlay beg end face))
8310 (org-overlay-display ov str 'org-formula 'evaporate)))
8314 "Toggle the display of Row/Column numbers in tables."
8317 (message "Row/Column number display turned %s"
8431 'display org-narrow-column-arrow))
8432 (remove-text-properties s (1+ s) '(display t)))
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9168 (setq link (org-make-link "gnus:" group
9169 "#" (number-to-string article))))))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
9757 'face 'org-warning))))
9769 'face 'org-warning))))
9865 '(face nil mouse-face nil keymap nil fontified nil) s)
9925 ((not org-display-internal-link-with-indirect-buffer)
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10067 (cond ((and group article)
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10136 (or article "")))
10212 (mh-display-msg num folder)
10214 (mh-header-display)
10215 (mh-show-header-display))
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
10885 (display-completion-list list pattern)
10886 (error (display-completion-list list)))))
11328 (org-overlay-put ov 'face 'secondary-selection)
11426 (props (list 'face nil
11427 'done-face 'org-done
11428 'undone-face nil
11429 'mouse-face 'highlight
11690 (defun org-fast-tag-insert (kwd tags face &optional end)
11691 "Insert KDW, and the TAGS, the latter with face FACE. Also inser END."
11693 (org-add-props (mapconcat 'identity tags " ") nil 'face face)
11704 (insert (org-add-props " Next change exits" nil 'face 'org-warning)))))
11709 (org-overlay-display org-tags-overlay (concat prefix s)
11711 (put-text-property 0 (length s) 'face '(secondary-selection org-tag) s)
11712 (org-overlay-display org-tags-overlay (concat prefix s)))))
11730 (i-face 'org-done)
11731 (c-face 'org-tag)
11759 (org-fast-tag-insert "Inherited" inherited i-face "\n")
11760 (org-fast-tag-insert "Current" current c-face "\n\n")
11789 (setq tg (org-add-props tg nil 'face
11791 ((member tg current) c-face)
11792 ((member tg inherited) i-face)
11871 (org-fast-tag-insert "Current" current c-face)
11876 (list 'face
11878 ((member tg current) c-face)
11879 ((member tg inherited) i-face)
11957 (org-overlay-put org-date-ovl 'face 'org-warning)
12158 (setq org-display-custom-times (not org-display-custom-times))
12159 (unless org-display-custom-times
12161 (while (setq p (next-single-property-change p 'display))
12162 (if (and (get-text-property p 'display)
12163 (eq (get-text-property p 'face) 'org-date))
12165 p (setq p (next-single-property-change p 'display))
12166 '(display t))))
12172 (if org-display-custom-times
12176 (defun org-display-custom-time (beg end)
12187 nil 'mouse-face 'highlight))
12196 (put-text-property beg end 'display str))))
12200 But do this only if the variable `org-display-custom-times' is set."
12201 (when org-display-custom-times
12443 org-display-custom-times
12444 (get-text-property (point) 'display)
12445 (not (get-text-property (1- (point)) 'display)))
12640 (defun org-clock-display (&optional total-only)
12684 '(face secondary-selection))
12687 (org-overlay-put ov 'display tx)
13066 (define-key org-agenda-keymap [follow-link] 'mouse-face))
13226 a Call `org-agenda-list' to display the agenda for current day or week.
13227 t Call `org-todo-list' to display the global todo list.
13228 T Call `org-todo-list' to display the global todo list, select only
13230 m Call `org-tags-view' to display headlines with tags matching
13273 '(face bold) header))
13279 '(face bold))
13291 (org-add-props match nil 'face 'org-warning)
13295 (org-add-props "1 Restrict call to current buffer 0 Restrict call to region or subtree" nil 'face 'org-table)))
13620 '(face org-link))))
13804 (put-text-property s (1- (point)) 'face 'org-level-3))
13827 (put-text-property s (1- (point)) 'face 'org-level-3)
13956 (list 'face 'org-level-3))
13960 (add-text-properties s (1- (point)) (list 'face 'org-level-3))
13997 (put-text-property s (1- (point)) 'face 'org-level-3)
14066 nil 'face 'org-level-3) "\n")
14069 (list 'face 'org-level-3))
14072 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14082 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14138 nil 'face 'org-level-3) "\n")
14141 (list 'face 'org-level-3))
14144 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14148 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14218 (diary-display-hook '(fancy-diary-display))
14254 "Remove unwanted stuff in buffer created by `fancy-diary-display'.
14290 'mouse-face 'highlight
14299 Needed to avoid empty dates which mess up holiday display."
14446 "Return the TODO information for agenda display."
14447 (let* ((props (list 'face nil
14448 'done-face 'org-done
14450 'mouse-face 'highlight
14504 "Return the date stamp information for agenda display."
14505 (let* ((props (list 'face nil
14507 'mouse-face 'highlight
14560 'face (if donep 'org-done 'org-warning)
14561 'undone-face 'org-warning 'done-face 'org-done
14565 'face 'org-scheduled-today
14566 'undone-face 'org-scheduled-today 'done-face 'org-done
14574 "Return the logged TODO entries for agenda display."
14575 (let* ((props (list 'mouse-face 'highlight
14618 'org-marker marker 'org-hd-marker hdmarker 'face 'org-done
14620 'undone-face 'org-warning 'done-face 'org-done)
14626 "Return the deadline information for agenda display."
14628 (props (list 'mouse-face 'highlight
14638 ee txt head face)
14668 (setq face (cond ((<= diff 0) 'org-warning)
14676 'face face 'undone-face face 'done-face 'org-done)
14681 "Return the scheduled information for agenda display."
14682 (let* ((props (list 'face 'org-scheduled-previously
14684 'undone-face 'org-scheduled-previously
14685 'done-face 'org-done
14686 'mouse-face 'highlight
14733 "Return the date-range information for agenda display."
14734 (let* ((props (list 'face nil
14736 'mouse-face 'highlight
14925 1 (length (car new)) 'face 'org-time-grid (car new))))
15019 '(face org-todo))))
15024 '(face org-todo) x))
15235 (org-overlay-put org-hl 'face 'highlight)
15543 If FIXFACE is non-nil, the face of each item is modified acording to
15546 props m pl undone-face done-face finish new dotime cat tags)
15560 undone-face (get-text-property (point) 'undone-face)
15561 done-face (get-text-property (point) 'done-face))
15574 (list 'face
15576 undone-face done-face))))
15749 (set-glyph-face gl 'secondary-selection)
15755 (list 'display (org-add-props stamp nil
15756 'face 'secondary-selection))))
16129 it over the source code. If there is no fragment at point, display
16131 prefix SUBTREE, display all fragments in the current subtree. With a
16133 display all fragments in the buffer.
16224 ov 'display
16248 (insert "\\documentclass{article}
16299 (:customtime . org-display-custom-times)
16966 (custom-times org-display-custom-times)
17101 ;; remove display and invisible chars
17104 (while (setq beg (next-single-property-change (point) 'display))
17105 (setq end (next-single-property-change beg 'display))
17380 When HIDDEN is non-nil, don't display the HTML buffer.
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
18684 (define-key org-mode-map "\C-c\C-x\C-d" 'org-clock-display)
19234 :style radio :selected org-display-custom-times]
19242 ["Display times" org-clock-display t]
19392 (let* ((f (get-text-property (point) 'face))
19422 (previous-single-property-change p 'face)
19423 (next-single-property-change p 'face)) clist)))
19434 (previous-single-property-change p 'face)
19435 (next-single-property-change p 'face)) clist))
19438 (previous-single-property-change p 'face)
19439 (next-single-property-change p 'face)) clist))