Re: Org-mode version 4.75

From: Bastien <bzg@altern.org>
To: emacs-orgmode@gnu.org
Subject: Re: Org-mode version 4.75
Date: Sat, 26 May 2007 14:58:39 +0200	[thread overview]
Message-ID: <87zm3rpwqo.fsf@bzg.ath.cx> (raw)
In-Reply-To: <516c72d11fbb8f913e73264d69db19e9@science.uva.nl> (Carsten Dominik's message of "Fri\, 25 May 2007 17\:43\:36 +0200")

[-- Attachment #1: Type: text/plain, Size: 1687 bytes --]

Carsten Dominik <dominik@science.uva.nl> writes:

> I have released org-mode version 4.75 at
> http://www.astro.uva.nl/~dominik/Tools/org
> Enjoy!

I did!  Thanks very much.

>   - When inserting a link with `C-c C-l', completion will now fill in
>   all valid link prefixes, like http or ftp, but also link
>   abbreviation prefixes.  This is based on an idea by Bastien.

This is great stuff! A little concern though: i got used to access the
stored links by hitting the tab key after org-insert-link.  Now the tab
key does the completion for prefixes (including abbreviated links), but
i had to explore a bit to guess that stored links where now accessible
through the history (with the <up> and <down> key).  It's okay for me
like this, but maybe some people would prefer the previous behavior,
i.e. accessing stored links by completion with the tab key. Or maybe
a wild mix of both?

>   - Highest, lowest, and default priority can be set on a per-file
>   basis with #+PRIORITIES: H L D For example, to use priorities from 1
>   to 9, you could use
>
>       #+PRIORITIES: 1 9 9

I can't get it work.  I tried to insert "#+PRIORITIES: A C B" at the end
of a minimal preambule, then to C-c C-c to refresh the buffer; here is a
backtrace in attachment.

>   - iCalendar export now honors (i.e. skips) subtrees marked as
>     ARCHIVE, COMMENT, or QUOTE.

Just a thought: maybe that would be more consistent to put "ARCHIVE" as
a special keyword (*before* the headline, like QUOTE or COMMENT) and not
as a tag?

>   - There is a new command to add or change the emphasis (like bold or
>   italic) of a piece of text.

The interface is really very nice, thanks for implementing this!

[-- Attachment #2: org-priority_backtrace.txt --]
[-- Type: text/plain, Size: 12644 bytes --]

Debugger entered--Lisp error: (wrong-type-argument arrayp 65)
  aref(65 0)
  (org-set-local (quote org-highest-priority) (aref (nth 0 prio) 0))
  (progn (if (< ... 3) (setq prio ...)) (setq prio (mapcar ... prio)) (org-set-local (quote org-highest-priority) (aref ... 0)) (org-set-local (quote org-lowest-priority) (aref ... 0)) (org-set-local (quote org-default-priority) (aref ... 0)))
  (if prio (progn (if ... ...) (setq prio ...) (org-set-local ... ...) (org-set-local ... ...) (org-set-local ... ...)))
  (when prio (if (< ... 3) (setq prio ...)) (setq prio (mapcar ... prio)) (org-set-local (quote org-highest-priority) (aref ... 0)) (org-set-local (quote org-lowest-priority) (aref ... 0)) (org-set-local (quote org-default-priority) (aref ... 0)))
  (let ((re ...) (splitre "[ 	]+") kwds key value cat arch tags links hw dws tail sep kws1 prio) (save-excursion (save-restriction ... ... ...)) (and cat (org-set-local ... cat)) (when prio (if ... ...) (setq prio ...) (org-set-local ... ...) (org-set-local ... ...) (org-set-local ... ...)) (and arch (org-set-local ... arch)) (and links (setq org-link-abbrev-alist-local ...)) (unless kwds (setq kwds ...) (if ... ...) (setq kwds ...)) (setq kwds (nreverse kwds)) (let (inter kws) (while ... ... ... ... ... ... ...) (setq org-todo-sets ... org-todo-kwd-alist ...)) (when tags (let ... ... ... ...)))
  (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (let (... ... kwds key value cat arch tags links hw dws tail sep kws1 prio) (save-excursion ...) (and cat ...) (when prio ... ... ... ... ...) (and arch ...) (and links ...) (unless kwds ... ... ...) (setq kwds ...) (let ... ... ...) (when tags ...)) (if (not org-done-keywords) (setq org-done-keywords ...)) (setq org-ds-keyword-length (+ 2 ...) org-not-done-keywords (org-delete-all org-done-keywords ...) org-todo-regexp (concat "\\<\\(" ... "\\)\\>") org-not-done-regexp (concat "\\<\\(" ... "\\)\\>") org-todo-line-regexp (concat "^\\(\\*+\\)[ 	]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*\\)") org-nl-done-regexp (concat "[\r\n]\\*+[ 	]+" "\\(?:" ... "\\)" "\\>") org-todo-line-tags-regexp (concat "^\\(\\*+\\)[ 	]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*?\\([ 	]:[a-zA-Z0-9:_@]+:[ 	]*\\)?$\\)") org-looking-at-done-regexp (concat "^" "\\(?:" ... "\\)" "\\>") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-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 "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\r\n>]*?[]>]\\|<%%([^\r\n>]*>\\)") org-planning-or-clock-line-re (concat "\\(?:^[ 	]*\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lock-defaults))
  (if (org-mode-p) (progn (org-set-local ... nil) (org-set-local ... nil) (org-set-local ... nil) (org-set-local ... nil) (org-set-local ... nil) (let ... ... ... ... ... ... ... ... ... ...) (if ... ...) (setq org-ds-keyword-length ... org-not-done-keywords ... org-todo-regexp ... org-not-done-regexp ... org-todo-line-regexp ... org-nl-done-regexp ... org-todo-line-tags-regexp ... org-looking-at-done-regexp ... org-deadline-regexp ... org-deadline-time-regexp ... org-deadline-line-regexp ... org-scheduled-regexp ... org-scheduled-time-regexp ... org-closed-time-regexp ... org-keyword-time-regexp ... org-keyword-time-not-clock-regexp ... org-maybe-keyword-time-regexp ... org-planning-or-clock-line-re ...) (org-set-font-lock-defaults)))
  (when (org-mode-p) (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (let (... ... kwds key value cat arch tags links hw dws tail sep kws1 prio) (save-excursion ...) (and cat ...) (when prio ... ... ... ... ...) (and arch ...) (and links ...) (unless kwds ... ... ...) (setq kwds ...) (let ... ... ...) (when tags ...)) (if (not org-done-keywords) (setq org-done-keywords ...)) (setq org-ds-keyword-length (+ 2 ...) org-not-done-keywords (org-delete-all org-done-keywords ...) org-todo-regexp (concat "\\<\\(" ... "\\)\\>") org-not-done-regexp (concat "\\<\\(" ... "\\)\\>") org-todo-line-regexp (concat "^\\(\\*+\\)[ 	]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*\\)") org-nl-done-regexp (concat "[\r\n]\\*+[ 	]+" "\\(?:" ... "\\)" "\\>") org-todo-line-tags-regexp (concat "^\\(\\*+\\)[ 	]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*?\\([ 	]:[a-zA-Z0-9:_@]+:[ 	]*\\)?$\\)") org-looking-at-done-regexp (concat "^" "\\(?:" ... "\\)" "\\>") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-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 "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\r\n>]*?[]>]\\|<%%([^\r\n>]*>\\)") org-planning-or-clock-line-re (concat "\\(?:^[ 	]*\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lock-defaults))
  org-set-regexps-and-options()
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if ... ...) (unless ... ...) (let ... ...)) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep ...) (when ... ... ... ...) (define-key org-mode-map [menu-bar headings] ...) (define-key org-mode-map [menu-bar hide] ...) (define-key org-mode-map [menu-bar show] ...)) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (org-add-to-invisibility-spec ...)) (org-add-to-invisibility-spec (quote ...)) (when (featurep ...) (org-set-local ... t)) (setq outline-regexp "\\*+") (setq outline-level (quote org-outline-level)) (when (and org-ellipsis ... ... ...) (unless org-display-table ...) (set-display-table-slot org-display-table 4 ...) (setq buffer-display-table org-display-table)) (org-set-regexps-and-options) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 35 "<") (modify-syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-function (quote org-indent-line-function)) (org-update-radio-target-regexp) (org-set-local (quote comment-padding) " ") (if (or ... ...) (org-add-hook ... ... ... ...) (org-set-local ... ...)) (if (and org-insert-mode-line-in-empty-file ... ...) (insert "#    -*- mode: org -*-\n\n")) (unless org-inhibit-startup (when org-startup-align-all-tables ...) (cond ... ...)))
  (progn (make-local-variable (quote delay-mode-hooks)) (let (...) (outline-mode) (setq major-mode ...) (setq mode-name "Org") (progn ... ... ...) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if ... ... ... ... ...) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links ...) (org-add-to-invisibility-spec ...) (when ... ...) (setq outline-regexp "\\*+") (setq outline-level ...) (when ... ... ... ...) (org-set-regexps-and-options) (org-set-local ... "# ") (modify-syntax-entry 35 "<") (modify-syntax-entry 64 "w") (if org-startup-truncated ...) (org-set-local ... ...) (org-set-local ... t) (org-add-hook ... ... nil ...) (org-add-hook ... ... nil ...) (org-set-autofill-regexps) (setq indent-line-function ...) (org-update-radio-target-regexp) (org-set-local ... " ") (if ... ... ...) (if ... ...) (unless org-inhibit-startup ... ...)))
  (delay-mode-hooks (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if ... ...) (unless ... ...) (let ... ...)) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep ...) (when ... ... ... ...) (define-key org-mode-map [menu-bar headings] ...) (define-key org-mode-map [menu-bar hide] ...) (define-key org-mode-map [menu-bar show] ...)) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (org-add-to-invisibility-spec ...)) (org-add-to-invisibility-spec (quote ...)) (when (featurep ...) (org-set-local ... t)) (setq outline-regexp "\\*+") (setq outline-level (quote org-outline-level)) (when (and org-ellipsis ... ... ...) (unless org-display-table ...) (set-display-table-slot org-display-table 4 ...) (setq buffer-display-table org-display-table)) (org-set-regexps-and-options) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 35 "<") (modify-syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-function (quote org-indent-line-function)) (org-update-radio-target-regexp) (org-set-local (quote comment-padding) " ") (if (or ... ...) (org-add-hook ... ... ... ...) (org-set-local ... ...)) (if (and org-insert-mode-line-in-empty-file ... ...) (insert "#    -*- mode: org -*-\n\n")) (unless org-inhibit-startup (when org-startup-align-all-tables ...) (cond ... ...)))
  org-mode()
  (let ((org-inhibit-startup t)) (org-mode))
  org-mode-restart()
  call-interactively(org-mode-restart)
  (cond ((equal ... "TBLFM") (save-excursion ... ... ...)) (t (call-interactively ...)))
  (cond ((or org-clock-overlays org-occur-highlights org-latex-fragment-image-overlays) (org-remove-clock-overlays) (org-remove-occur-highlights) (org-remove-latex-fragment-image-overlays) (message "Temporary highlights/overlays removed from current buffer")) ((and ... ...) (funcall org-finish-function)) ((org-on-target-p) (call-interactively ...)) ((org-on-heading-p) (call-interactively ...)) ((org-at-table\.el-p) (require ...) (beginning-of-line 1) (re-search-forward "|" ...) (call-interactively ...)) ((org-at-table-p) (org-table-maybe-eval-formula) (if arg ... ...) (call-interactively ...)) ((org-at-item-checkbox-p) (call-interactively ...)) ((org-at-item-p) (call-interactively ...)) ((save-excursion ... ...) (cond ... ...)) (t (error "C-c C-c can do nothing useful at this location.")))
  (let ((org-enable-table-editor t)) (cond (... ... ... ... ...) (... ...) (... ...) (... ...) (... ... ... ... ...) (... ... ... ...) (... ...) (... ...) (... ...) (t ...)))
  org-ctrl-c-ctrl-c(nil)
  call-interactively(org-ctrl-c-ctrl-c)

[-- Attachment #3: Type: text/plain, Size: 13 bytes --]

-- 
Bastien

[-- Attachment #4: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode