Carsten Dominik <[EMAIL PROTECTED]> 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!
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 "[
\n]\\*+[ ]+" "\\(?:" ... "\\)" "\\>") org-todo-line-tags-regexp (concat
"^\\(\\*+\\)[ ]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*?\\([
]:[a-zA-Z0-9:[EMAIL PROTECTED]:[ ]*\\)?$\\)") 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\\} [^]
\n>]*?[]>]\\|<%%([^
\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 "[
\n]\\*+[ ]+" "\\(?:" ... "\\)" "\\>") org-todo-line-tags-regexp (concat
"^\\(\\*+\\)[ ]*\\(?:\\(" ... "\\)\\>\\)? *\\(.*?\\([
]:[a-zA-Z0-9:[EMAIL PROTECTED]:[ ]*\\)?$\\)") 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\\} [^]
\n>]*?[]>]\\|<%%([^
\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)
--
Bastien
_______________________________________________
Emacs-orgmode mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
