comparison lisp/textmodes/org.el @ 68294:f915fc860323

(org-open-at-point): Fixed bug with matching a link. Fixed buggy argument sequence in call to `org-view-tags'. (org-compile-prefix-format): Set `org-prefix-has-tag'. (org-prefix-has-tag): New variable. (org-format-agenda-item): Remove tags from headline if appropriate. (org-agenda-remove-tags-when-in-prefix): New option.

68293:5d930699173f

;; Copyright (c) 2004, 2005, 2006 Free Software Foundation
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.03
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Changes since version 4.00:
;; ---------------------------
;; Version 4.03
;;    - Table alignment fixed for use with wide characters.
;;    - `C-c -' leaves cursor in current table line.
;;    - The current TAG can be incorporated into the agenda prefix.
;;      See option `org-agenda-prefix-format' for details.

(defvar calc-embedded-open-formula)
(defvar font-lock-unfontify-region-function)

;;; Customization variables

(defvar org-version "4.03"
  "The version number of the file org.el.")
(defun org-version ()
  (interactive)
  (message "Org-mode version %s" org-version))

As another example, if you don't want the time-of-day of entries in
the prefix, you could use:

  (setq org-agenda-prefix-format \"  %-11:c% s\")

See also the variable `org-agenda-remove-times-when-in-prefix'."
  :type 'string
  :group 'org-agenda)

(defcustom org-timeline-prefix-format "  % s"
  "Like `org-agenda-prefix-format', but for the timeline of a single file."

do have a time.  When nil, the default time is before 0:00.  You can use this
option to decide if the schedule for today should come before or after timeless
agenda entries."
  :group 'org-agenda
  :type 'boolean)

(defgroup org-structure nil
  "Options concerning structure editing in Org-mode."
  :tag "Org Structure"
  :group 'org)

	  (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>"))
    (org-set-font-lock-defaults)))

;; Tell the compiler about dynamically scoped variables,
;; and variables from other packages
(defvar zmacs-regions)
(defvar original-date)
(defvar org-transient-mark-mode)
(defvar org-old-auto-fill-inhibit-regexp)
(defvar orgtbl-mode-menu)
(defvar org-html-entities)
(defvar org-goto-start-pos)
(defvar org-cursor-color)
(defvar org-time-was-given)
(defvar org-ts-what)
(defvar mark-active)
(defvar timecnt)
(defvar levels-open)
(defvar title)
(defvar author)
(defvar email)
(defvar text)
(defvar entry)
(defvar date)
(defvar language)
(defvar options)
(defvar ans1)
(defvar ans2)
(defvar starting-day)
(defvar include-all-loc)
(defvar vm-message-pointer)
(defvar vm-folder-directory)
(defvar wl-summary-buffer-elmo-folder)
(defvar wl-summary-buffer-folder-name)
(defvar gnus-group-name)
(defvar gnus-article-current)
(defvar w3m-current-url)
(defvar org-selected-point)
(defvar calendar-mode-map)
(defvar remember-save-after-remembering)
(defvar remember-data-file)


;;; Define the mode

(defvar org-mode-map (copy-keymap outline-mode-map)

	(this-buffer (current-buffer))
	file heading buffer level newfile-p)
    (if (string-match "\\(.*\\)::\\(.*\\)" org-archive-location)
	(progn
	  (setq file (format (match-string 1 org-archive-location)
			     (file-name-nondirectory buffer-file-name))
		heading (match-string 2 org-archive-location)))
      (error "Invalid `org-archive-location'"))
    (if (> (length file) 0)
	(setq newfile-p (not (file-exists-p file))
	      buffer (find-file-noselect file))

		  (list (+ (if (eq org-ts-what 'month) n 0)  (nth 4 time0)))
		  (list (+ (if (eq org-ts-what 'year) n 0)   (nth 5 time0)))
		  (nthcdr 6 time0))))
    (if (eq what 'calendar)
	(let ((cal-date
               (save-match-data
                 (with-current-buffer "*Calendar*"
		   (calendar-cursor-to-date)))))
	  (setcar (nthcdr 4 time0) (nth 0 cal-date)) ; month
	  (setcar (nthcdr 3 time0) (nth 1 cal-date)) ; day
	  (setcar (nthcdr 5 time0) (nth 2 cal-date)) ; year
	  (setcar time0 (or (car time0) 0))

If the current buffer is in Org-mode and visiting a file, you can also
first press `1' to indicate that the agenda should be temporarily (until the
next use of \\[org-agenda]) restricted to the current file."
  (interactive "P")
  (catch 'exit
    (let ((restrict-ok (and buffer-file-name (eq major-mode 'org-mode)))
	  (custom org-agenda-custom-commands)
	  c entry key type string)
      (put 'org-agenda-files 'org-restrict nil)
      (save-window-excursion
	(delete-other-windows)

		 (if restrict-ok ", or [1] to restrict to current file" ""))
	(setq c (read-char-exclusive))
	(message "")
	(when (equal c ?1)
	  (if restrict-ok
	      (put 'org-agenda-files 'org-restrict (list buffer-file-name))
	    (error "Cannot restrict agenda to current buffer"))
	  (message "Press key for agenda command%s"
		   (if restrict-ok " (restricted to current file)" ""))
	  (setq c (read-char-exclusive))
	  (message "")))

  (org-compile-prefix-format org-timeline-prefix-format)
  (let* ((dopast t)
	 (dotodo include-all)
	 (doclosed org-agenda-show-log)
	 (org-agenda-keep-modes keep-modes)
	 (entry buffer-file-name)
	 (org-agenda-files (list buffer-file-name))
	 (date (calendar-current-date))
	 (win (selected-window))
	 (pos1 (point))
	 (beg (if (org-region-active-p) (region-beginning) (point-min)))
	 (end (if (org-region-active-p) (region-end) (point-max)))

	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'todo)
    (set (make-local-variable 'org-todo-keywords) kwds)
    (set (make-local-variable 'org-agenda-redo-command)
	 `(org-todo-list (or current-prefix-arg ',arg) t))
    (setq files (org-agenda-files)
	  rtnall nil)
    (while (setq file (pop files))
      (catch 'nextfile
	(org-check-agenda-file file)

     ;; Hook not avaiable, must use advice to make this work
     (defadvice add-to-diary-list (before org-mark-diary-entry activate)
       "Make the position visible."
       (if (and org-disable-agenda-to-diary  ;; called from org-agenda
		(stringp string)
		buffer-file-name)
	   (setq string (org-modify-diary-entry-string string))))))

(defun org-modify-diary-entry-string (string)
  "Add text properties to string, allowing org-mode to act on it."
  (add-text-properties

   (list 'mouse-face 'highlight
	 'keymap org-agenda-keymap
	 'help-echo
	 (format
	  "mouse-2 or RET jump to diary file %s"
	  (abbreviate-file-name buffer-file-name))
	 'org-agenda-diary-link t
	 'org-marker (org-agenda-new-marker (point-at-bol)))
   string)
  string)

  "Cycle through the files in `org-agenda-files'.
If the current buffer visits an agenda file, find the next one in the list.
If the current buffer does not, find the first agenda file."
  (interactive)
  (let ((files (append org-agenda-files (list (car org-agenda-files))))
	(tcf (if buffer-file-name (file-truename buffer-file-name)))
	file)
    (unless files (error "No agenda files"))
    (catch 'exit
      (while (setq file (pop files))
	(if (equal (file-truename file) tcf)
	    (when (car files)
	      (find-file (car files))
	      (throw 'exit t))))
      (find-file (car org-agenda-files)))))

(defun org-agenda-file-to-end ()
  "Move/add the current file to the end of the agenda fiole list.
If the file is not present in the list, append it to the list.  If it is
present, move it there."
  (interactive)
  (org-agenda-file-to-front 'to-end))

(defun org-agenda-file-to-front (&optional to-end)
  "Move/add the current file to the top of the agenda file list.
If the file is not present in the list, add it to the front.  If it is
present, it move it there.  With optional argument TO-END, add/move to the
end of the list."
  (interactive "P")
  (let* ((file-alist (mapcar (lambda (x)
                               (cons (file-truename x) x))
                             org-agenda-files))
         (ctf (file-truename buffer-file-name))
         (had (assoc ctf file-alist))
         (x (or had (cons ctf (abbreviate-file-name buffer-file-name)))))
    (setq file-alist (if to-end
                         (append (delq x file-alist) (list x))
                       (cons x (delq x file-alist))))
    (setq org-agenda-files (mapcar 'cdr file-alist))
    (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
      (customize-save-variable 'org-agenda-files org-agenda-files))
    (org-install-agenda-files-menu)
    (message "File %s to %s of agenda file list"

(defun org-remove-file (&optional file)
  "Remove current file from the list of files in variable `org-agenda-files'.
These are the files which are being checked for agenda entries.
Optional argument FILE means, use this file instead of the current."
  (interactive)
  (let* ((file (or file buffer-file-name))
	 (true-file (file-truename file))
	 (afile (abbreviate-file-name file))
	 (files (delq nil (mapcar
			   (lambda (x)
			     (if (equal true-file

  "Get the category applying to position POS."
  (if (not org-category-table)
      (cond
       ((null org-category)
	(setq org-category
	      (if buffer-file-name
		  (file-name-sans-extension
		   (file-name-nondirectory buffer-file-name))
		"???")))
       ((symbolp org-category) (symbol-name org-category))
       (t org-category))
    (let ((tbl org-category-table)
	  (pos (or pos (point))))

	(and (looking-at org-tr-regexp)
	     (>= (match-end 0) pos)
	     (throw 'exit t)))
      nil)))

(defun org-agenda-get-todos ()
  "Return the TODO information for agenda display."
  (let* ((props (list 'face nil
		      'done-face 'org-done
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp (concat "[\n\r]\\*+ *\\(" 
			 (if org-select-this-todo-keyword
			     (concat "\\<\\(" org-select-this-todo-keyword
				     "\\)\\>")
			   org-not-done-regexp)

  (let* ((props (list 'face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp (regexp-quote
		  (substring
		   (format-time-string
		    (car org-time-stamp-formats)
		    (apply 'encode-time  ; DATE bound by calendar

  "Return the loggedd TODO entries for agenda display."
  (let* ((props (list 'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp (concat
		  "\\<" org-closed-string " *\\["
		  (regexp-quote
		   (substring
		    (format-time-string

  (let* ((wdays org-deadline-warning-days)
	 (props (list 'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp org-deadline-time-regexp)
	 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
	 (d1 (calendar-absolute-from-gregorian date))  ; DATE bound by calendar
	 d2 diff pos pos1 category tags
	 ee txt head)

		      'done-face 'org-done
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp org-scheduled-time-regexp)
	 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
	 (d1 (calendar-absolute-from-gregorian date))  ; DATE bound by calendar
	 d2 diff pos pos1 category tags
	 ee txt head)

  (let* ((props (list 'face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
	 (regexp org-tr-regexp)
	 (d0 (calendar-absolute-from-gregorian date))
	 marker hdmarker ee txt d1 d2 s1 s2 timestr category tags)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)

4  the second time, if it is a range.")

(defvar org-prefix-has-time nil
  "A flag, set by `org-compile-prefix-format'.
The flag is set if the currently compiled format contains a `%t'.")

(defvar time)                     ;Needed for the eval of the prefix format.
(defvar tag)                      ;Presumably, same thing as above.
(defun org-format-agenda-item (extra txt &optional category tags dotime noprefix)
  "Format TXT to be inserted into the agenda buffer.
In particular, it adds the prefix and corresponding text properties.  EXTRA
must be a string and replaces the `%s' specifier in the prefix format.
CATEGORY (string, symbol or nil) may be used to overule the default

  (save-match-data
    ;; Diary entries sometimes have extra whitespace at the beginning
    (if (string-match "^ +" txt) (setq txt (replace-match "" nil nil txt)))
    (let* ((category (or category
			 org-category
			 (if buffer-file-name
			     (file-name-sans-extension
			      (file-name-nondirectory buffer-file-name))
			   "")))
	   (tag (or (nth (1- (length tags)) tags) ""))
	   time              ;; needed for the eval of the prefix format
	   (ts (if dotime (concat (if (stringp dotime) dotime "") txt)))
	   (time-of-day (and dotime (org-get-time-of-day ts)))

		     t))
	      (setq txt (replace-match "" nil nil txt))))
	;; Normalize the time(s) to 24 hour
	(if s1 (setq s1 (org-get-time-of-day s1 'string)))
	(if s2 (setq s2 (org-get-time-of-day s2 'string))))

      ;; Create the final string
      (if noprefix
	  (setq rtn txt)
	;; Prepare the variables needed in the eval of the compiled format

(defun org-compile-prefix-format (format)
  "Compile the prefix format into a Lisp form that can be evaluated.
The resulting form is returned and stored in the variable
`org-prefix-format-compiled'."
  (setq org-prefix-has-time nil)
  (let ((start 0) varform vars var (s format)e c f opt)
    (while (string-match "%\\(\\?\\)?\\([-+]?[0-9.]*\\)\\([ .;,:!?=|/<>]?\\)\\([cts]\\)"
			 s start)
      (setq var (cdr (assoc (match-string 4 s)
			    '(("c" . category) ("t" . time) ("s" . extra)
			      ("T" . tag))))
	    c (or (match-string 3 s) "")
	    opt (match-beginning 1)
	    start (1+ (match-beginning 0)))
      (if (equal var 'time) (setq org-prefix-has-time t))
      (setq f (concat "%" (match-string 2 s) "s"))
      (if opt
	  (setq varform
		`(if (equal "" ,var)
		     ""

			     12 0)))
		   (if (match-beginning 3)
		       (string-to-number (match-string 3 s))
		     0)))
	    (t1 (concat " "
			(if (< t0 100) "0" "") (if (< t0 10) "0" "")
			(int-to-string t0))))
       (if string (concat (substring t1 -4 -2) ":" (substring t1 -2)) t0)))))

(defun org-finalize-agenda-entries (list)
  "Sort and concatenate the agenda items."

	 (tb (or (get-text-property 1 'time-of-day b) def)))
    (cond ((< ta tb) -1)
	  ((< tb ta) +1)
	  (t nil))))

(defvar time-up) (defvar time-down)
(defvar priority-up) (defvar priority-down)
(defvar category-up) (defvar category-down) (defvar category-keep)
(defun org-entries-lessp (a b)
  "Predicate for sorting agenda entries."
  ;; The following variables will be used when the form is evaluated.
  (let* ((time-up (org-cmp-time a b))
	 (time-down (if time-up (- time-up) nil))

		      'undone-face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name buffer-file-name))))
         lspos
	 tags tags-list tags-alist (llast 0) rtn level category i txt
	 todo marker)

    (save-excursion

      (catch 'match
	(save-excursion
	  (skip-chars-backward
	   (concat (if org-allow-space-in-links "^" "^ ")
		   org-non-link-chars))
	  (when (looking-at org-link-regexp)
	    (setq type (match-string 1)
		  path (match-string 2))
	    (throw 'match t)))
	(save-excursion
	  (skip-chars-backward "^ \t\n\r")

	  (setq path (replace-match "" t t path)))
      
      (cond
       
       ((string= type "tags")
	(org-tags-view path in-emacs))
       ((string= type "camel")
	(org-link-search
	 path
	 (cond ((equal in-emacs '(4)) 'occur)
	       ((equal in-emacs '(16)) 'org-occur)

search for.  If LINE or SEARCH is given, the file will always be
openen in emacs.
If the file does not exist, an error is thrown."
  (setq in-emacs (or in-emacs line search))
  (let* ((file (if (equal path "") 
		   buffer-file-name
		 (convert-standard-filename (org-expand-file-name path))))
	 (dfile (downcase file))
	 ext cmd apps)
    (if (and (not (file-exists-p file))
	     (not org-open-non-existing-files))

      (setq cmd (format cmd (concat "\"" file "\"")))
      (save-window-excursion
	(shell-command (concat cmd " &"))))
     ((or (stringp cmd)
	  (eq cmd 'emacs))
      (unless (equal (file-truename file) (file-truename buffer-file-name))
	(funcall (cdr (assq 'file org-link-frame-setup)) file))
      (if line (goto-line line)
	(if search (org-link-search search))))
     ((consp cmd)
      (eval cmd))

      (and (eq major-mode 'vm-presentation-mode) (vm-summarize))
      (vm-follow-summary-cursor)
      (save-excursion
       (vm-select-folder-buffer)
       (let* ((message (car vm-message-pointer))
	      (folder buffer-file-name)
	      (subject (vm-su-subject message))
	      (author (vm-su-full-name message))
	      (message-id (vm-su-message-id message)))
	 (setq folder (abbreviate-file-name folder))
	 (if (string-match (concat "^" (regexp-quote vm-folder-directory))

     ((eq major-mode 'rmail-mode)
      (save-excursion
	(save-restriction
	  (rmail-narrow-to-non-pruned-header)
	  (let ((folder buffer-file-name)
		(message-id (mail-fetch-field "message-id"))
		(author (mail-fetch-field "from"))
		(subject (mail-fetch-field "subject")))
	    (setq cpltxt (concat author  " on: " subject))
	    (setq link (concat cpltxt "\n  "

	    link (org-make-link cpltxt)))

     ((eq major-mode 'org-mode)
      ;; Just link to current headline
      (setq cpltxt (concat "file:"
			   (abbreviate-file-name buffer-file-name)))
      ;; Add a context search string
      (when (org-xor org-context-in-file-links arg)
	(if (save-excursion
	      (skip-chars-backward "a-zA-Z<")
	      (looking-at (concat "<<\\(" org-camel-regexp "\\)>>")))

			   (buffer-substring (region-beginning) (region-end)))
			  (t (buffer-substring (point-at-bol) (point-at-eol))))
			 )))))
      (setq link (org-make-link cpltxt)))

     (buffer-file-name
      ;; Just link to this file here.
      (setq cpltxt (concat "file:"
			   (abbreviate-file-name buffer-file-name)))
      ;; Add a context string
      (when (org-xor org-context-in-file-links arg)
	(setq cpltxt
	      (concat cpltxt "::" 
		      (org-make-org-heading-camel

      (when (string-match "<\\<file:\\(.+?\\)::\\([^>]+\\)>" link)
	(let* ((path (match-string 1 link))
	       (case-fold-search nil)
	       (search (match-string 2 link)))
	    (when (save-match-data
		    (equal (file-truename buffer-file-name)
			   (file-truename path)))
	      (if (save-match-data
		    (string-match (concat "^" org-camel-regexp "$") search))
		  (setq link (replace-match search t t link)
			matched t)

   ((not (listp org-reverse-note-order)) nil)
   (t (catch 'exit
	(let  ((all org-reverse-note-order)
	       entry)
	  (while (setq entry (pop all))
	    (if (string-match (car entry) buffer-file-name)
		(throw 'exit (cdr entry))))
	  nil)))))

;;; Tables

		 (org-skip-comments (org-split-string region "[\r\n]"))))
	 (org-startup-with-deadline-check nil)
	 (level 0) line txt
	 (umax nil)
	 (case-fold-search nil)
	 (filename (concat (file-name-sans-extension buffer-file-name)
			   ".txt"))
	 (buffer (find-file-noselect filename))
	 (levels-open (make-vector org-level-max nil))
	 (date  (format-time-string "%Y/%m/%d" (current-time)))
	 (time  (format-time-string "%X" (current-time)))

(defun org-export-copy-visible ()
  "Copy the visible part of the buffer to another buffer, for printing.
Also removes the first line of the buffer if it specifies a mode,
and all options lines."
  (interactive)
  (let* ((filename (concat (file-name-sans-extension buffer-file-name)
			   ".txt"))
	 (buffer (find-file-noselect filename))
	 (ore (concat
	       (org-make-options-regexp
		'("CATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO"

   org-export-with-fixed-width
   org-export-with-tables
   org-export-with-sub-superscripts
   org-export-with-emphasize
   org-export-with-TeX-macros
   (file-name-nondirectory buffer-file-name)
   (if (equal org-todo-interpretation 'sequence)
       (mapconcat 'identity org-todo-keywords " ")
     "TODO FEEDBACK VERIFY DONE")
   (if (equal org-todo-interpretation 'type)
       (mapconcat 'identity org-todo-keywords " ")

If there is an active region, export only the region.
The prefix ARG specifies how many levels of the outline should become
headlines.  The default is 3.  Lower levels will become bulleted lists."
  (interactive "P")
  (org-export-as-html arg 'hidden)
  (org-open-file buffer-file-name))

(defun org-export-as-html-batch ()
  "Call `org-export-as-html', may be used in batch processing as
emacs 	--batch
	--load=$HOME/lib/emacs/org.el

         (all_lines
          (org-skip-comments (org-split-string region "[\r\n]")))
         (lines (org-export-find-first-heading-line all_lines))
         (level 0) (line "") (origline "") txt todo
         (umax nil)
         (filename (concat (file-name-sans-extension buffer-file-name)
                           ".html"))
         (buffer (find-file-noselect filename))
         (levels-open (make-vector org-level-max nil))
	 (date (format-time-string "%Y/%m/%d" (current-time)))
	 (time  (format-time-string "%X" (current-time)))

(defun org-export-icalendar-this-file ()
  "Export current file as an iCalendar file.
The iCalendar file will be located in the same directory as the Org-mode
file, but with extension `.ics'."
  (interactive)
  (org-export-icalendar nil buffer-file-name))

;;;###autoload
(defun org-export-icalendar-all-agenda-files ()
  "Export all files in `org-agenda-files' to iCalendar .ics files.
Each iCalendar file will be located in the same directory as the Org-mode

	    (setq ical-buffer (org-get-agenda-file-buffer ical-file))
	    (set-buffer ical-buffer) (erase-buffer))
	  (set-buffer (org-get-agenda-file-buffer file))
	  (setq category (or org-category
			     (file-name-sans-extension
			      (file-name-nondirectory buffer-file-name))))
	  (if (symbolp category) (setq category (symbol-name category)))
	  (let ((standard-output ical-buffer))
	    (if combine
		(and (not started) (setq started t)
		     (org-start-icalendar-file org-icalendar-combined-name))

       (or (org-invisible-p)
	   (save-excursion (goto-char (max (point-min) (1- (point))))
			   (org-invisible-p)))
       (org-show-hierarchy-above)))

(defun org-get-tags-at (&optional pos)
  "Get a list of all headline targs applicable at POS.
POS defaults to point.  If tags are inherited, the list contains
the targets in the same sequence as the headlines appear, i.e.
the tags of the current headline come last."
  (interactive)
  (let (tags)
    (save-excursion
      (goto-char (or pos (point)))
      (save-match-data
	(org-back-to-heading t)
	(condition-case nil
	    (while t
	      (if (looking-at "[^\r\n]+?:\\([a-zA-Z_:]+\\):[ \t]*\\([\n\r]\\|\\'\\)")
		  (setq tags (append (org-split-string (match-string 1) ":") tags)))
	      (or org-use-tag-inheritance (error ""))
	      (org-up-heading-all 1))
	  (error nil))))
    (message "%s" tags)
    tags))

;;; Finish up

(provide 'org)

(run-hooks 'org-load-hook)

;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
;;; org.el ends here
      

68294:f915fc860323

;; Copyright (c) 2004, 2005, 2006 Free Software Foundation
;;
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
;; Version: 4.04
;;
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Changes since version 4.00:
;; ---------------------------
;; Version 4.04
;;    - Cleanup tags display in agenda.
;;    - Bug fixes.
;;
;; Version 4.03
;;    - Table alignment fixed for use with wide characters.
;;    - `C-c -' leaves cursor in current table line.
;;    - The current TAG can be incorporated into the agenda prefix.
;;      See option `org-agenda-prefix-format' for details.

(defvar calc-embedded-open-formula)
(defvar font-lock-unfontify-region-function)

;;; Customization variables

(defvar org-version "4.04"
  "The version number of the file org.el.")
(defun org-version ()
  (interactive)
  (message "Org-mode version %s" org-version))

As another example, if you don't want the time-of-day of entries in
the prefix, you could use:

  (setq org-agenda-prefix-format \"  %-11:c% s\")

See also the variables `org-agenda-remove-times-when-in-prefix' and
`org-agenda-remove-tags-when-in-prefix'."
  :type 'string
  :group 'org-agenda)

(defcustom org-timeline-prefix-format "  % s"
  "Like `org-agenda-prefix-format', but for the timeline of a single file."

do have a time.  When nil, the default time is before 0:00.  You can use this
option to decide if the schedule for today should come before or after timeless
agenda entries."
  :group 'org-agenda
  :type 'boolean)

(defcustom org-agenda-remove-tags-when-in-prefix nil
  "Non-nil means, the tags from copy of headline in agenda.
When this is the symbol `prefix', only remove tags when
`org-agenda-prefix-format' contains a `%T' specifier."
  :group 'org-agenda
  :type '(choice
	  (const :tag "Always" t)
	  (const :tag "Never" nil)
	  (const :tag "When prefix format contains %T" prefix)))

(defgroup org-structure nil
  "Options concerning structure editing in Org-mode."
  :tag "Org Structure"
  :group 'org)

	  (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>"))
    (org-set-font-lock-defaults)))

;; Tell the compiler about dynamically scoped variables,
;; and variables from other packages
(eval-when-compile
  (defvar zmacs-regions)
  (defvar original-date)
  (defvar org-transient-mark-mode)
  (defvar org-old-auto-fill-inhibit-regexp)
  (defvar orgtbl-mode-menu)
  (defvar org-html-entities)
  (defvar org-goto-start-pos)
  (defvar org-cursor-color)
  (defvar org-time-was-given)
  (defvar org-ts-what)
  (defvar mark-active)
  (defvar timecnt)
  (defvar levels-open)
  (defvar title)
  (defvar author)
  (defvar email)
  (defvar text)
  (defvar entry)
  (defvar date)
  (defvar language)
  (defvar options)
  (defvar ans1)
  (defvar ans2)
  (defvar starting-day)
  (defvar include-all-loc)
  (defvar vm-message-pointer)
  (defvar vm-folder-directory)
  (defvar wl-summary-buffer-elmo-folder)
  (defvar wl-summary-buffer-folder-name)
  (defvar gnus-group-name)
  (defvar gnus-article-current)
  (defvar w3m-current-url)
  (defvar org-selected-point)
  (defvar calendar-mode-map)
  (defvar remember-save-after-remembering)
  (defvar remember-data-file))


;;; Define the mode

(defvar org-mode-map (copy-keymap outline-mode-map)

	(this-buffer (current-buffer))
	file heading buffer level newfile-p)
    (if (string-match "\\(.*\\)::\\(.*\\)" org-archive-location)
	(progn
	  (setq file (format (match-string 1 org-archive-location)
			     (file-name-nondirectory (buffer-file-name)))
		heading (match-string 2 org-archive-location)))
      (error "Invalid `org-archive-location'"))
    (if (> (length file) 0)
	(setq newfile-p (not (file-exists-p file))
	      buffer (find-file-noselect file))

		  (list (+ (if (eq org-ts-what 'month) n 0)  (nth 4 time0)))
		  (list (+ (if (eq org-ts-what 'year) n 0)   (nth 5 time0)))
		  (nthcdr 6 time0))))
    (if (eq what 'calendar)
	(let ((cal-date
	       (save-excursion
		 (save-match-data
		   (set-buffer "*Calendar*")
		   (calendar-cursor-to-date)))))
	  (setcar (nthcdr 4 time0) (nth 0 cal-date)) ; month
	  (setcar (nthcdr 3 time0) (nth 1 cal-date)) ; day
	  (setcar (nthcdr 5 time0) (nth 2 cal-date)) ; year
	  (setcar time0 (or (car time0) 0))

If the current buffer is in Org-mode and visiting a file, you can also
first press `1' to indicate that the agenda should be temporarily (until the
next use of \\[org-agenda]) restricted to the current file."
  (interactive "P")
  (catch 'exit
    (let ((restrict-ok (and (buffer-file-name) (eq major-mode 'org-mode)))
	  (custom org-agenda-custom-commands)
	  c entry key type string)
      (put 'org-agenda-files 'org-restrict nil)
      (save-window-excursion
	(delete-other-windows)

		 (if restrict-ok ", or [1] to restrict to current file" ""))
	(setq c (read-char-exclusive))
	(message "")
	(when (equal c ?1)
	  (if restrict-ok
	      (put 'org-agenda-files 'org-restrict (list (buffer-file-name)))
	    (error "Cannot restrict agenda to current buffer"))
	  (message "Press key for agenda command%s"
		   (if restrict-ok " (restricted to current file)" ""))
	  (setq c (read-char-exclusive))
	  (message "")))

  (org-compile-prefix-format org-timeline-prefix-format)
  (let* ((dopast t)
	 (dotodo include-all)
	 (doclosed org-agenda-show-log)
	 (org-agenda-keep-modes keep-modes)
	 (entry (buffer-file-name))
	 (org-agenda-files (list (buffer-file-name)))
	 (date (calendar-current-date))
	 (win (selected-window))
	 (pos1 (point))
	 (beg (if (org-region-active-p) (region-beginning) (point-min)))
	 (end (if (org-region-active-p) (region-end) (point-max)))

	   (get-buffer-create org-agenda-buffer-name))))
    (setq buffer-read-only nil)
    (erase-buffer)
    (org-agenda-mode) (setq buffer-read-only nil)
    (set (make-local-variable 'org-agenda-type) 'todo)
    (set (make-local-variable 'last-arg) arg)
    (set (make-local-variable 'org-todo-keywords) kwds)
    (set (make-local-variable 'org-agenda-redo-command)
	 '(org-todo-list (or current-prefix-arg last-arg) t))
    (setq files (org-agenda-files)
	  rtnall nil)
    (while (setq file (pop files))
      (catch 'nextfile
	(org-check-agenda-file file)

     ;; Hook not avaiable, must use advice to make this work
     (defadvice add-to-diary-list (before org-mark-diary-entry activate)
       "Make the position visible."
       (if (and org-disable-agenda-to-diary  ;; called from org-agenda
		(stringp string)
		(buffer-file-name))
	   (setq string (org-modify-diary-entry-string string))))))

(defun org-modify-diary-entry-string (string)
  "Add text properties to string, allowing org-mode to act on it."
  (add-text-properties

   (list 'mouse-face 'highlight
	 'keymap org-agenda-keymap
	 'help-echo
	 (format
	  "mouse-2 or RET jump to diary file %s"
	  (abbreviate-file-name (buffer-file-name)))
	 'org-agenda-diary-link t
	 'org-marker (org-agenda-new-marker (point-at-bol)))
   string)
  string)

  "Cycle through the files in `org-agenda-files'.
If the current buffer visits an agenda file, find the next one in the list.
If the current buffer does not, find the first agenda file."
  (interactive)
  (let ((files (append org-agenda-files (list (car org-agenda-files))))
	(tcf (if (buffer-file-name) (file-truename (buffer-file-name))))
	file)
    (unless files (error "No agenda files"))
    (catch 'exit
      (while (setq file (pop files))
	(if (equal (file-truename file) tcf)
	    (when (car files)
	      (find-file (car files))
	      (throw 'exit t))))
      (find-file (car org-agenda-files)))))

(defun org-agenda-file-to-end (&optional file)
  "Move/add the current file to the end of the agenda fiole list.
I the file is not present in the list, it is appended ot the list.  If it is
present, it is moved there."
  (interactive)
  (org-agenda-file-to-front 'to-end file))

(defun org-agenda-file-to-front (&optional to-end file)
  "Move/add the current file to the top of the agenda file list.
If the file is not present in the list, it is added to the front.  If it is
present, it is moved there.  With optional argument TO-END, add/move to the
end of the list."
  (interactive "P")
  (let ((file-alist (mapcar (lambda (x)
			      (cons (file-truename x) x))
			    org-agenda-files))
	(ctf (file-truename (buffer-file-name)))
	x had)
    (setq x (assoc ctf file-alist) had x)

    (if (not x) (setq x (cons ctf (abbreviate-file-name (buffer-file-name)))))
    (if to-end
	(setq file-alist (append (delq x file-alist) (list x)))
      (setq file-alist (cons x (delq x file-alist))))
    (setq org-agenda-files (mapcar 'cdr file-alist))
    (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
      (customize-save-variable 'org-agenda-files org-agenda-files))
    (org-install-agenda-files-menu)
    (message "File %s to %s of agenda file list"

(defun org-remove-file (&optional file)
  "Remove current file from the list of files in variable `org-agenda-files'.
These are the files which are being checked for agenda entries.
Optional argument FILE means, use this file instead of the current."
  (interactive)
  (let* ((file (or file (buffer-file-name)))
	 (true-file (file-truename file))
	 (afile (abbreviate-file-name file))
	 (files (delq nil (mapcar
			   (lambda (x)
			     (if (equal true-file

  "Get the category applying to position POS."
  (if (not org-category-table)
      (cond
       ((null org-category)
	(setq org-category
	      (if (buffer-file-name)
		  (file-name-sans-extension
		   (file-name-nondirectory (buffer-file-name)))
		"???")))
       ((symbolp org-category) (symbol-name org-category))
       (t org-category))
    (let ((tbl org-category-table)
	  (pos (or pos (point))))

	(and (looking-at org-tr-regexp)
	     (>= (match-end 0) pos)
	     (throw 'exit t)))
      nil)))

(defun org-get-tags-at (&optional pos)
  "Get a list of all headline targs applicable at POS.
POS defaults to point.  If tags are inherited, the list contains
the targets in the same sequence as the headlines appear, i.e.
the tags of the current headline come last."
  (interactive)
  (let (tags)
    (save-excursion
      (goto-char (or pos (point)))
      (save-match-data
	(org-back-to-heading t)
	(condition-case nil
	    (while t
	      (if (looking-at "[^\r\n]+?:\\([a-zA-Z_:]+\\):[ \t]*\\([\n\r]\\|\\'\\)")
		  (setq tags (append (org-split-string (match-string 1) ":") tags)))
	      (or org-use-tag-inheritance (error ""))
	      (org-up-heading-all 1))
	  (error nil))))
    (message "%s" tags)
    tags))

(defun org-agenda-get-todos ()
  "Return the TODO information for agenda display."
  (let* ((props (list 'face nil
		      'done-face 'org-done
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp (concat "[\n\r]\\*+ *\\(" 
			 (if org-select-this-todo-keyword
			     (concat "\\<\\(" org-select-this-todo-keyword
				     "\\)\\>")
			   org-not-done-regexp)

  (let* ((props (list 'face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp (regexp-quote
		  (substring
		   (format-time-string
		    (car org-time-stamp-formats)
		    (apply 'encode-time  ; DATE bound by calendar

  "Return the loggedd TODO entries for agenda display."
  (let* ((props (list 'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp (concat
		  "\\<" org-closed-string " *\\["
		  (regexp-quote
		   (substring
		    (format-time-string

  (let* ((wdays org-deadline-warning-days)
	 (props (list 'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp org-deadline-time-regexp)
	 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
	 (d1 (calendar-absolute-from-gregorian date))  ; DATE bound by calendar
	 d2 diff pos pos1 category tags
	 ee txt head)

		      'done-face 'org-done
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp org-scheduled-time-regexp)
	 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
	 (d1 (calendar-absolute-from-gregorian date))  ; DATE bound by calendar
	 d2 diff pos pos1 category tags
	 ee txt head)

  (let* ((props (list 'face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
	 (regexp org-tr-regexp)
	 (d0 (calendar-absolute-from-gregorian date))
	 marker hdmarker ee txt d1 d2 s1 s2 timestr category tags)
    (goto-char (point-min))
    (while (re-search-forward regexp nil t)

4  the second time, if it is a range.")

(defvar org-prefix-has-time nil
  "A flag, set by `org-compile-prefix-format'.
The flag is set if the currently compiled format contains a `%t'.")
(defvar org-prefix-has-tag nil
  "A flag, set by `org-compile-prefix-format'.
The flag is set if the currently compiled format contains a `%T'.")

(defun org-format-agenda-item (extra txt &optional category tags dotime noprefix)
  "Format TXT to be inserted into the agenda buffer.
In particular, it adds the prefix and corresponding text properties.  EXTRA
must be a string and replaces the `%s' specifier in the prefix format.
CATEGORY (string, symbol or nil) may be used to overule the default

  (save-match-data
    ;; Diary entries sometimes have extra whitespace at the beginning
    (if (string-match "^ +" txt) (setq txt (replace-match "" nil nil txt)))
    (let* ((category (or category
			 org-category
			 (if (buffer-file-name)
			     (file-name-sans-extension
			      (file-name-nondirectory (buffer-file-name)))
			   "")))
	   (tag (or (nth (1- (length tags)) tags) ""))
	   time              ;; needed for the eval of the prefix format
	   (ts (if dotime (concat (if (stringp dotime) dotime "") txt)))
	   (time-of-day (and dotime (org-get-time-of-day ts)))

		     t))
	      (setq txt (replace-match "" nil nil txt))))
	;; Normalize the time(s) to 24 hour
	(if s1 (setq s1 (org-get-time-of-day s1 'string)))
	(if s2 (setq s2 (org-get-time-of-day s2 'string))))

      (when (and (or (eq org-agenda-remove-tags-when-in-prefix t)
		     (and org-agenda-remove-tags-when-in-prefix
			  org-prefix-has-tag))
		 (string-match ":[a-zA-Z_:]+:[ \t]*$" txt))
	(setq txt (replace-match "" t t txt)))

      ;; Create the final string
      (if noprefix
	  (setq rtn txt)
	;; Prepare the variables needed in the eval of the compiled format

(defun org-compile-prefix-format (format)
  "Compile the prefix format into a Lisp form that can be evaluated.
The resulting form is returned and stored in the variable
`org-prefix-format-compiled'."
  (setq org-prefix-has-time nil org-prefix-has-tag nil)
  (let ((start 0) varform vars var (s format)e c f opt)
    (while (string-match "%\\(\\?\\)?\\([-+]?[0-9.]*\\)\\([ .;,:!?=|/<>]?\\)\\([cts]\\)"
			 s start)
      (setq var (cdr (assoc (match-string 4 s)
			    '(("c" . category) ("t" . time) ("s" . extra)
			      ("T" . tag))))
	    c (or (match-string 3 s) "")
	    opt (match-beginning 1)
	    start (1+ (match-beginning 0)))
      (if (equal var 'time) (setq org-prefix-has-time t))
      (if (equal var 'tag)  (setq org-prefix-has-tag  t))
      (setq f (concat "%" (match-string 2 s) "s"))
      (if opt
	  (setq varform
		`(if (equal "" ,var)
		     ""

			     12 0)))
		   (if (match-beginning 3)
		       (string-to-number (match-string 3 s))
		     0)))
	    (t1 (concat " "
			(if (< t0 100) "0" "") (if (< t0 10)  "0" "")
			(int-to-string t0))))
       (if string (concat (substring t1 -4 -2) ":" (substring t1 -2)) t0)))))

(defun org-finalize-agenda-entries (list)
  "Sort and concatenate the agenda items."

	 (tb (or (get-text-property 1 'time-of-day b) def)))
    (cond ((< ta tb) -1)
	  ((< tb ta) +1)
	  (t nil))))

(defun org-entries-lessp (a b)
  "Predicate for sorting agenda entries."
  ;; The following variables will be used when the form is evaluated.
  (let* ((time-up (org-cmp-time a b))
	 (time-down (if time-up (- time-up) nil))

		      'undone-face nil
		      'mouse-face 'highlight
		      'keymap org-agenda-keymap
		      'help-echo
		      (format "mouse-2 or RET jump to org file %s"
			      (abbreviate-file-name (buffer-file-name)))))
         lspos
	 tags tags-list tags-alist (llast 0) rtn level category i txt
	 todo marker)

    (save-excursion

      (catch 'match
	(save-excursion
	  (skip-chars-backward
	   (concat (if org-allow-space-in-links "^" "^ ")
		   org-non-link-chars))
	  (when (or (looking-at org-link-regexp)
		    (and (re-search-forward org-link-regexp (point-at-eol) t)
			 (<= (match-beginning 0) pos)
			 (>= (match-end 0) pos)))
	    (setq type (match-string 1)
		  path (match-string 2))
	    (throw 'match t)))
	(save-excursion
	  (skip-chars-backward "^ \t\n\r")

	  (setq path (replace-match "" t t path)))
      
      (cond
       
       ((string= type "tags")
	(org-tags-view in-emacs path))
       ((string= type "camel")
	(org-link-search
	 path
	 (cond ((equal in-emacs '(4)) 'occur)
	       ((equal in-emacs '(16)) 'org-occur)

search for.  If LINE or SEARCH is given, the file will always be
openen in emacs.
If the file does not exist, an error is thrown."
  (setq in-emacs (or in-emacs line search))
  (let* ((file (if (equal path "") 
		   (buffer-file-name)
		 (convert-standard-filename (org-expand-file-name path))))
	 (dfile (downcase file))
	 ext cmd apps)
    (if (and (not (file-exists-p file))
	     (not org-open-non-existing-files))

      (setq cmd (format cmd (concat "\"" file "\"")))
      (save-window-excursion
	(shell-command (concat cmd " &"))))
     ((or (stringp cmd)
	  (eq cmd 'emacs))
      (unless (equal (file-truename file) (file-truename (buffer-file-name)))
	(funcall (cdr (assq 'file org-link-frame-setup)) file))
      (if line (goto-line line)
	(if search (org-link-search search))))
     ((consp cmd)
      (eval cmd))

      (and (eq major-mode 'vm-presentation-mode) (vm-summarize))
      (vm-follow-summary-cursor)
      (save-excursion
       (vm-select-folder-buffer)
       (let* ((message (car vm-message-pointer))
	      (folder (buffer-file-name))
	      (subject (vm-su-subject message))
	      (author (vm-su-full-name message))
	      (message-id (vm-su-message-id message)))
	 (setq folder (abbreviate-file-name folder))
	 (if (string-match (concat "^" (regexp-quote vm-folder-directory))

     ((eq major-mode 'rmail-mode)
      (save-excursion
	(save-restriction
	  (rmail-narrow-to-non-pruned-header)
	  (let ((folder (buffer-file-name))
		(message-id (mail-fetch-field "message-id"))
		(author (mail-fetch-field "from"))
		(subject (mail-fetch-field "subject")))
	    (setq cpltxt (concat author  " on: " subject))
	    (setq link (concat cpltxt "\n  "

	    link (org-make-link cpltxt)))

     ((eq major-mode 'org-mode)
      ;; Just link to current headline
      (setq cpltxt (concat "file:"
			   (abbreviate-file-name (buffer-file-name))))
      ;; Add a context search string
      (when (org-xor org-context-in-file-links arg)
	(if (save-excursion
	      (skip-chars-backward "a-zA-Z<")
	      (looking-at (concat "<<\\(" org-camel-regexp "\\)>>")))

			   (buffer-substring (region-beginning) (region-end)))
			  (t (buffer-substring (point-at-bol) (point-at-eol))))
			 )))))
      (setq link (org-make-link cpltxt)))

     ((buffer-file-name)
      ;; Just link to this file here.
      (setq cpltxt (concat "file:"
			   (abbreviate-file-name (buffer-file-name))))
      ;; Add a context string
      (when (org-xor org-context-in-file-links arg)
	(setq cpltxt
	      (concat cpltxt "::" 
		      (org-make-org-heading-camel

      (when (string-match "<\\<file:\\(.+?\\)::\\([^>]+\\)>" link)
	(let* ((path (match-string 1 link))
	       (case-fold-search nil)
	       (search (match-string 2 link)))
	    (when (save-match-data
		    (equal (file-truename (buffer-file-name))
			   (file-truename path)))
	      (if (save-match-data
		    (string-match (concat "^" org-camel-regexp "$") search))
		  (setq link (replace-match search t t link)
			matched t)

   ((not (listp org-reverse-note-order)) nil)
   (t (catch 'exit
	(let  ((all org-reverse-note-order)
	       entry)
	  (while (setq entry (pop all))
	    (if (string-match (car entry) (buffer-file-name))
		(throw 'exit (cdr entry))))
	  nil)))))

;;; Tables

		 (org-skip-comments (org-split-string region "[\r\n]"))))
	 (org-startup-with-deadline-check nil)
	 (level 0) line txt
	 (umax nil)
	 (case-fold-search nil)
	 (filename (concat (file-name-sans-extension (buffer-file-name))
			   ".txt"))
	 (buffer (find-file-noselect filename))
	 (levels-open (make-vector org-level-max nil))
	 (date  (format-time-string "%Y/%m/%d" (current-time)))
	 (time  (format-time-string "%X" (current-time)))

(defun org-export-copy-visible ()
  "Copy the visible part of the buffer to another buffer, for printing.
Also removes the first line of the buffer if it specifies a mode,
and all options lines."
  (interactive)
  (let* ((filename (concat (file-name-sans-extension (buffer-file-name))
			   ".txt"))
	 (buffer (find-file-noselect filename))
	 (ore (concat
	       (org-make-options-regexp
		'("CATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO"

   org-export-with-fixed-width
   org-export-with-tables
   org-export-with-sub-superscripts
   org-export-with-emphasize
   org-export-with-TeX-macros
   (file-name-nondirectory (buffer-file-name))
   (if (equal org-todo-interpretation 'sequence)
       (mapconcat 'identity org-todo-keywords " ")
     "TODO FEEDBACK VERIFY DONE")
   (if (equal org-todo-interpretation 'type)
       (mapconcat 'identity org-todo-keywords " ")

If there is an active region, export only the region.
The prefix ARG specifies how many levels of the outline should become
headlines.  The default is 3.  Lower levels will become bulleted lists."
  (interactive "P")
  (org-export-as-html arg 'hidden)
  (org-open-file (buffer-file-name)))

(defun org-export-as-html-batch ()
  "Call `org-export-as-html', may be used in batch processing as
emacs 	--batch
	--load=$HOME/lib/emacs/org.el

         (all_lines
          (org-skip-comments (org-split-string region "[\r\n]")))
         (lines (org-export-find-first-heading-line all_lines))
         (level 0) (line "") (origline "") txt todo
         (umax nil)
         (filename (concat (file-name-sans-extension (buffer-file-name))
                           ".html"))
         (buffer (find-file-noselect filename))
         (levels-open (make-vector org-level-max nil))
	 (date (format-time-string "%Y/%m/%d" (current-time)))
	 (time  (format-time-string "%X" (current-time)))

(defun org-export-icalendar-this-file ()
  "Export current file as an iCalendar file.
The iCalendar file will be located in the same directory as the Org-mode
file, but with extension `.ics'."
  (interactive)
  (org-export-icalendar nil (buffer-file-name)))

;;;###autoload
(defun org-export-icalendar-all-agenda-files ()
  "Export all files in `org-agenda-files' to iCalendar .ics files.
Each iCalendar file will be located in the same directory as the Org-mode

	    (setq ical-buffer (org-get-agenda-file-buffer ical-file))
	    (set-buffer ical-buffer) (erase-buffer))
	  (set-buffer (org-get-agenda-file-buffer file))
	  (setq category (or org-category
			     (file-name-sans-extension
			      (file-name-nondirectory (buffer-file-name)))))
	  (if (symbolp category) (setq category (symbol-name category)))
	  (let ((standard-output ical-buffer))
	    (if combine
		(and (not started) (setq started t)
		     (org-start-icalendar-file org-icalendar-combined-name))

       (or (org-invisible-p)
	   (save-excursion (goto-char (max (point-min) (1- (point))))
			   (org-invisible-p)))
       (org-show-hierarchy-above)))

;;; Finish up

(provide 'org)

(run-hooks 'org-load-hook)

;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
;;; org.el ends here