From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Org-mode version 4.75 Date: Sat, 26 May 2007 14:58:39 +0200 Message-ID: <87zm3rpwqo.fsf@bzg.ath.cx> References: <516c72d11fbb8f913e73264d69db19e9@science.uva.nl> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Hrvr5-0003fh-0X for emacs-orgmode@gnu.org; Sat, 26 May 2007 08:58:47 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Hrvr3-0003fV-BK for emacs-orgmode@gnu.org; Sat, 26 May 2007 08:58:45 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hrvr3-0003fS-3p for emacs-orgmode@gnu.org; Sat, 26 May 2007 08:58:45 -0400 Received: from mu-out-0910.google.com ([209.85.134.185]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Hrvr2-0002u4-2W for emacs-orgmode@gnu.org; Sat, 26 May 2007 08:58:44 -0400 Received: by mu-out-0910.google.com with SMTP id g7so1053424muf for ; Sat, 26 May 2007 05:58:42 -0700 (PDT) In-Reply-To: <516c72d11fbb8f913e73264d69db19e9@science.uva.nl> (Carsten Dominik's message of "Fri\, 25 May 2007 17\:43\:36 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Carsten Dominik 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 and 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! --=-=-= Content-Disposition: attachment; filename=org-priority_backtrace.txt Content-Transfer-Encoding: quoted-printable 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-priori= ty) (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 (qu= ote org-lowest-priority) (aref ... 0)) (org-set-local (quote org-default-pr= iority) (aref ... 0))) (let ((re ...) (splitre "[ ]+") kwds key value cat arch tags links hw dw= s tail sep kws1 prio) (save-excursion (save-restriction ... ... ...)) (and = cat (org-set-local ... cat)) (when prio (if ... ...) (setq prio ...) (org-s= et-local ... ...) (org-set-local ... ...) (org-set-local ... ...)) (and arc= h (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 (quo= te 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-s= ets) 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-d= one-keywords ...)) (setq org-ds-keyword-length (+ 2 ...) org-not-done-keywo= rds (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 "[=0D\n]\\*+[ ]+" "\\(?:" ... "\\)" "\\>") org-= todo-line-tags-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" ... "\\)\\>\\)? *\= \(.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\\)?$\\)") org-looking-at-done-regexp (co= ncat "^" "\\(?:" ... "\\)" "\\>") org-deadline-regexp (concat "\\<" org-dea= dline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " = *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-str= ing "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-s= cheduled-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 "\\(\\<\\(" o= rg-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|"= org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\= } [^]=0D\n>]*?[]>]\\|<%%([^=0D\n>]*>\\)") org-planning-or-clock-line-re (co= ncat "\\(?:^[ ]*\\(" org-scheduled-string "\\|" org-deadline-string "\\|" = org-closed-string "\\|" org-clock-string "\\)\\>\\)")) (org-set-font-lock-d= efaults)) (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-rege= xp ... org-todo-line-regexp ... org-nl-done-regexp ... org-todo-line-tags-r= egexp ... org-looking-at-done-regexp ... org-deadline-regexp ... org-deadli= ne-time-regexp ... org-deadline-line-regexp ... org-scheduled-regexp ... or= g-scheduled-time-regexp ... org-closed-time-regexp ... org-keyword-time-reg= exp ... 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-se= t-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-key= words) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quot= e org-todo-sets) nil) (let (... ... kwds key value cat arch tags links hw d= ws tail sep kws1 prio) (save-excursion ...) (and cat ...) (when prio ... ..= . ... ... ...) (and arch ...) (and links ...) (unless kwds ... ... ...) (se= tq kwds ...) (let ... ... ...) (when tags ...)) (if (not org-done-keywords)= (setq org-done-keywords ...)) (setq org-ds-keyword-length (+ 2 ...) org-no= t-done-keywords (org-delete-all org-done-keywords ...) org-todo-regexp (con= cat "\\<\\(" ... "\\)\\>") org-not-done-regexp (concat "\\<\\(" ... "\\)\\>= ") org-todo-line-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" ... "\\)\\>\\)? = *\\(.*\\)") org-nl-done-regexp (concat "[=0D\n]\\*+[ ]+" "\\(?:" ... "\\)"= "\\>") org-todo-line-tags-regexp (concat "^\\(\\*+\\)[ ]*\\(?:\\(" ... "\= \)\\>\\)? *\\(.*?\\([ ]:[a-zA-Z0-9:_@]+:[ ]*\\)?$\\)") org-looking-at-don= e-regexp (concat "^" "\\(?:" ... "\\)" "\\>") org-deadline-regexp (concat "= \\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadli= ne-string " *<\\([^>]+\\)>") org-deadline-line-regexp (concat "\\<\\(" org-= deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-s= tring) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\(= [^>]+\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\= ([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-strin= g "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string = "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "= \\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-str= ing "\\)" " *[[<]\\([^]>]+\\)[]>]") 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\\} [^]=0D\n>]*?[]>]\\|<%%([^=0D\n>]*>\\)") org-planning-or-clock= -line-re (concat "\\(?:^[ ]*\\(" org-scheduled-string "\\|" org-deadline-s= tring "\\|" 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-mo= de)) (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-ke= y 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-inst= all-agenda-files-menu) (if org-descriptive-links (org-add-to-invisibility-s= pec ...)) (org-add-to-invisibility-spec (quote ...)) (when (featurep ...) (= org-set-local ... t)) (setq outline-regexp "\\*+") (setq outline-level (quo= te org-outline-level)) (when (and org-ellipsis ... ... ...) (unless org-dis= play-table ...) (set-display-table-slot org-display-table 4 ...) (setq buff= er-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-u= nfontify-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-re= gexp) (org-set-local (quote comment-padding) " ") (if (or ... ...) (org-add= -hook ... ... ... ...) (org-set-local ... ...)) (if (and org-insert-mode-li= ne-in-empty-file ... ...) (insert "# -*- mode: org -*-\n\n")) (unless or= g-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 ... ... ...) (us= e-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq lo= cal-abbrev-table org-mode-abbrev-table) (if ... ... ... ... ...) (easy-menu= -add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-m= enu) (if org-descriptive-links ...) (org-add-to-invisibility-spec ...) (whe= n ... ...) (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-truncate= d ...) (org-set-local ... ...) (org-set-local ... t) (org-add-hook ... ... = nil ...) (org-add-hook ... ... nil ...) (org-set-autofill-regexps) (setq in= dent-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 loca= l-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] ...)) (e= asy-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-lo= cal ... t)) (setq outline-regexp "\\*+") (setq outline-level (quote org-out= line-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 (qu= ote calc-embedded-open-mode) "# ") (modify-syntax-entry 35 "<") (modify-syn= tax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t)) (org-s= et-local (quote font-lock-unfontify-region-function) (quote org-unfontify-r= egion)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (= quote before-change-functions) (quote org-before-change-function) nil (quot= e local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-c= lock) nil (quote local)) (org-set-autofill-regexps) (setq indent-line-funct= ion (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-empt= y-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-interac= tively ...))) (cond ((or org-clock-overlays org-occur-highlights org-latex-fragment-ima= ge-overlays) (org-remove-clock-overlays) (org-remove-occur-highlights) (org= -remove-latex-fragment-image-overlays) (message "Temporary highlights/overl= ays removed from current buffer")) ((and ... ...) (funcall org-finish-funct= ion)) ((org-on-target-p) (call-interactively ...)) ((org-on-heading-p) (cal= l-interactively ...)) ((org-at-table\.el-p) (require ...) (beginning-of-lin= e 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 --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--