• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10/emacs-93/emacs/lisp/textmodes/

Lines Matching +defs:diary +defs:display +defs:hook

40 ;; utilizes and smoothly integrates much of the Emacs calendar and diary.
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.")
376 this way, `org-cycle-hook' is disables temporarily, to make sure the
398 (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
401 The function(s) in this hook must accept a single argument which indicates
407 :type 'hook)
450 (defcustom org-insert-heading-hook nil
477 Such highlights are created by `org-occur' and `org-clock-display'.
486 (defcustom org-occur-hook '(org-first-headline-recenter)
491 :type 'hook)
798 calc-display-working-message t
1025 When following a link with Emacs, it may often be useful to display
1039 For BBDB, it is currently only possible to display the matches in
1058 (defcustom org-display-internal-link-with-indirect-buffer nil
1059 "Non-nil means, use indirect buffer to display infile links.
1350 (defcustom org-after-todo-state-change-hook nil
1355 :type 'hook)
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.
1836 (defcustom org-finalize-agenda-hook nil
1839 :type 'hook)
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.
1935 (defcustom org-agenda-include-diary nil
1936 "If non-nil, include in the agenda entries from the Emacs Calendar's diary."
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."
2075 %c the category of the item, \"Diary\" for entries from the diary, or
2133 time-of-day specification in a headline or diary entry is extracted and
2136 11:30-4pm) will be removed for agenda display. This makes the agenda less
2140 the headline/diary entry."
2382 display math.
3136 ("customtime" org-display-custom-times t)
3372 (defun org-overlay-display (ovl text &optional face evap)
3373 "Make overlay OVL display TEXT with face FACE."
3379 (overlay-put ovl 'display text)
3383 "Make overlay OVL display TEXT with face FACE."
3417 (defun org-add-hook (hook function &optional append local)
3418 "Add-hook, compatible with both Emacsen."
3420 (add-local-hook hook function append)
3421 (add-hook hook function append local)))
3477 (defvar org-mode-hook nil)
3491 time stamps, which magically appear in the diary listing of the Emacs
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))
3542 (org-add-hook 'before-change-functions 'org-before-change-function nil
3545 (org-add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
3557 ;; Emacs 21 and XEmacs make use of the hook
3558 (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
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)))
4034 (org-cycle-hook
4037 (copy-sequence org-cycle-hook))
4038 org-cycle-hook))
4066 (run-hook-with-args 'org-cycle-hook 'contents))
4074 (run-hook-with-args 'org-cycle-hook 'all))
4081 (run-hook-with-args 'org-cycle-hook 'overview))))
4120 (run-hook-with-args 'org-cycle-hook 'children))
4127 (run-hook-with-args 'org-cycle-hook 'subtree))
4133 (run-hook-with-args 'org-cycle-hook 'folded)))))
4210 This function is the default value of the hook `org-cycle-hook'."
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)
4487 (run-hooks 'org-insert-heading-hook)))))
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
7962 (org-add-hook 'post-command-hook 'org-table-edit-formulas-post-command t t)
8089 (org-add-hook 'before-change-functions
8274 (add-hook 'before-change-functions 'org-table-remove-rectangle-highlight))
8279 (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
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"
8389 ;; Exit without error, in case some hook functions calls this
8402 (org-add-hook 'before-change-functions 'org-before-change-function
8416 (run-hooks 'orgtbl-mode-hook))
8420 (remove-hook 'before-change-functions 'org-before-change-function t)
8431 'display org-narrow-column-arrow))
8432 (remove-text-properties s (1+ s) '(display t)))
9181 ((setq search (run-hook-with-args-until-success
9785 A function in the hook should first test if it would like to
9794 added to the companion hook `org-execute-file-search-functions',
9797 A function in this hook may also use `setq' to set the variable
9805 Functions added to this hook must accept a single argument, the
9819 In case this is needed, a function in this hook can also restore
9838 ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
9925 ((not org-display-internal-link-with-indirect-buffer)
10212 (mh-display-msg num folder)
10214 (mh-header-display)
10215 (mh-show-header-display))
10301 (add-hook 'org-create-file-search-functions 'org-create-file-search-in-bibtex)
10302 (add-hook 'org-execute-file-search-functions 'org-execute-file-search-in-bibtex)
10424 This function should be placed into `remember-mode-hook' and in fact requires
10425 to be run from that hook to fucntion properly."
10784 This function can be used in a hook."
10885 (display-completion-list list pattern)
10886 (error (display-completion-list list)))))
10998 (run-hooks 'org-after-todo-state-change-hook)
11026 This function should be run in the `org-after-todo-state-change-hook'."
11037 (unless (memq 'org-add-log-note (default-value 'post-command-hook))
11178 (add-hook 'post-command-hook 'org-add-log-note 'append))))
11182 (remove-hook 'post-command-hook 'org-add-log-note)
11270 (org-add-hook 'before-change-functions 'org-remove-occur-highlights
11274 (run-hooks 'org-occur-hook)
11340 (remove-hook 'before-change-functions
11709 (org-overlay-display org-tags-overlay (concat prefix s)
11712 (org-overlay-display org-tags-overlay (concat prefix s)))))
12011 (calendar-move-hook nil)
12012 (view-diary-entries-initially nil)
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)
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)
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)))
12492 (calendar-move-hook nil))
12505 (calendar-move-hook nil)
12507 (view-diary-entries-initially nil))
12640 (defun org-clock-display (&optional total-only)
12659 (org-add-hook 'before-change-functions 'org-remove-clock-overlays
12687 (org-overlay-put ov 'display tx)
12701 (remove-hook 'before-change-functions
12719 (add-hook 'org-after-todo-state-change-hook
12936 (defvar org-agenda-mode-hook nil)
12957 (org-add-hook 'post-command-hook 'org-agenda-post-command-hook nil 'local)
12958 (org-add-hook 'pre-command-hook 'org-unhighlight nil 'local)
12983 (list 'org-agenda-mode-hook)))
13021 (define-key org-agenda-mode-map "D" 'org-agenda-toggle-diary)
13035 (define-key org-agenda-mode-map "i" 'org-agenda-diary-entry)
13102 ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline)]
13119 ["Include Diary" org-agenda-toggle-diary
13120 :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)]
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
13460 (org-add-hook 'after-save-hook
13479 (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
13621 (run-hooks 'org-finalize-agenda-hook))))
13982 (if org-agenda-include-diary
13984 (require 'diary-lib)
13985 (setq rtn (org-get-entries-from-diary date))
14213 (defvar org-disable-agenda-to-diary nil) ;Dynamically-scoped param.
14215 (defun org-get-entries-from-diary (date)
14216 "Get the (Emacs Calendar) diary entries for DATE."
14217 (let* ((fancy-diary-buffer "*temporary-fancy-diary-buffer*")
14218 (diary-display-hook '(fancy-diary-display))
14219 (list-diary-entries-hook
14220 (cons 'org-diary-default-entry list-diary-entries-hook))
14221 (diary-file-name-prefix-function nil) ; turn this feature off
14222 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
14224 (org-disable-agenda-to-diary t))
14227 (list-diary-entries date 1))) ;; Keep this name for now, compatibility
14228 (if (not (get-buffer fancy-diary-buffer))
14230 (with-current-buffer fancy-diary-buffer
14236 (org-agenda-cleanup-fancy-diary)
14242 (kill-buffer fancy-diary-buffer)))
14253 (defun org-agenda-cleanup-fancy-diary ()
14254 "Remove unwanted stuff in buffer created by `fancy-diary-display'.
14256 the dummy entry installed by `org-mode' to ensure non-empty diary for each
14274 ;; Make sure entries from the diary have the right text properties.
14275 (eval-after-load "diary-lib"
14276 '(if (boundp 'diary-modify-entry-list-string-function)
14277 ;; We can rely on the hook, nothing to do
14280 (defadvice add-to-diary-list (before org-mark-diary-entry activate)
14282 (if (and org-disable-agenda-to-diary ;; called from org-agenda
14285 (setq string (org-modify-diary-entry-string string))))))
14287 (defun org-modify-diary-entry-string (string)
14292 'help-echo (format "mouse-2 or RET jump to diary file %s"
14294 'org-agenda-diary-link t
14297 (defun org-diary-default-entry ()
14298 "Add a dummy entry to the diary.
14299 Needed to avoid empty dates which mess up holiday display."
14300 ;; Catch the error if dealing with the new add-to-diary-alist
14301 (when org-disable-agenda-to-diary
14303 (add-to-diary-list original-date "Org-mode dummy" "")
14305 (add-to-diary-list original-date "Org-mode dummy" "" nil)))))
14308 (defun org-diary (&rest args)
14309 "Return diary information from org-files.
14310 This function can be used in a \"sexp\" diary entry in the Emacs calendar.
14312 listed in the diary. The function accepts arguments specifying what
14321 in the diary for *today*, not at any other date. If
14325 The diary for *today* also contains items which were
14331 diary for *today*, not at any other date.
14333 The call in the diary file should look like this:
14335 &%%(org-diary) ~/path/to/some/orgfile.org
14340 &%%(org-diary)
14346 &%%(org-diary :deadline :timestamp :scheduled)
14361 (if org-disable-agenda-to-diary (setq files nil))
14371 "Does the work for `org-diary' and `org-agenda'.
14375 the documentation of `org-diary'."
14384 ;; If file does not exist, make sure an error message ends up in diary
14446 "Return the TODO information for agenda display."
14504 "Return the date stamp information for agenda display."
14574 "Return the logged TODO entries for agenda display."
14626 "Return the deadline information for agenda display."
14681 "Return the scheduled information for agenda display."
14733 "Return the date-range information for agenda display."
15248 (add-hook 'pre-command-hook 'org-unhighlight-once))
15251 (remove-hook 'pre-command-hook 'org-unhighlight-once)
15272 (defun org-agenda-toggle-diary ()
15273 "Toggle diary inclusion in an agenda buffer."
15276 (setq org-agenda-include-diary (not org-agenda-include-diary))
15280 (if org-agenda-include-diary "on" "off")))
15299 (if org-agenda-include-diary " Diary" "")
15304 (defun org-agenda-post-command-hook ()
15475 (defun org-agenda-check-no-diary ()
15476 "Check if the entry is a diary link and abort if yes."
15477 (if (get-text-property (point) 'org-agenda-diary-link)
15491 (org-agenda-check-no-diary)
15510 (org-agenda-check-no-diary)
15614 (org-agenda-check-no-diary)
15664 (org-agenda-check-no-diary)
15689 (org-agenda-check-no-diary)
15715 (org-agenda-check-no-diary)
15755 (list 'display (org-add-props stamp nil
15766 (org-agenda-check-no-diary)
15784 (org-agenda-check-no-diary)
15802 (org-agenda-check-no-diary)
15825 (org-agenda-check-no-diary)
15851 (defun org-agenda-diary-entry ()
15852 "Make a diary entry, like the `i' command from the calendar.
15856 (require 'diary-lib)
15861 '((?d . insert-diary-entry)
15862 (?w . insert-weekly-diary-entry)
15863 (?m . insert-monthly-diary-entry)
15864 (?y . insert-yearly-diary-entry)
15865 (?a . insert-anniversary-diary-entry)
15866 (?b . insert-block-diary-entry)
15867 (?c . insert-cyclic-diary-entry)))))
15869 ; (buf (get-file-buffer (substitute-in-file-name diary-file)))
15877 (error "Don't know which date to use for diary entry"))
15898 (require 'diary-lib)
15947 (calendar-move-hook nil)
15949 (view-diary-entries-initially nil))
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
16299 (:customtime . org-display-custom-times)
16629 ("crarr") ("hookleftarrow"."↵") ; has round hook, not quite CR
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.
18340 (run-hooks 'org-after-save-iCalendar-file-hook)))))
18343 (defvar org-after-save-iCalendar-file-hook nil
18345 The iCalendar buffer is still current when this hook is run.
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]
19810 ;; Under XEmacs, the hook is run in the correct place,
19813 ;; In Emacs the hook runs *before* restoring the overlays.
19814 ;; So we have to use a one-time post-command-hook to do this.
19816 (unless (and (boundp 'isearch-mode-end-hook-quit)
19817 isearch-mode-end-hook-quit)
19819 (org-add-hook 'post-command-hook 'org-isearch-post-command
19823 "Remove self from hook, and show context."
19824 (remove-hook 'post-command-hook 'org-isearch-post-command 'local)
19831 '(if (boundp 'bookmark-after-jump-hook)
19832 ;; We can use the hook
19833 (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
19858 (run-hooks 'org-load-hook)