comparison lisp/textmodes/org.el @ 70953:971aad463b69

(org-next-item, org-previous-item): Emit more compact error message. (org-tags-view): Refresh category table in each file. (org-table-justify-field-maybe): Removed superfluous arguments to `format'. (org-export-as-html): Insert "<p>" before postamble. (org-paste-subtree, org-kill-is-subtree-p): Check for empty kill ring.

70952:a887dafc4dd1

;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;;
;; 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.33
;;
;; 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

;;; Commentary:
;;
;; Org-mode is a mode for keeping notes, maintaining ToDo lists, and doing
;; project planning with a fast and effective plain-text system.
;;
;; Org-mode develops organizational tasks around a NOTES file that contains
;; information about projects as plain text.  Org-mode is implemented on top
;; of outline-mode - ideal to keep the content of large files well structured.
;; It supports ToDo items, deadlines and time stamps, which can be extracted
;; to create a daily/weekly agenda that also integrates the diary of the Emacs
;; calendar.  Tables are easily created with a built-in table editor.  Plain
;; text URL-like links connect to websites, emails (VM, RMAIL, WANDERLUST),
;; Usenet messages (Gnus), BBDB entries, and any files related to the
;; projects.  For printing and sharing of notes, an Org-mode file (or a part
;; of it) can be exported as a structured ASCII file, or as HTML.
;;
;; Installation
;; ------------
;; If Org-mode is part of the Emacs distribution or an XEmacs package, you
;; only need to copy the following lines to your .emacs file.  The last two

;; action:  Byte-compile org.el and org-publish.el and put them together with
;; org-install.el on your load path.  Then also add to your .emacs file:
;;
;;    (require 'org-install)
;;
;; This setup will put all files with extension ".org" into Org-mode.  As
;; an alternative, make the first line of a file look like this:
;;
;;     MY PROJECTS    -*- mode: org; -*-
;;
;; which will select Org-mode for this buffer no matter what the file's
;; name is.

;; distribution also contains a PDF version of it.  At the homepage of
;; Org-mode, you can read the same text online as HTML.  There is also an
;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Changes since version 4.10:
;; ---------------------------
;; Version 4.33
;;    - New commands to move through plain lists: S-up and S-down.
;;    - Bug fixes and documentation update.
;;
;; Version 4.32

;;    - Support for customizable file search in file links.
;;    - BibTeX database links as first application of the above.
;;    - New option `org-agenda-todo-list-sublevels' to turn off listing TODO
;;      entries that are sublevels of another TODO entry.
;;
;; Version 4.26
;;    - Bug fixes.
;;
;; Version 4.25
;;    - Revision of the font-lock faces section, with better tty support.
;;    - TODO keywords in Agenda buffer are fontified.
;;    - Export converts links between .org files to links between .html files.
;;    - Better support for bold/italic/underline emphasis.
;;
;; Version 4.24
;;    - Bug fixes.
;;
;; Version 4.23
;;    - Bug fixes.
;;
;; Version 4.22
;;    - Bug fixes.
;;    - In agenda buffer, mouse-1 no longer follows link.
;;      See `org-agenda-mouse-1-follows-link' and `org-mouse-1-follows-link'.
;;
;; Version 4.20
;;    - Links use now the [[link][description]] format by default.
;;      When inserting links, the user is prompted for a description.
;;    - If a link has a description, only the description is displayed
;;      the link part is hidden.  Use C-c C-l to edit the link part.
;;    - TAGS are now bold, but in the same color as the headline.
;;    - The width of a table column can be limited by using a field "<N>".
;;    - New structure for the customization tree.
;;    - Bug fixes.
;;
;; Version 4.13
;;    - The list of agenda files can be maintainted in an external file.
;;    - Bug fixes.
;;
;; Version 4.12
;;    - Templates for remember buffer.  Note that the remember setup changes.
;;      To set up templates, see `org-remember-templates'.
;;    - The time in new time stamps can be rounded, see new option
;;      `org-time-stamp-rounding-minutes'.
;;    - Bug fixes (there are *always* more bugs).
;;
;;; Code:

(eval-when-compile 
  (require 'cl)
  (require 'calendar))
(require 'outline)
(require 'time-date)
(require 'easymenu)

(defvar calc-embedded-close-formula)  ; defined by the calc package
(defvar calc-embedded-open-formula)   ; defined by the calc package
(defvar font-lock-unfontify-region-function) ; defined by font-lock.el

;;; Customization variables

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

	  (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
	  org-keyword-time-regexp
	  (concat "\\<\\(" org-scheduled-string
		  "\\|" org-deadline-string
		  "\\|" org-closed-string "\\)"
		  " *[[<]\\([^]>]+\\)[]>]")   ;; FIXME: is this correct?
	  org-maybe-keyword-time-regexp
	  (concat "\\(\\<\\(" org-scheduled-string
		  "\\|" org-deadline-string
		  "\\|" org-closed-string "\\)\\)?"
		  " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^]\r\n>]*?[]>]\\)"))   ;; FIXME: is this correct?

    (org-set-font-lock-defaults)))

;; Tell the compiler about dynamically scoped variables,
;; and variables from other packages
(defvar zmacs-regions) ; XEmacs regions
(defvar original-date) ; dynamically scoped in calendar
(defvar org-old-auto-fill-inhibit-regexp) ; local variable used by `orgtbl-mode'
(defvar orgtbl-mode-menu) ; defined when orgtbl mode get initialized
(defvar org-html-entities) ; defined later in this file

  (interactive "P")
  (unless (org-kill-is-subtree-p tree)
    (error
     (substitute-command-keys
      "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
  (let* ((txt (or tree (current-kill 0)))
	 (^re (concat "^\\(" outline-regexp "\\)"))
	 (re  (concat "\\(" outline-regexp "\\)"))
	 (^re_ (concat "\\(" outline-regexp "\\)[  \t]*"))

	 (old-level (if (string-match ^re txt)

	  (org-map-region func (point-min) (point-max))
	  (setq shift (+ delta shift)))
	(goto-char (point-min))
	(message "Pasted at level %d, with shift by %d levels"
		 new-level shift1)))
    (if (and (eq org-subtree-clip (current-kill 0))
	     org-subtree-clip-folded)
	;; The tree was folded before it was killed/copied
	(hide-subtree))))

(defun org-kill-is-subtree-p (&optional txt)

Returns nil if kill does not start with a headline, or if the first
headline level is not the largest headline level in the tree.
So this will actually accept several entries of equal levels as well,
which is OK for `org-paste-subtree'.
If optional TXT is given, check this string instead of the current kill."
  (let* ((kill (or txt (current-kill 0) ""))
	 (start-level (and (string-match (concat "\\`" outline-regexp) kill)
			   (- (match-end 0) (match-beginning 0))))
	 (re (concat "^" outline-regexp))
	 (start 1))
    (if (not start-level)
	nil  ;; does not even start with a heading

    (org-end-of-item)
    (setq end (point))
    (setq ind1 (org-get-indentation))
    (unless (and (org-at-item-p) (= ind ind1))
      (goto-char pos)
      (error "This is already the last item in the list"))))  

(defun org-previous-item ()
  "Move to the beginning of the previous item in the current plain list.
Error if not at a plain list, or if this is the last item in the list."
  (interactive)

	  (if (<= (setq ind1 (org-get-indentation)) ind)
	      (throw 'exit t)))))
    (condition-case nil
	(org-beginning-of-item)
      (error (goto-char pos)
	     (error "This is already the first item in the list")))))

(defun org-move-item-down ()
  "Move the plain list item at point down, i.e. swap with following item.
Subitems (items with larger indentation) are considered part of the item,
so this really moves item trees."

                 1)))
      (org-add-props txt props
	'org-marker marker 'org-hd-marker marker
	'priority priority 'category category)
      (push txt ee)
      (if org-agenda-todo-list-sublevels  ; FIXME???? Change needed?
	  (goto-char (match-end 1))
	(org-end-of-subtree 'invisible))))
    (nreverse ee)))

(defconst org-agenda-no-heading-message

	      (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_@0-9:]+:[ \t]*$" txt))
;	(setq txt (replace-match "" t t txt)))

      ;; FIXME!!!
      (when (string-match "\\([ \t]+\\)\\(:[a-zA-Z_@0-9:]+:\\)[ \t]*$" txt)
	;; Tags are in the string
	(if (or (eq org-agenda-remove-tags-when-in-prefix t)
		(and org-agenda-remove-tags-when-in-prefix
		     org-prefix-has-tag))

		       (format "ORG-AGENDA-ERROR: No such org-file %s" file))
		  rtnall (append rtnall rtn))
	  (with-current-buffer buffer
	    (unless (eq major-mode 'org-mode)
	      (error "Agenda file %s is not in `org-mode'" file))
	    (save-excursion
	      (save-restriction
		(if org-respect-restriction
		    (if (org-region-active-p)
			;; Respect a region to restrict search

		  (org-search-not-link re2a nil t)
		  (org-search-not-link re3 nil t)
		  (org-search-not-link re4 nil t)
		  (org-search-not-link re5 nil t)
		  )
	      (goto-char (match-beginning 1))  ;; Fixme: does every re have group 1?
	    (goto-char pos)
	    (error "No match")))))
     (t
      ;; Normal string-search
      (goto-char (point-min))

	      (setq f (format (if num " %%%ds %s" " %%-%ds %s")
			      l (if e "|" (setq org-table-may-need-update t) ""))
		    n (format f s))
	      (if new
		  (if (<= (length new) l)      ;; FIXME: length -> str-width?
		      (setq n (format f new t t))  ;; FIXME: t t?
		    (setq n (concat new "|") org-table-may-need-update t)))
	      (or (equal n o)
		  (let (org-table-may-need-update)
		    (replace-match n))))
	  (setq org-table-may-need-update t))

	(setq form (replace-match
		     (save-match-data
		       (org-table-get-vertical-vector (match-string 0 form)
						      nil n0))
		     t t form)))
;;      (setq ev (calc-eval (cons form modes)
;; FIXME  (if org-table-formula-numbers-only 'num)))

      (if lispp
	  (setq ev (eval (eval (read form)))
		ev (if (numberp ev) (number-to-string ev) ev))
	(setq ev (calc-eval (cons form modes)
			    (if org-table-formula-numbers-only 'num))))

	  (setq line (org-html-handle-time-stamps line))

	  ;; replace "&" by "&amp;", "<" and ">" by "&lt;" and "&gt;"
	  ;; handle @<..> HTML tags (replace "@&gt;..&lt;" by "<..>")
	  ;; Also handle sub_superscripts and checkboxes FIXME
	  (setq line (org-html-expand line))

	  ;; Format the links
	  (setq start 0)
	  (while (string-match org-bracket-link-analytic-regexp line start)

      (org-html-level-start 1 nil umax
			    (and org-export-with-toc (<= level umax))
			    head-count)

      (when (plist-get opt-plist :auto-postamble)
	(if author    (insert (concat (nth 1 lang-words) ": " author "\n")))
	(if email	  (insert (concat "<a href=\"mailto:" email "\">&lt;"
					  email "&gt;</a>\n")))
	(if (or author email) (insert "<br>\n"))
	(if (and date time) (insert (concat (nth 2 lang-words) ": "

   "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
   "\\|"
   "\\(" (org-create-multibrace-regexp "(" ")" org-match-sexp-depth) "\\)"
   "\\|"
   "\\(\\(?:\\*\\|[-+]?[^-+*!@#$%^_ \t\r\n,:\"?<>~;./{}=()]+\\)\\)\\)")
;;;;;;;;;;;;;;;;;;;;;;;;;^ FIXME
  "The regular expression matching a sub- or superscript.")

(defun org-export-html-convert-sub-super (string)
  "Convert sub- and superscripts in STRING to HTML."
  (let (key c)

	      (aset levels-open (1- level) t)
	      (insert "<ul><li>" title "<p>\n")))
	(if org-export-with-section-numbers
	    (setq title (concat (org-section-number level) " " title)))
	(setq level (+ level 1))
	;; FIXME: here we need to handle the tags, somehow.
	(when (string-match "\\(:[a-zA-Z0-9_@:]+:\\)[ \t]*$" title)
	  (setq title (replace-match 
		       (if org-export-with-tags
			   (save-match-data
			     (concat

(provide 'org)

(run-hooks 'org-load-hook)


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

70953:971aad463b69

;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;;
;; 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.34
;;
;; 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

;;; Commentary:
;;
;; Org-mode is a mode for keeping notes, maintaining ToDo lists, and doing
;; project planning with a fast and effective plain-text system.
;;
;; Org-mode develops organizational tasks around NOTES files that contain
;; information about projects as plain text.  Org-mode is implemented on
;; top of outline-mode, which makes it possible to keep the content of
;; large files well structured.  Visibility cycling and structure editing
;; help to work with the tree.  Tables are easily created with a built-in
;; table editor.  Org-mode supports ToDo items, deadlines, time stamps,
;; and scheduling.  It dynamically compiles entries into an agenda that
;; utilizes and smoothly integrates much of the Emacs calendar and diary.
;; Plain text URL-like links connect to websites, emails, Usenet
;; messages, BBDB entries, and any files related to the projects.  For
;; printing and sharing of notes, an Org-mode file can be exported as a
;; structured ASCII file, as HTML, or (todo and agenda items only) as an
;; iCalendar file.  It can also serve as a publishing tool for a set of
;; linked webpages.
;;
;;
;; Installation
;; ------------
;; If Org-mode is part of the Emacs distribution or an XEmacs package, you
;; only need to copy the following lines to your .emacs file.  The last two

;; action:  Byte-compile org.el and org-publish.el and put them together with
;; org-install.el on your load path.  Then also add to your .emacs file:
;;
;;    (require 'org-install)
;;
;;
;; Activation
;; ----------
;; The setup above will put all files with extension ".org" into Org-mode.
;; As an alternative, make the first line of a file look like this:
;;
;;     MY PROJECTS    -*- mode: org; -*-
;;
;; which will select Org-mode for this buffer no matter what the file's
;; name is.

;; distribution also contains a PDF version of it.  At the homepage of
;; Org-mode, you can read the same text online as HTML.  There is also an
;; excellent reference card made by Philip Rooke.  This card can be found
;; in the etc/ directory of Emacs 22.
;;
;; Recent changes
;; --------------
;; Version 4.34
;;    - Bug fixes.
;;
;; Version 4.33
;;    - New commands to move through plain lists: S-up and S-down.
;;    - Bug fixes and documentation update.
;;
;; Version 4.32

;;    - Support for customizable file search in file links.
;;    - BibTeX database links as first application of the above.
;;    - New option `org-agenda-todo-list-sublevels' to turn off listing TODO
;;      entries that are sublevels of another TODO entry.
;;
;;
;;; Code:

(eval-when-compile 
  (require 'cl)
  (require 'calendar))
(require 'outline)
(require 'time-date)
(require 'easymenu)

;;; Customization variables

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

	  (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
	  org-keyword-time-regexp
	  (concat "\\<\\(" org-scheduled-string
		  "\\|" org-deadline-string
		  "\\|" org-closed-string "\\)"
		  " *[[<]\\([^]>]+\\)[]>]")
	  org-maybe-keyword-time-regexp
	  (concat "\\(\\<\\(" org-scheduled-string
		  "\\|" org-deadline-string
		  "\\|" org-closed-string "\\)\\)?"
		  " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^]\r\n>]*?[]>]\\)"))

    (org-set-font-lock-defaults)))

;; Tell the compiler about dynamically scoped variables,
;; and variables from other packages
(defvar calc-embedded-close-formula)  ; defined by the calc package
(defvar calc-embedded-open-formula)   ; defined by the calc package
(defvar font-lock-unfontify-region-function) ; defined by font-lock.el
(defvar zmacs-regions) ; XEmacs regions
(defvar original-date) ; dynamically scoped in calendar
(defvar org-old-auto-fill-inhibit-regexp) ; local variable used by `orgtbl-mode'
(defvar orgtbl-mode-menu) ; defined when orgtbl mode get initialized
(defvar org-html-entities) ; defined later in this file

  (interactive "P")
  (unless (org-kill-is-subtree-p tree)
    (error
     (substitute-command-keys
      "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
  (let* ((txt (or tree (and kill-ring (current-kill 0))))
	 (^re (concat "^\\(" outline-regexp "\\)"))
	 (re  (concat "\\(" outline-regexp "\\)"))
	 (^re_ (concat "\\(" outline-regexp "\\)[  \t]*"))

	 (old-level (if (string-match ^re txt)

	  (org-map-region func (point-min) (point-max))
	  (setq shift (+ delta shift)))
	(goto-char (point-min))
	(message "Pasted at level %d, with shift by %d levels"
		 new-level shift1)))
    (if (and kill-ring
	     (eq org-subtree-clip (current-kill 0))
	     org-subtree-clip-folded)
	;; The tree was folded before it was killed/copied
	(hide-subtree))))

(defun org-kill-is-subtree-p (&optional txt)

Returns nil if kill does not start with a headline, or if the first
headline level is not the largest headline level in the tree.
So this will actually accept several entries of equal levels as well,
which is OK for `org-paste-subtree'.
If optional TXT is given, check this string instead of the current kill."
  (let* ((kill (or txt (and kill-ring (current-kill 0)) ""))
	 (start-level (and kill
			   (string-match (concat "\\`" outline-regexp) kill)
			   (- (match-end 0) (match-beginning 0))))
	 (re (concat "^" outline-regexp))
	 (start 1))
    (if (not start-level)
	nil  ;; does not even start with a heading

    (org-end-of-item)
    (setq end (point))
    (setq ind1 (org-get-indentation))
    (unless (and (org-at-item-p) (= ind ind1))
      (goto-char pos)
      (error "On last item"))))  

(defun org-previous-item ()
  "Move to the beginning of the previous item in the current plain list.
Error if not at a plain list, or if this is the last item in the list."
  (interactive)

	  (if (<= (setq ind1 (org-get-indentation)) ind)
	      (throw 'exit t)))))
    (condition-case nil
	(org-beginning-of-item)
      (error (goto-char pos)
	     (error "On first item")))))

(defun org-move-item-down ()
  "Move the plain list item at point down, i.e. swap with following item.
Subitems (items with larger indentation) are considered part of the item,
so this really moves item trees."

                 1)))
      (org-add-props txt props
	'org-marker marker 'org-hd-marker marker
	'priority priority 'category category)
      (push txt ee)
      (if org-agenda-todo-list-sublevels
	  (goto-char (match-end 1))
	(org-end-of-subtree 'invisible))))
    (nreverse ee)))

(defconst org-agenda-no-heading-message

	      (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 (string-match "\\([ \t]+\\)\\(:[a-zA-Z_@0-9:]+:\\)[ \t]*$" txt)
	;; Tags are in the string
	(if (or (eq org-agenda-remove-tags-when-in-prefix t)
		(and org-agenda-remove-tags-when-in-prefix
		     org-prefix-has-tag))

		       (format "ORG-AGENDA-ERROR: No such org-file %s" file))
		  rtnall (append rtnall rtn))
	  (with-current-buffer buffer
	    (unless (eq major-mode 'org-mode)
	      (error "Agenda file %s is not in `org-mode'" file))
	    (setq org-category-table (org-get-category-table))
	    (save-excursion
	      (save-restriction
		(if org-respect-restriction
		    (if (org-region-active-p)
			;; Respect a region to restrict search

		  (org-search-not-link re2a nil t)
		  (org-search-not-link re3 nil t)
		  (org-search-not-link re4 nil t)
		  (org-search-not-link re5 nil t)
		  )
	      (goto-char (match-beginning 1))
	    (goto-char pos)
	    (error "No match")))))
     (t
      ;; Normal string-search
      (goto-char (point-min))

	      (setq f (format (if num " %%%ds %s" " %%-%ds %s")
			      l (if e "|" (setq org-table-may-need-update t) ""))
		    n (format f s))
	      (if new
		  (if (<= (length new) l)      ;; FIXME: length -> str-width?
		      (setq n (format f new))
		    (setq n (concat new "|") org-table-may-need-update t)))
	      (or (equal n o)
		  (let (org-table-may-need-update)
		    (replace-match n))))
	  (setq org-table-may-need-update t))

	(setq form (replace-match
		     (save-match-data
		       (org-table-get-vertical-vector (match-string 0 form)
						      nil n0))
		     t t form)))
      (if lispp
	  (setq ev (eval (eval (read form)))
		ev (if (numberp ev) (number-to-string ev) ev))
	(setq ev (calc-eval (cons form modes)
			    (if org-table-formula-numbers-only 'num))))

	  (setq line (org-html-handle-time-stamps line))

	  ;; replace "&" by "&amp;", "<" and ">" by "&lt;" and "&gt;"
	  ;; handle @<..> HTML tags (replace "@&gt;..&lt;" by "<..>")
	  ;; Also handle sub_superscripts and checkboxes
	  ;; FIXME: is there no better place for checkboxes
	  (setq line (org-html-expand line))

	  ;; Format the links
	  (setq start 0)
	  (while (string-match org-bracket-link-analytic-regexp line start)

      (org-html-level-start 1 nil umax
			    (and org-export-with-toc (<= level umax))
			    head-count)

      (when (plist-get opt-plist :auto-postamble)
	(insert "<p>")
	(if author    (insert (concat (nth 1 lang-words) ": " author "\n")))
	(if email	  (insert (concat "<a href=\"mailto:" email "\">&lt;"
					  email "&gt;</a>\n")))
	(if (or author email) (insert "<br>\n"))
	(if (and date time) (insert (concat (nth 2 lang-words) ": "

   "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
   "\\|"
   "\\(" (org-create-multibrace-regexp "(" ")" org-match-sexp-depth) "\\)"
   "\\|"
   "\\(\\(?:\\*\\|[-+]?[^-+*!@#$%^_ \t\r\n,:\"?<>~;./{}=()]+\\)\\)\\)")
  "The regular expression matching a sub- or superscript.")

(defun org-export-html-convert-sub-super (string)
  "Convert sub- and superscripts in STRING to HTML."
  (let (key c)

	      (aset levels-open (1- level) t)
	      (insert "<ul><li>" title "<p>\n")))
	(if org-export-with-section-numbers
	    (setq title (concat (org-section-number level) " " title)))
	(setq level (+ level 1))
	(when (string-match "\\(:[a-zA-Z0-9_@:]+:\\)[ \t]*$" title)
	  (setq title (replace-match 
		       (if org-export-with-tags
			   (save-match-data
			     (concat

(provide 'org)

(run-hooks 'org-load-hook)

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