Lines Matching +defs:find +defs:file
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
43 ;; printing and sharing of notes, an Org-mode file can be exported as a
44 ;; structured ASCII file, as HTML, or (todo and agenda items only) as an
45 ;; iCalendar file. It can also serve as a publishing tool for a set of
56 ;; The documentation of Org-mode can be found in the TeXInfo file. The
74 ;; the file noutline.el being loaded.
87 "The version number of the file org.el.")
116 This can also be configured on a per-file basis by adding one of
136 "Non-nil means, align all tables when visiting a file.
139 This can also be configured on a per-file basis by adding one of
146 (defcustom org-insert-mode-line-in-empty-file nil
148 When the function `org-mode' is called interactively in an empty file, this
149 normally means that the file name does not automatically trigger Org-mode.
150 To ensure that the file will always be in Org-mode in the future, a
274 Org-mode often shows locations in an org-mode file which might have
309 Org-mode often shows locations in an org-mode file which might have
337 Org-mode often shows locations in an org-mode file which might have
422 You may also set this on a per-file basis by adding one of the following
576 The first part is a file name - when omitted, archiving happens in the same
577 file. %s will be replaced by the current file name (without directory part).
578 Archiving to a different file is useful to keep archived entries from
583 at the end of the file, as top-level entries.
587 If the current file is Projects.org, archive in file
591 Archive in the current file, under the top-level headline
595 Archive in file ~/org/archive.org (absolute path), as top-level trees.
598 Archive in file ./basement (relative path), as level 3 trees
601 You may set this option on a per-file basis by adding to the buffer a
609 "Non-nil means, mark entries as DONE when they are moved to the archive file."
614 "Non-nil means, add a time stamp to entries moved to an archive file.
882 (defcustom org-link-file-path-type 'adaptive
883 "How the path name in file links should be stored.
886 relative relative to the current directory, i.e. the directory of the file
959 (defcustom org-context-in-file-links t
960 "Non-nil means, file links from `org-store-link' contain context.
961 A search string will be added to the file name with :: as separator and
962 used to find the context when the link is activated by the command
975 Org-mode file (offering completion for all stored links). When this
1023 (file . find-file-other-window))
1035 `find-file'
1036 `find-file-other-window'
1037 `find-file-other-frame'
1052 (cons (const file)
1054 (const find-file)
1055 (const find-file-other-window)
1056 (const find-file-other-frame)))))
1060 Activating internal links (from one location in a file to another location
1061 in the same file) normally just jumps to the location. When the link is
1070 "Non-nil means, `org-open-file' will open non-existing files.
1122 (defconst org-file-apps-defaults-gnu
1125 "Default file applications on a UNIX or GNU/Linux system.
1126 See `org-file-apps'.")
1128 (defconst org-file-apps-defaults-macosx
1137 "Default file applications on a MacOS X system.
1140 See `org-file-apps'.")
1142 (defconst org-file-apps-defaults-windowsnt
1149 "open" 'file)))
1150 "Default file applications on a Windows NT system.
1152 See `org-file-apps'.")
1154 (defcustom org-file-apps
1163 "External applications for opening `file:path' items in a document.
1164 Org-mode uses system defaults for different file types, but
1165 you can use this variable to set the application for a given file
1168 file identifier are
1171 `remote' Matches a remote file, accessible through tramp or efs.
1177 `emacs' The file will be visited by the current Emacs process.
1178 `default' Use the default application for this file type.
1180 by the path to the file.
1181 sexp A Lisp form which will be evaluated. The file path will
1182 be available in the Lisp variable `file'.
1184 `org-file-apps-defaults-macosx'
1185 `org-file-apps-defaults-windowsnt'
1186 `org-file-apps-defaults-gnu'."
1192 (const :tag "Remote file" remote)
1220 (defcustom org-default-notes-file "~/.notes"
1223 the value of `remember-data-file'.
1228 (const :tag "Default from remember-data-file" nil)
1229 file))
1232 "The headline that should be the default location in the notes file.
1245 specify a destination file for remember items created with this template.
1246 The default file is given by `org-default-notes-file'. An optional third
1247 element can specify the headline in that file that should be offered
1248 first when the user is asked to file the entry. The default headline is
1284 info | %:type %:file %:node
1298 (file :tag "Destination file (optional)")
1302 "Non-nil means, store new notes at the beginning of a file or entry.
1303 When nil, new notes will be filed to the end of a file or entry."
1308 (repeat :tag "By file name regexp"
1378 Logging can also be configured on a per-file basis by adding one of
1418 "Non-nil means, find REPEAT cookies in entries and apply them.
1471 To turn this on on a per-file basis, insert anywhere in the file:
1597 make sure all corresponding TODO items find their way into the list."
1613 Such files should use a file variable to set it, for example
1621 If the file does not specify a category, then file's base name
1627 Entries may be added to this list with \\[org-agenda-file-to-front] and removed with
1628 \\[org-remove-file]. You can also use customize to edit the list.
1630 If the value of the variable is not a list but a single file name, then
1631 the list of agenda files is actually stored and maintained in that file, one
1632 agenda file per line."
1635 (repeat :tag "List of files" file)
1636 (file :tag "Store list in a file\n" :value "~/.agenda_files")))
1674 todo-tree Sparse tree of specific TODO keyword in *current* file.
1675 tags-tree Sparse tree with all tags matches in *current* file.
1676 occur-tree Occur sparse tree for *current* file.
2076 as given by the CATEGORY keyword or derived from the file name.
2176 find LaTeX fragments. Valid members of this list are:
2177 \"begin\" find environments
2178 \"$\" find math expressions surrounded by $...$
2179 \"$$\" find math expressions surrounded by $$....$$
2180 \"\\(\" find math expressions surrounded by \\(...\\)
2181 \"\\ [\" find math expressions surrounded by \\ [...\\]"
2197 This path may be relative to the directory where the Org-mode file lives.
2198 The default is to put them into the same directory as the Org-mode file.
2225 or use the +OPTION lines for a per-file setting."
2379 When set, the exporter will find LaTeX environments if the \\begin line is
2380 the first non-white thing on a line. It will also find the math delimiters
2474 Org-mode file."
2528 or, if you want to keep the style in a file,
2548 "Non-nil means, make file links to `file.org' point to `file.html'.
2549 When org-mode is exporting an org-mode file to HTML, links to
2553 file, assuming that the linked org-mode file will also be
2555 When nil, the links still point to the plain `.org' file."
2591 to a file."
2606 (defcustom org-combined-agenda-icalendar-file "~/org.ics"
2607 "The file name for the iCalendar file covering all agenda files.
2608 This file is created with the command \\[org-export-icalendar-all-agenda-files].
2609 The file name should be absolute."
2611 :type 'file)
2647 You may also set this on a per-file basis by adding one of the following
3320 (defvar Info-current-file)
3324 (defvar remember-data-file)
3340 ;; Defined somewhere in this file, but used before definition.
3405 (defun org-find-overlays (prop &optional pos delete)
3487 Org-mode develops organizational tasks around a NOTES file which
3495 For printing and sharing of notes, an Org-mode file (or a part of it)
3496 can be exported as a structured ASCII or HTML file.
3563 ;; If empty file that did not turn on org-mode automatically, make it to.
3564 (if (and org-insert-mode-line-in-empty-file
3616 (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-mouse)
3629 (defconst org-link-types '("https?" "ftp" "mailto" "file" "news" "bbdb" "vm"
3825 "Find all radio targets in this file and update the regular expression."
3849 "Return a list of all targets in this file.
3850 With optional argument RADIO, only find radio targets."
3984 deactivate-mark buffer-file-name buffer-file-truename)
4276 overview mode. You can dive into the tree in that copy, to find the
4644 "Convert an org-mode file with all levels allowed to one with odd levels.
4660 "Convert an org-mode file with only odd levels to one with odd and even levels.
4661 This promotes level 3 to level 2, level 5 to level 3 etc. If the file contains a
4662 section with an even level, conversion would destroy the structure of the file. An error
4669 (error "Not all levels are odd in this file. Conversion not possible."))
4939 ;; we will sort the top-level entries in this file
5128 This will find all statistic cookies like [57%] and [6/12] and update them
5168 (if all "in entire file" "in current outline entry") cstat)))))
5395 ;; find where this list begins
5461 (defun org-archive-subtree (&optional find-done)
5463 The archive can be a certain top-level heading in the current file, or in
5464 a different file. The tree will be moved to that location, the subtree
5467 When called with prefix argument FIND-DONE, find whole trees without any
5473 (if find-done
5487 file heading buffer level newfile-p)
5489 ;; Try to find a local archive location
5496 (setq file (format (match-string 1 org-archive-location)
5497 (file-name-nondirectory buffer-file-name))
5500 (if (> (length file) 0)
5501 (setq newfile-p (not (file-exists-p file))
5502 buffer (find-file-noselect file))
5505 (error "Cannot access file \"%s\"" file))
5519 (let ((org-insert-mode-line-in-empty-file t))
5523 (insert (format "\nArchived entries from file %s\n\n"
5524 (buffer-file-name this-buffer))))
5555 ;; No specific heading, just go to end of file.
5578 (concat "in file: " (abbreviate-file-name file)))))))
5860 (defun org-table-import (file arg)
5862 The file is assumed to be tab-separated. Such files can be produced by most
5869 (insert-file-contents file)
5873 "Export table as a tab-separated file.
5874 Such a file can be imported into a spreadsheet program like Excel."
5879 (file (read-file-name "Export table to: "))
5881 (unless (or (not (file-exists-p file))
5882 (y-or-n-p (format "Overwrite file %s? " file)))
5884 (with-current-buffer (find-file-noselect file)
6470 (org-table-find-dataline)
6490 (defun org-table-find-dataline ()
6514 (org-table-find-dataline)
6551 (org-table-find-dataline)
7743 (setq i (org-find-row-type table i 'hline (equal hdir "-") nil hn)))
7745 (setq i (org-find-row-type table i 'dline (equal odir "-") rel on)))
7748 (defun org-find-row-type (table i type backwards relative n)
8739 (error "Cannot find end of insertion region"))
9032 For file links, arg negates `org-context-in-file-links'."
9047 (file-name-nondirectory Info-current-file)
9049 (setq cpltxt (concat (file-name-nondirectory Info-current-file)
9051 (org-store-link-props :type "info" :file Info-current-file
9071 (folder buffer-file-name)
9079 (setq folder (abbreviate-file-name folder))
9123 (let ((folder buffer-file-name)
9182 'org-create-file-search-functions))
9183 (setq link (concat "file:" (abbreviate-file-name buffer-file-name)
9188 (setq cpltxt (concat "file:"
9189 (abbreviate-file-name buffer-file-name))
9191 (org-store-link-props :type "image" :file buffer-file-name))
9194 ;; link to the file in the current line
9195 (setq cpltxt (concat "file:"
9196 (abbreviate-file-name
9197 (expand-file-name
9201 ((and buffer-file-name (org-mode-p))
9203 (setq cpltxt (concat "file:"
9204 (abbreviate-file-name buffer-file-name)))
9206 (when (org-xor org-context-in-file-links arg)
9223 (buffer-file-name
9224 ;; Just link to this file here.
9225 (setq cpltxt (concat "file:"
9226 (abbreviate-file-name buffer-file-name)))
9228 (when (org-xor org-context-in-file-links arg)
9240 (error "Cannot link to a buffer which is not visiting a file"))
9407 (defun org-insert-link (&optional complete-file)
9422 With a \\[universal-argument] prefix, prompts for a file to link to. The file name can be
9423 selected using completion. The path to the file will be relative to
9424 the current directory if the file is in the current directory or a
9426 completed in the minibuffer (i.e. normally ~/path/to/file).
9428 With two \\[universal-argument] prefixes, enforce an absolute path even if the file
9437 link desc entry remove file)
9452 ((equal complete-file '(4))
9453 ;; Completing read for file names.
9454 (setq file (read-file-name "File: "))
9455 (let ((pwd (file-name-as-directory (expand-file-name ".")))
9456 (pwd1 (file-name-as-directory (abbreviate-file-name
9457 (expand-file-name ".")))))
9459 ((equal complete-file '(16))
9461 "file:"
9462 (abbreviate-file-name (expand-file-name file)))))
9463 ((string-match (concat "^" (regexp-quote pwd1) "\\(.+\\)") file)
9464 (setq link (org-make-link "file:" (match-string 1 file))))
9466 (expand-file-name file))
9468 "file:" (match-string 1 (expand-file-name file)))))
9469 (t (setq link (org-make-link "file:" file))))))
9481 (if (funcall (if (equal complete-file '(64)) 'not 'identity)
9492 ;; Check if we are linking to the current file with a search option
9494 (when (and buffer-file-name
9495 (string-match "\\<file:\\(.+?\\)::\\([^>]+\\)" link))
9500 (if (equal (file-truename buffer-file-name) (file-truename path))
9501 ;; We are linking to this same file, with a search option
9505 (when (string-match "\\<file:\\(.*\\)" link)
9509 ((eq org-link-file-path-type 'absolute)
9510 (setq path (abbreviate-file-name (expand-file-name path))))
9511 ((eq org-link-file-path-type 'noabbrev)
9512 (setq path (expand-file-name path)))
9513 ((eq org-link-file-path-type 'relative)
9514 (setq path (file-relative-name path)))
9518 (file-name-as-directory
9519 (expand-file-name "."))))
9520 (expand-file-name path))
9521 ;; We are linking a file with relative path name.
9522 (setq path (substring (expand-file-name path)
9524 (setq link (concat "file:" path))))
9580 (defun org-find-file-at-mouse (ev)
9581 "Open file link or URL at mouse."
9587 "Open file link or URL at mouse."
9604 optional argument IN-EMACS is non-nil, Emacs will visit the file."
9689 ((string= type "file")
9696 (org-open-file path in-emacs line search))
9780 (defvar org-create-file-search-functions nil
9781 "List of functions to construct the right search string for a file link.
9786 handle this file type, for example by checking the major-mode or
9787 the file extension. If it decides not to handle this file, it
9789 does handle the file, it must return the search string to be used
9791 file link, given after a double colon, and `org-open-at-point'
9794 added to the companion hook `org-execute-file-search-functions',
9802 (defvar org-execute-file-search-functions nil
9803 "List of functions to execute a file search triggered by a link.
9806 search string that was part of the file link, the part after the
9809 file extension. If it decides not to handle this search, it
9838 ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
9866 ;; Make a series of regular expressions to find a match
9964 (setq org-mark-ring nil org-mark-ring-last-goto nil) ;; in case file is reloaded
9986 Org-mode commands jumping to a different position in the current file,
9987 or to another Org-mode file, automatically push the old position
10052 "Follow an info file & node link to NAME."
10058 (Info-find-node (match-string 1 name) (match-string 2 name))
10059 (Info-find-node (match-string 1 name) "Top")))
10080 (file (match-string 3 folder)))
10083 ;; use tramp to access the file
10085 (setq folder (format "[%s@%s]%s" user host file))
10086 (setq folder (format "/%s@%s:%s" user host file))))
10090 (setq folder (format "/%s@%s:%s" user host file))))))
10101 (error "Could not find the specified message in this folder"))
10129 (rmail (if (string= folder "RMAIL") rmail-file-name folder))
10141 (rmail (if (string= folder "RMAIL") rmail-file-name folder))
10233 (mh-find-path)
10254 ;; file links to BibTeX database entries.
10256 (defun org-create-file-search-in-bibtex ()
10280 (defun org-execute-file-search-in-bibtex (s)
10283 ;; Yes, we want to do the search in this file.
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)
10306 ;;; Following file links
10308 (defun org-open-file (path &optional in-emacs line search)
10309 "Open the file at PATH.
10310 First, this expands any special file name abbreviations. Then the
10311 configuration variable `org-file-apps' is checked if it contains an
10312 entry for this file type, and if yes, the corresponding command is launched.
10313 If no application is found, Emacs simply visits the file.
10314 With optional argument IN-EMACS, Emacs will visit the file.
10316 search for. If LINE or SEARCH is given, the file will always be
10318 If the file does not exist, an error is thrown."
10320 (let* ((file (if (equal path "")
10321 buffer-file-name
10322 (substitute-in-file-name (expand-file-name path))))
10323 (apps (append org-file-apps (org-default-apps)))
10324 (remp (and (assq 'remote apps) (org-file-remote-p file)))
10325 (dirp (if remp nil (file-directory-p file)))
10326 (dfile (downcase file))
10350 (not (file-exists-p file))
10352 (error "No such file: %s" file))
10355 ;; Remove quotes around the file name - we'll use shell-quote-argument.
10358 (setq cmd (format cmd (shell-quote-argument file)))
10363 (funcall (cdr (assq 'file org-link-frame-setup)) file)
10368 (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
10378 org-file-apps-defaults-macosx)
10380 org-file-apps-defaults-windowsnt)
10381 (t org-file-apps-defaults-gnu)))
10383 (defun org-expand-file-name (path)
10384 "Replace special path abbreviations and expand the file name."
10385 (expand-file-name path))
10388 (defun org-file-remote-p (file)
10394 (cond ((fboundp 'file-remote-p)
10395 (file-remote-p file))
10396 ((fboundp 'tramp-handle-file-remote-p)
10397 (tramp-handle-file-remote-p file))
10399 (string-match (car ange-ftp-name-format) file))
10417 RET at beg-of-buf -> Append to file as level 2 headline
10439 (file (if (and (nth 1 entry) (stringp (nth 1 entry))
10442 org-default-notes-file))
10459 "## `C-c C-c' to file interactively, `C-u C-c C-c' to file directly.
10460 ## Target file \"%s\", headline \"%s\"
10462 (abbreviate-file-name (or file org-default-notes-file))
10487 (if (and file (string-match "\\S-" file) (not (file-directory-p file)))
10488 (org-set-local 'org-default-notes-file file))
10535 "Store stuff from remember.el into an org file.
10536 First prompts for an org file. If the user just presses return, the value
10537 of `org-default-notes-file' is used.
10538 Then the command offers the headings tree of the selected file in order to
10539 file the text at a specific location.
10541 file, or you can use vertical cursor motion and visibility cycling (TAB) to
10542 find a better place. Then press RET or <left> or <right> in insert the note.
10546 RET buffer-start as level 2 heading at end of file
10554 the default file. This way your current train of thought is not
10573 (file (if fastp org-default-notes-file (org-get-org-file)))
10575 (visiting (org-find-base-buffer-visiting file))
10597 ;; Find the file
10598 (if (not visiting) (find-file-noselect file))
10599 (with-current-buffer (or visiting (get-file-buffer file))
10658 (defun org-get-org-file ()
10660 (let ((default (or org-default-notes-file remember-data-file)))
10661 (read-file-name (format "File name [%s]: " default)
10662 (file-name-as-directory org-directory)
10666 "Check if the current file should receive notes in reversed order."
10675 (if (string-match (car entry) buffer-file-name)
10681 (defun org-find-dblock (name)
10798 setting file options.
10863 (message "Can't find completion for \"%s\"" pattern)
11433 (format "mouse-2 or RET jump to org file %s"
11434 (abbreviate-file-name buffer-file-name))))
12593 (defvar org-clock-file-total-minutes nil
12594 "Holds the file total time in minutes, after a call to `org-clock-sum'.")
12595 (make-variable-buffer-local 'org-clock-file-total-minutes)
12637 (setq org-clock-file-total-minutes (aref ltimes 0)))
12642 If TOTAL-ONLY is non-nil, only show the total time for the entire file
12655 (setq h (/ org-clock-file-total-minutes 60)
12656 m (- org-clock-file-total-minutes (* 60 h)))
12661 (message "Total file time: %d:%02d (%d hours and %d minutes)" h m h m)))
12746 (unless (org-find-dblock "clocktable")
12853 (setq h (/ org-clock-file-total-minutes 60)
12854 m (- org-clock-file-total-minutes (* 60 h)))
12855 (insert-before-markers "|-\n|0|" "*Total file time*| "
12932 (defvar org-agenda-menu) ; defined later in this file.
12938 (defvar org-agenda-force-single-file nil)
12974 "Restricted to single file"
12976 '(org-edit-agenda-file-list)
12979 (mapcar 'org-file-menu-entry (org-agenda-files))))
13109 ["Create iCalendar file" org-export-icalendar-combine-agenda-files t])
13239 If the current buffer is in Org-mode and visiting a file, you can also
13241 next use of \\[org-agenda]) restricted to the current file."
13245 (bfn (buffer-file-name (buffer-base-buffer)))
13324 (if restrict-ok " (restricted to current file)" ""))
13365 (error "This is not an Org-mode file"))
13437 ;;; Agenda file list
13445 ((stringp org-agenda-files) (org-read-agenda-file-list))
13449 (defun org-edit-agenda-file-list ()
13452 `org-agenda-files', or it visits the file that is holding the list. In the
13458 (find-file org-agenda-files)
13466 (message "New agenda file list installed"))
13472 (defun org-store-new-agenda-file-list (list)
13473 "Set new value for the agenda file list and save it correcly."
13476 (while (setq b (find-buffer-visiting f)) (kill-buffer b))
13477 (with-temp-file f
13483 (defun org-read-agenda-file-list ()
13484 "Read the list of agenda files from a file."
13487 (insert-file-contents org-agenda-files)
13494 If the current buffer visits an agenda file, find the next one in the list.
13495 If the current buffer does not, find the first agenda file."
13499 (tcf (if buffer-file-name (file-truename buffer-file-name)))
13500 file)
13503 (while (setq file (pop files))
13504 (if (equal (file-truename file) tcf)
13506 (find-file (car files))
13508 (find-file (car fs)))
13511 (defun org-agenda-file-to-end ()
13512 "Move/add the current file to the end of the agenda file list.
13513 If the file is not present in the list, it is appended to the list. If it is
13516 (org-agenda-file-to-front 'to-end))
13518 (defun org-agenda-file-to-front (&optional to-end)
13519 "Move/add the current file to the top of the agenda file list.
13520 If the file is not present in the list, it is added to the front. If it is
13524 (let ((file-alist (mapcar (lambda (x)
13525 (cons (file-truename x) x))
13527 (ctf (file-truename buffer-file-name))
13529 (setq x (assoc ctf file-alist) had x)
13531 (if (not x) (setq x (cons ctf (abbreviate-file-name buffer-file-name))))
13533 (setq file-alist (append (delq x file-alist) (list x)))
13534 (setq file-alist (cons x (delq x file-alist))))
13535 (org-store-new-agenda-file-list (mapcar 'cdr file-alist))
13537 (message "File %s to %s of agenda file list"
13540 (defun org-remove-file (&optional file)
13541 "Remove current file from the list of files in variable `org-agenda-files'.
13543 Optional argument FILE means, use this file instead of the current."
13545 (let* ((file (or file buffer-file-name))
13546 (true-file (file-truename file))
13547 (afile (abbreviate-file-name file))
13550 (if (equal true-file
13551 (file-truename x))
13556 (org-store-new-agenda-file-list files)
13558 (message "Removed file: %s" afile))
13561 (defun org-file-menu-entry (file)
13562 (vector file (list 'find-file file) t))
13564 (defun org-check-agenda-file (file)
13566 (when (not (file-exists-p file))
13567 (message "non-existent file %s. [R]emove from list or [A]bort?"
13568 (abbreviate-file-name file))
13572 (org-remove-file file)
13630 bmp file re)
13633 (while (setq file (pop files))
13634 (org-check-agenda-file file)
13635 (set-buffer (org-get-agenda-file-buffer file))
13707 (defun org-get-agenda-file-buffer (file)
13710 (let ((buf (org-find-base-buffer-visiting file)))
13714 (setq buf (find-file-noselect file))
13722 (let (buf file)
13724 (setq file (buffer-file-name buf))
13726 file
13727 (y-or-n-p (format "Save file %s? " file)))
13747 (if buffer-file-name
13748 (file-name-sans-extension
13749 (file-name-nondirectory buffer-file-name))
13762 "Show a time-sorted view of the entries in the current org file.
13775 (entry buffer-file-name)
13929 s e rtn rtnall file date d start-pos end-pos todayp nd)
13946 (while (setq file (pop files))
13948 (org-check-agenda-file file)
13951 file date :todo))
13971 (while (setq file (pop files))
13973 (org-check-agenda-file file)
13976 file date
13979 file date
14029 "Show all TODO entries from all agenda file in a single list.
14046 rtn rtnall files file pos)
14059 (while (setq file (pop files))
14061 (org-check-agenda-file file)
14062 (setq rtn (org-agenda-get-day-entries file date :todo))
14103 rtn rtnall files file pos matcher
14113 (while (setq file (pop files))
14115 (org-check-agenda-file file)
14116 (setq buffer (if (file-exists-p file)
14117 (org-get-agenda-file-buffer file)
14118 (error "No such file %s" file)))
14120 ;; If file does not exist, merror message to agenda
14122 (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14126 (error "Agenda file %s is not in `org-mode'" file))
14221 (diary-file-name-prefix-function nil) ; turn this feature off
14284 buffer-file-name)
14292 'help-echo (format "mouse-2 or RET jump to diary file %s"
14293 (abbreviate-file-name buffer-file-name))
14328 :todo List all TODO items from the org-file. This may be a
14333 The call in the diary file should look like this:
14337 Use a separate line for each org file to check. Or, if you omit the file name,
14358 file rtn results)
14362 (while (setq file (pop files))
14363 (setq rtn (apply 'org-agenda-get-day-entries file date args))
14370 (defun org-agenda-get-day-entries (file date &rest args)
14372 FILE is the path to a file to be checked for entries. DATE is date like
14379 (buffer (if (file-exists-p file)
14380 (org-get-agenda-file-buffer file)
14381 (error "No such file %s" file)))
14384 ;; If file does not exist, make sure an error message ends up in diary
14385 (list (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14388 (error "Agenda file %s is not in `org-mode'" file))
14453 (format "mouse-2 or RET jump to org file %s"
14454 (abbreviate-file-name buffer-file-name))))
14510 (format "mouse-2 or RET jump to org file %s"
14511 (abbreviate-file-name buffer-file-name))))
14579 (format "mouse-2 or RET jump to org file %s"
14580 (abbreviate-file-name buffer-file-name))))
14632 (format "mouse-2 or RET jump to org file %s"
14633 (abbreviate-file-name buffer-file-name))))
14689 (format "mouse-2 or RET jump to org file %s"
14690 (abbreviate-file-name buffer-file-name))))
14739 (format "mouse-2 or RET jump to org file %s"
14740 (abbreviate-file-name buffer-file-name))))
14824 category taken from local variable or file name. It will replace the `%c'
14836 (if buffer-file-name
14837 (file-name-sans-extension
14838 (file-name-nondirectory buffer-file-name))
15145 (org-agenda-find-today-or-agenda)))
15146 (t (error "Cannot find today")))))
15148 (defun org-agenda-find-today-or-agenda ()
15164 (org-agenda-find-today-or-agenda)))
15176 (org-agenda-find-today-or-agenda)))
15191 (org-agenda-find-today-or-agenda))
15208 (org-agenda-find-today-or-agenda))
15329 "Go to the Org-mode file which contains the item at point."
15432 "Go to the Org-mode file which contains the item at point."
15449 "Go to the Org-mode file which contains the item at the mouse click."
15455 "Display the Org-mode file which contains the item at point."
15462 "Display the Org-mode file which contains the item at point and recenter."
15470 "Display the Org-mode file which contains the item at the mouse click."
15506 "Cycle TODO state of line at point, also in Org-mode file.
15508 the same tree node, and the headline of the tree node in the Org-mode file."
15542 `equal' against all `org-hd-marker' text properties in the file.
15600 "Increase the priority of line at point, also in Org-mode file."
15605 "Decrease the priority of line at point, also in Org-mode file."
15610 "Set the priority of line at point, also in Org-mode file.
15612 the same tree node, and the headline of the tree node in the Org-mode file."
15725 (error "Cannot find time stamp"))
15776 (error "Cannot find time stamp"))
15869 ; (buf (get-file-buffer (substitute-in-file-name diary-file)))
16160 (concat "ltxpng/" (file-name-sans-extension
16161 (file-name-nondirectory
16162 buffer-file-name)))
16179 (let* ((prefixnodir (file-name-nondirectory prefix))
16180 (absprefix (expand-file-name prefix dir))
16181 (todir (file-name-directory absprefix))
16188 (when (file-directory-p todir)
16189 (mapc 'delete-file
16206 link (concat block "[[file:" linkfile "]]" block))
16211 (or (file-directory-p todir) (make-directory todir)))
16222 (make-glyph (vector 'png :file movefile))))
16225 (list 'image :type 'png :file movefile :ascent 'center)))
16235 temporary-file-directory))
16237 (expand-file-name "orgtex" tmpdir)))
16239 ;(texfilebase (make-temp-file "orgtex"))
16240 ; (dummy (delete-file texfilebase))
16247 (with-temp-file texfile
16264 (if (not (file-exists-p dvifile))
16265 (progn (message "Failed to create dvi file from %s" texfile) nil)
16271 (if (not (file-exists-p pngfile))
16272 (progn (message "Failed to create png file from %s" texfile) nil)
16273 ;; Use the requested file name and clean up
16274 (copy-file pngfile tofile 'replace)
16276 (delete-file (concat texfilebase e)))
16293 (defvar org-current-export-file nil) ; dynamically scoped parameter
16333 "Return the property list with file-local settings for export."
16380 (defun org-export-find-first-heading-line (list)
16426 \[i] export current file as iCalendar file
16428 \[c] export agenda files into combined iCalendar file
16430 \[F] publish current file
16441 (?i . org-export-icalendar-this-file)
16444 (?F . org-publish-current-file)
16844 (concat "ltxpng/" (file-name-sans-extension
16845 (file-name-nondirectory
16846 org-current-export-file)))
16954 "Export the outline as a pretty ASCII file.
16967 (lines (org-export-find-first-heading-line
16977 (filename (concat (file-name-as-directory
16979 (file-name-sans-extension
16980 (file-name-nondirectory buffer-file-name))
16982 (buffer (find-file-noselect filename))
16989 (file-name-sans-extension
16990 (file-name-nondirectory buffer-file-name))))
17002 (find-file-noselect filename)
17159 ;; find the indentation of the next non-empty line
17185 org-mode file will not be removed but presented to you so that you can
17203 (file buffer-file-name)
17210 (goto-char (org-find-invisible))
17212 (setq s (goto-char (org-find-visible))))
17224 (let ((buffer-file-name file)
17234 (defun org-find-visible ()
17239 (defun org-find-invisible ()
17277 (file-name-nondirectory buffer-file-name)
17302 "org file:~/org/%s.org"
17365 (org-open-file buffer-file-name))
17376 "Export the outline as a pretty HTML file.
17382 org-mode's default settings, but still inferior to file-local settings."
17405 (org-current-export-file buffer-file-name)
17413 (lines (org-export-find-first-heading-line all_lines))
17417 (filename (concat (file-name-as-directory
17419 (file-name-sans-extension
17420 (file-name-nondirectory buffer-file-name))
17422 (current-dir (file-name-directory buffer-file-name))
17423 (buffer (find-file-noselect filename))
17429 (file-name-sans-extension
17430 (file-name-nondirectory buffer-file-name))))
17446 (coding-system (and (boundp 'buffer-file-coding-system)
17447 buffer-file-coding-system))
17668 (when (and descp (org-file-image-p desc))
17670 (if (string-match "^file:" desc)
17685 (org-file-image-p path))
17693 ((string= type "file")
17696 (abs-p (file-name-absolute-p filename))
17697 thefile file-is-image-p search)
17706 (setq file-is-image-p (org-file-image-p filename))
17707 (setq thefile (if abs-p (expand-file-name filename) filename))
17721 (when (string-match "^file:" desc)
17725 (setq rpl (if (and file-is-image-p
18276 (defun org-export-icalendar-this-file ()
18277 "Export current file as an iCalendar file.
18278 The iCalendar file will be located in the same directory as the Org-mode
18279 file, but with extension `.ics'."
18281 (org-export-icalendar nil buffer-file-name))
18286 Each iCalendar file will be located in the same directory as the Org-mode
18287 file, but with extension `.ics'."
18293 "Export all files in `org-agenda-files' to a single combined iCalendar file.
18294 The file is stored under the name `org-combined-agenda-icalendar-file'."
18301 file and store it under the name `org-combined-agenda-icalendar-file'."
18306 file ical-file ical-buffer category started org-agenda-new-buffers)
18309 (setq ical-file
18310 (if (file-name-absolute-p org-combined-agenda-icalendar-file)
18311 org-combined-agenda-icalendar-file
18312 (expand-file-name org-combined-agenda-icalendar-file dir))
18313 ical-buffer (org-get-agenda-file-buffer ical-file))
18315 (while (setq file (pop files))
18317 (org-check-agenda-file file)
18318 (set-buffer (org-get-agenda-file-buffer file))
18320 (setq ical-file (concat (file-name-as-directory dir)
18321 (file-name-sans-extension
18322 (file-name-nondirectory buffer-file-name))
18324 (setq ical-buffer (org-get-agenda-file-buffer ical-file))
18327 (file-name-sans-extension
18328 (file-name-nondirectory buffer-file-name))))
18333 (org-start-icalendar-file org-icalendar-combined-name))
18334 (org-start-icalendar-file category))
18337 (org-finish-icalendar-file)
18340 (run-hooks 'org-after-save-iCalendar-file-hook)))))
18343 (defvar org-after-save-iCalendar-file-hook nil
18344 "Hook run after an iCalendar file has been saved.
18347 the iCalendar file.")
18350 "Print iCalendar entries for the current Org-mode file to `standard-output'.
18425 (defun org-start-icalendar-file (name)
18426 "Start an iCalendar file by inserting the header."
18438 (defun org-finish-icalendar-file ()
18439 "Finish an iCalendar file by inserting the END statement."
18478 (filename (concat (file-name-as-directory
18480 (file-name-sans-extension
18481 (file-name-nondirectory buffer-file-name))
18483 (out (find-file-noselect filename))
18652 (define-key org-mode-map "\C-c[" 'org-agenda-file-to-front)
18653 (define-key org-mode-map "\C-c]" 'org-remove-file)
19001 - If the current buffer is a remember buffer, close note and file it.
19002 with a prefix argument, file it without further interaction to the default
19254 ("Special views current file"
19327 ["Edit File List" (org-edit-agenda-file-list) t]
19328 ["Add/Move Current File to Front of List" org-agenda-file-to-front t]
19329 ["Remove Current File from List" org-remove-file t]
19332 (mapcar 'org-file-menu-entry (org-agenda-files t))))))))
19570 (defun org-find-base-buffer-visiting (file)
19571 "Like `find-buffer-visiting' but alway return the base buffer and
19573 (let ((buf (find-buffer-visiting file)))
19635 (defun org-image-file-name-regexp ()
19636 "Return regexp matching the file names of images."
19637 (if (fboundp 'image-file-name-regexp)
19638 (image-file-name-regexp)
19639 (let ((image-file-name-extensions
19644 image-file-name-extensions)
19645 image-file-name-extensions)
19649 (defun org-file-image-p (file)
19652 (string-match (org-image-file-name-regexp) file)))