http://blog.gmane.org/gmane.emacs.orgmode hourly 1 1901-01-01T00:00+00:00 http://gmane.org/img/gmane-25t.png http://gmane.org http://comments.gmane.org/gmane.emacs.orgmode/56359 <pre>Hi, Here's an input file, a.org: ---------------------------------------------------- #+OPTIONS: toc:nil #+EXPORT_EXCLUDE_TAGS: exclude #+EXPORT_SELECT_TAGS: include * chap1 ** sec1 :exclude: ** sec2 :include: ---------------------------------------------------- If I export this file, the heading gets mangled. E.g., the ascii export is: ---------------------------------------------------- a = Author: Hsiu-Khuern Tang Date: 2012-05-26 00:31:10 PDT 1 chap1** sec2 :include: ======================== ---------------------------------------------------- I'm using the latest Org. Thanks, - Hsiu-Khuern. </pre> Hsiu-Khuern Tang 2012-05-26T07:34:15 http://comments.gmane.org/gmane.emacs.orgmode/56332 <pre>Hi, I have been using org-mode for a year now and love it. I just started experimenting with org-publish and am trying to use org-mode with octopress as described here http://jaderholm.com/blog/blogging-with-org-mode-and-octopress When I export an org file using org-publish, I want to export/convert everything normally, but want to escape hyperlink conversion so that the octopress plugins can process them. I found that whenever I have text like http://something.somewhere/ it is automatically converted to a hyperlink or an image link (if it ends with an image extension) Is there a way to do prevent org-mode from setting up A-links or IMG-links? I dont' need to be selective. It's ok if all the links in a file are not converted. Thanks, c.b. </pre> c b 2012-05-25T20:43:04 http://comments.gmane.org/gmane.emacs.orgmode/56322 <pre>Let org-agenda-time-grid control if the grid is displayed * lisp/org-agenda.el (org-agenda-list): ensures that the list returned by org-agenda-add-time-grid-maybe is appended to rtnall before checking if rtnall is emtpy. In the case where rtnall is empty (no item for current day), we do not call org-agenda-add-time-grid-maybe. This seems bogus because that function is already computing whether the time grid must be included, and does so according to the user's preferences. In particular, the org-agenda-time-grid variable has a 'require-timed' parameter controlling the visibility of the time grid. So, this patch : - removes the premature check for rtnall being empty, - inconditionally calls org-agenda-add-time-grid-maybe, - appends the result to rtnall, - and finally checks the emptiness of the resulting list before pretty printing. TINYCHANGE --- lisp/org-agenda.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index cfd3e25..eebb66f 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el &lt; at &gt;&lt; at &gt; -3886,10 +3886,11 &lt; at &gt;&lt; at &gt; given in `org-agenda-start-on-weekday'." (put-text-property s (1- (point)) 'org-day-cnt day-cnt) (when todayp (put-text-property s (1- (point)) 'org-today t)) + (setq rtnall + (append rtnall + (org-agenda-add-time-grid-maybe rtnall ndays todayp))) (if rtnall (insert ;; all entries -(org-finalize-agenda-entries - (org-agenda-add-time-grid-maybe - rtnall ndays todayp)) +(org-finalize-agenda-entries rtnall) "\n")) (put-text-property s (1- (point)) 'day d) (put-text-property s (1- (point)) 'org-day-cnt day-cnt)))) </pre> Christophe Junke 2012-05-25T12:33:37 http://comments.gmane.org/gmane.emacs.orgmode/56319 <pre>* lisp/org-datetree.el: Fix regexp to allow datetree to find headings with trailing whitespace. This fixes a bug in which an existing datetree heading (e.g., "* 2012 ") would not be found by org-datetree-find-year-create if it had trailing whitespace. This can cause problems, for instance, if one is using column view on the date tree, since editing subheadings with column view adds whitespace at the end of the top heading. --- lisp/org-datetree.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-datetree.el b/lisp/org-datetree.el index 192d1d6..8c04507 100644 --- a/lisp/org-datetree.el +++ b/lisp/org-datetree.el &lt; at &gt;&lt; at &gt; -63,7 +63,7 &lt; at &gt;&lt; at &gt; tree can be found." (goto-char (prog1 (point) (widen)))))) (defun org-datetree-find-year-create (year) - (let ((re "^\\*+[ \t]+\\([12][0-9][0-9][0-9]\\)$") + (let ((re "^\\*+[ \t]+\\([12][0-9][0-9][0-9]\\)\\s-*$") match) (goto-char (point-min)) (while (and (setq match (re-search-forward re nil t)) </pre> Matt Lundin 2012-05-25T18:16:26 http://comments.gmane.org/gmane.emacs.orgmode/56304 <pre>Is there is a way to italicise across lines like /italicised text/ rather than /italicised/ /text/ For long pieces of text, italicising the ends of each line is inefficient (maybe there could be a #+BEGIN_ITALICS, #+END_ITALICS, I know of #+BEGIN_VERSE, just without the indentation without affecting verses.) Best wishes, Enda </pre> Enda 2012-05-25T16:43:25 http://comments.gmane.org/gmane.emacs.orgmode/56303 <pre>With #+STARTUP: hidestars, the output looks nice in Emacs org-mode but not otherwise, can there be an option where a line beginning with a space and a star is like two stars with the hidestars option and a line beginning with two spaces and a star is like three stars (it could be called #+STARTUP: showstars (and even enabled by default)) Best wishes, Enda </pre> Enda 2012-05-25T16:41:44 http://comments.gmane.org/gmane.emacs.orgmode/56302 <pre>Can there be #+STARTUP option that hides everything not a list heading or a heading on startup like: * shown ** shown not shown - shown not shown Best wishes, Enda </pre> Enda 2012-05-25T16:40:54 http://comments.gmane.org/gmane.emacs.orgmode/56301 <pre>priorities do not work on lists - item 1 - item 2 &lt;S-up&gt; and &lt;S-down&gt; does not work (yet if you manually insert them by typing [#B] they are coloured properly). Best wishes, Enda </pre> Enda 2012-05-25T16:39:52 http://comments.gmane.org/gmane.emacs.orgmode/56299 <pre>Hi All, I'm try to set up MobileOrg on my iPhone. When I called org-mobile-push, I received a Cannot revert nonexistent buffer error. ----*Messages* BEGIN------ loaded /Users/barak/.emacs.d/starter-kit-eshell.el Loading /Users/barak/.emacs.d/barak.el (source)...done loaded /Users/barak/.emacs.d/barak.el Loading /Users/barak/.emacs.d/starter-kit.el (source)...done loaded /Users/barak/.emacs.d/starter-kit.el Starting Emacs daemon. Importing 1/2... Preparing icalendar...done Current buffer does not contain icalendar contents! Importing 2/2... Preparing icalendar...done Current buffer does not contain icalendar contents! (New file) Diary updated from Google Calendar. When done with this frame, type C-x 5 0 Creating agendas... OVERVIEW Starting new Ispell process [default] ... Loading vc-git...done OVERVIEW [13 times] Preparing diary...done Preparing diary... revert-buffer: Cannot revert nonexistent file /Users/barak/diary -----END---------- Nothing gets pushed to my ~/Dropbox/MobileOrg directory. Any ideas? Thanks in advance, Bastre </pre> bastre 2012-05-25T16:32:58 http://comments.gmane.org/gmane.emacs.orgmode/56296 <pre> Hello A while ago I could make org-preview-latex-fragment work for Xemacs and I also sent a corresponding patch. I never bothered to check the corresponding `region' function, but when I did I received an error. I debugged the function and when I reached (narrow-to-region beg end) I obtained an error, whose backtrace I attach. I thought narrow-to-region works similar in both Emacsen. Thanks Uwe Brauer ------------------------------------------------------------------------ Emacs : XEmacs 21.5 (beta31) "ginger" [Lucid] (i686-pc-linux, Mule) of Thu Dec 1 2011 on gilgamesch.quim.ucm.es Package: Org-mode version 7.8.03 current state: ============== (setq org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-metaup-hook '(org-babel-load-in-session-maybe) outline-mode-hook '(hide-body) org-after-todo-state-change-hook '(org-clock-out-if-current) org-metadown-hook '(org-babel-pop-to-session-maybe) org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-agenda-include-diary t outline-minor-mode-hook '(my-outline-keys) org-babel-pre-tangle-hook '(save-buffer) org-mode-hook '(#&lt;compiled-function (from "/home/oub/xemacs/site-lisp/packages/org-7.8.03/lisp/org.elc") nil "...(7)" [org-add-hook change-major-mode-hook org-show-block-all append local] 5 0x47fa&gt; org-babel-hide-all-hashes my-org-keys turn-on-flyspell iso-accents-mode turn-on-auto-capitalize-mode) org-confirm-elisp-link-function 'yes-or-no-p org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks)) org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars) org-blank-before-new-entry nil org-export-latex-format-toc-function 'org-export-latex-format-toc-default org-export-with-LaTeX-fragments 'dvipng org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers) org-confirm-shell-link-function 'yes-or-no-p org-table-default-size "3x3" org-export-first-hook '(org-beamer-initialize-open-trackers) org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe) org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) org-occur-hook '(org-first-headline-recenter) org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists) outline-regexp ";;; \\|(...." outline-heading-end-regexp "[\n]" ) Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil) apply(debug error (wrong-type-argument integer-or-marker-p nil)) edebug(error (wrong-type-argument integer-or-marker-p nil)) narrow-to-region(nil nil) (edebug-after (edebug-before 55) 58 (narrow-to-region (edebug-after 0 56 beg) (edebug-after 0 57 end))) (let (beg end at msg) (edebug-after (edebug-before 5) 51 (cond ... ... ...)) (edebug-after (edebug-before 52) 54 (message ... "")) (edebug-after (edebug-before 55) 58 (narrow-to-region ... ...)) (edebug-after (edebug-before 59) 61 (goto-char ...)) (edebug-after (edebug-before 62) 73 (org-format-latex ... ... ... ... ... ... ...)) (edebug-after (edebug-before 74) 76 (message ... "done. Use `C-c C-c' to remove images."))) (edebug-after (edebug-before 4) 77 (let (beg end at msg) (edebug-after ... 51 ...) (edebug-after ... 54 ...) (edebug-after ... 58 ...) (edebug-after ... 61 ...) (edebug-after ... 73 ...) (edebug-after ... 76 ...))) (save-restriction (edebug-after (edebug-before 4) 77 (let ... ... ... ... ... ... ...))) (edebug-after (edebug-before 3) 78 (save-restriction (edebug-after ... 77 ...))) (save-excursion (edebug-after (edebug-before 3) 78 (save-restriction ...))) (edebug-after (edebug-before 2) 79 (save-excursion (edebug-after ... 78 ...))) (lambda nil (edebug-after (edebug-before 0) 1 (org-remove-latex-fragment-image-overlays)) (edebug-after (edebug-before 2) 79 (save-excursion ...)))() edebug-enter(org-preview-latex-fragment-region (1 9 nil) (lambda nil (edebug-after (edebug-before 0) 1 (org-remove-latex-fragment-image-overlays)) (edebug-after (edebug-before 2) 79 (save-excursion ...)))) edebug-enter(org-preview-latex-fragment-region (1 9 nil) (lambda nil (edebug-after (edebug-before 0) 1 (org-remove-latex-fragment-image-overlays)) (edebug-after (edebug-before 2) 79 (save-excursion ...)))) org-preview-latex-fragment-region(1 9) call-interactively(org-preview-latex-fragment-region) command-execute(org-preview-latex-fragment-region t) execute-extended-command(nil) call-interactively(execute-extended-command) recursive-edit() byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output] 3) debug(error (wrong-type-argument integer-or-marker-p nil)) org-preview-latex-fragment-region(1855 1873) call-interactively(org-preview-latex-fragment-region) command-execute(org-preview-latex-fragment-region t) execute-extended-command(nil) call-interactively(execute-extended-command) </pre> Uwe Brauer 2012-05-25T16:01:27 http://comments.gmane.org/gmane.emacs.orgmode/56293 <pre>I use org version 7.8.11 with GNU Emacs 24.1.50.1 under Windows XP. I can't seem to find a way to use the new org-agenda-sticky option. It seems the variable doesn't exist even after (require 'org-install) nor after an agenda has been displayed with (org-agenda-list 14) Does anyone have an idea on what I may be doing wrong? Many thanks in advance Rainer </pre> Rainer Thiel 2012-05-25T14:25:58 http://comments.gmane.org/gmane.emacs.orgmode/56290 <pre>Hello, I want to disable the behaviour for org-capture to store a bookmark pointing to the last stored item, preferably for some templates. No documentation for this, so I looked into the source --- seems we're storing the bookmark unconditionaly. Do tell me if I should upgrade my org mode. org-version "7.8.09" emacs-version "24.1.50.1" Thank you. </pre> XeCycle 2012-05-25T11:11:13 http://comments.gmane.org/gmane.emacs.orgmode/56287 <pre>Hi all, I've released Org 7.8.11. This is a minor release which mainly fixes an important bug about matching TODO when building the agenda. http://orgmode.org/org-7.8.11.zip http://orgmode.org/org-7.8.11.tar.gz http://orgmode.org/org-mode-download.html Enjoy, </pre> Bastien 2012-05-25T07:51:16 http://comments.gmane.org/gmane.emacs.orgmode/56285 <pre>I use the scheduling prompt very often and I usually give times in 8pm/9am/etc. format, because they are conveniently short to type. Today it occured to me the m is unnecessary, because a and p already gives the necessary info. Could we also support 8a and 9p format for times like 8am and 9pm, so that the m does not have to be typed when scheduling? It's unambiguous, this form is not used for other things AFAIK, so we could easily support this shorter form too. </pre> Tom 2012-05-25T05:45:14 http://comments.gmane.org/gmane.emacs.orgmode/56284 <pre>Just thought I'd let you know about two projects I've been working on that, when combined, make Org even cooler than it already is. A few months ago I took over maintenance of Emacs' bitly.el. I really worked it over, fixed some bugs, and, most importantly, I made it default to doing an asynchronous call to Bitly. Now you just ask it to shorten an URL and, sometime in the near future, it will. I just recently wrote org-auto-shorten-url. It binds to the `]' key in Org Mode. When you type `]', it does some sanity checks to see if you just finished typing a link. If you have, it calls `bitly-shorten-url' in the background to shorten the URL. The net net of this is that as you are typing an URL in Org Mode: [[http://example.com][Example]] The http://example.com will magically be transformed into a Bitly URL. I now use this for all of my HTML links. Due to technical complications, inline image links don't work and probably never will. You can grab the two packages from Github. They have a dependency on my `defhook' package though you can convert that to a straight `add-hook' call if you don't want to use defhook (though I think it is real cool). Neil - https://github.com/Neil-Smithline/bitly.el - https://github.com/Neil-Smithline/org-auto-shorten-url - https://github.com/Neil-Smithline/defhook </pre> Neil Smithline 2012-05-25T02:14:47 http://comments.gmane.org/gmane.emacs.orgmode/56277 <pre>Hey all... I have: #+BEGIN_SRC calc foo := 5 foo + 5 =&gt; #+END_SRC #+RESULTS: : foo + 5 =&gt; foo + 5 What I'd like, obviously, is for it to result in: #+RESULTS: : foo + 5 =&gt; 10 I guess I really don't understand how calc support works in org-babel. Could someone enlighten me? </pre> Christopher Allan Webber 2012-05-24T22:51:50 http://comments.gmane.org/gmane.emacs.orgmode/56272 <pre>Hello! I was trying hard to set up Matlab R2011a to work with my Emacs 24.1.50.1 (org version is release_7.8.09-532-gb797c8.dirty) and finally I was able to use it from M-shell but not from orgmode yet. I've edited emacs wiki [1] to reflect somewhat working matlab-mode setup on win32. Namely I use [2] as matlab shell. I have a simple test block like #+begin_src matlab :session *MATLAB* a=2 #+end_src When I try to execute it with C-c C-c , emacs never returns unless I hit C-g. If I do M-x toggle-debug-on-quit RET I see that for some reason it keeps waiting for EOE. I'd appreciate any suggestion as what to try (other than Octave which has its own tricks on Win32). I'm lost. [1] http://www.emacswiki.org/emacs/MatlabMode#toc3 [2] http://www.cs.umb.edu/~ram/matlabShell/index.html -- Mikhail Here is what I see in *MATLAB* buffer: ----8&lt;-----------------*MATLAB*------------------&gt;8----- if ischar(ans), fid = fopen('c:/DOCUME~1/user/LOCALS~1/Temp/babel-7560HUp/matlab-7560PPd', 'w'); fprintf(fid, '%s\n', ans); fclose(fid); else, dlmwrite('c:/DOCUME~1/user/LOCALS~1/Temp/babel-7560HUp/matlab-7560PPd', ans, '\t'); end 'org_babel_eoe' a = 2 ans = org_babel_eoe ----8&lt;-----------------*MATLAB*------------------&gt;8----- ----8&lt;-----------------*Bactrace*------------------&gt;8----- Debugger entered--Lisp error: (quit) accept-process-output(#&lt;process MATLAB&gt;) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and (re-search-forward (regexp-quote (if matlabp org-babel-octave-eoe-indicator org-babel-octave-eoe-output)) nil t) (re-search-forward comint-prompt-regexp nil t))))) (accept-process-output (get-buffer-process (current-buffer)))) (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and (re-search-forward (regexp-quote ...) nil t) (re-search-forward comint-prompt-regexp nil t))))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and (re-search-forward ... nil t) (re-search-forward comint-prompt-regexp nil t))))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt))) (progn (fset (quote my-filt) (function* (lambda (text) (block my-filt (setq string-buffer (concat string-buffer text)))))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and ... ...)))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (unwind-protect (progn (fset (quote my-filt) (function* (lambda (text) (block my-filt (setq string-buffer (concat string-buffer text)))))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion ...))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if --cl-letf-bound-- (fset (quote my-filt) --cl-letf-save--) (fmakunbound (quote my-filt)))) (let* ((--cl-letf-bound-- (fboundp (quote my-filt))) (--cl-letf-save-- (and --cl-letf-bound-- (symbol-function (quote my-filt))))) (unwind-protect (progn (fset (quote my-filt) (function* (lambda (text) (block my-filt (setq string-buffer ...))))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process ...))) (let ((start ...) (end ...)) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not ...)) (accept-process-output (get-buffer-process ...))) (goto-char (process-mark (get-buffer-process ...))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if --cl-letf-bound-- (fset (quote my-filt) --cl-letf-save--) (fmakunbound (quote my-filt))))) (letf (((symbol-function (quote my-filt)) (function* (lambda (text) (block my-filt (setq string-buffer (concat string-buffer text))))))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and ... ...)))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (letf* (((symbol-function (quote my-filt)) (function* (lambda (text) (block my-filt (setq string-buffer (concat string-buffer text))))))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and ... ...)))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion (and ... ...)))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process (current-buffer)))) (let ((start (point)) (end (point-max))) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not (save-excursion ...))) (accept-process-output (get-buffer-process (current-buffer)))) (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote (or full-body ""))) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp)) (progn (unless (org-babel-comint-buffer-livep session) (error "buffer %s doesn't exist or has no process" session)) (set-buffer session) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process ...))) (let ((start ...) (end ...)) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not ...)) (accept-process-output (get-buffer-process ...))) (goto-char (process-mark (get-buffer-process ...))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote (or full-body ""))) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp))) (unwind-protect (progn (unless (org-babel-comint-buffer-livep session) (error "buffer %s doesn't exist or has no process" session)) (set-buffer session) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark ...)) (let (... ...) (setq dangling-text ...) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn ... ...) (accept-process-output ...)) (goto-char (process-mark ...)) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote ...)) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp))) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (unless (org-babel-comint-buffer-livep session) (error "buffer %s doesn't exist or has no process" session)) (set-buffer session) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer ...))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char ...) (let ... ... ...) (insert full-body) (comint-send-input nil t) (while ... ...) (goto-char ...) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" ...) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp))) (set-match-data save-match-data-internal (quote evaporate)))) (save-match-data (unless (org-babel-comint-buffer-livep session) (error "buffer %s doesn't exist or has no process" session)) (set-buffer session) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process ...))) (let ((start ...) (end ...)) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not ...)) (accept-process-output (get-buffer-process ...))) (goto-char (process-mark (get-buffer-process ...))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote (or full-body ""))) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp))) (save-excursion (save-match-data (unless (org-babel-comint-buffer-livep session) (error "buffer %s doesn't exist or has no process" session)) (set-buffer session) (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark ...)) (let (... ...) (setq dangling-text ...) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn ... ...) (accept-process-output ...)) (goto-char (process-mark ...)) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote ...)) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp)))) (org-babel-comint-in-buffer session (let ((string-buffer "") dangling-text raw) (flet ((my-filt (text) (setq string-buffer (concat string-buffer text)))) (add-hook (quote comint-output-filter-functions) (quote my-filt)) (unwind-protect (progn (goto-char (process-mark (get-buffer-process ...))) (let ((start ...) (end ...)) (setq dangling-text (buffer-substring start end)) (delete-region start end)) (insert full-body) (comint-send-input nil t) (while (progn (goto-char comint-last-input-end) (not ...)) (accept-process-output (get-buffer-process ...))) (goto-char (process-mark (get-buffer-process ...))) (insert dangling-text)) (remove-hook (quote comint-output-filter-functions) (quote my-filt)))) (if (and t full-body (string-match (replace-regexp-in-string "\n" "[ \n]+" (regexp-quote (or full-body ""))) string-buffer)) (setq raw (substring string-buffer (match-end 0)))) (split-string string-buffer comint-prompt-regexp))) (org-babel-comint-with-output (session (if matlabp org-babel-octave-eoe-indicator org-babel-octave-eoe-output) t full-body) (insert full-body) (comint-send-input nil t)) (if (and matlabp org-babel-matlab-with-emacs-link) (save-window-excursion (with-temp-buffer (insert full-body) (write-region "" (quote ignored) wait-file nil nil nil (quote excl)) (matlab-shell-run-region (point-min) (point-max)) (message "Waiting for Matlab Emacs Link") (while (file-exists-p wait-file) (sit-for 0.01)) "")) (org-babel-comint-with-output (session (if matlabp org-babel-octave-eoe-indicator org-babel-octave-eoe-output) t full-body) (insert full-body) (comint-send-input nil t))) (let* ((tmp-file (org-babel-temp-file (if matlabp "matlab-" "octave-"))) (wait-file (org-babel-temp-file "matlab-emacs-link-wait-signal-")) (full-body (case result-type (output (mapconcat (function org-babel-chomp) (list body org-babel-octave-eoe-indicator) "\n")) (value (if (and matlabp org-babel-matlab-with-emacs-link) (concat (format org-babel-matlab-emacs-link-wrapper-method body ... ... wait-file) "\n") (mapconcat (function org-babel-chomp) (list ... org-babel-octave-eoe-indicator) "\n"))))) (raw (if (and matlabp org-babel-matlab-with-emacs-link) (save-window-excursion (with-temp-buffer (insert full-body) (write-region "" (quote ignored) wait-file nil nil nil (quote excl)) (matlab-shell-run-region (point-min) (point-max)) (message "Waiting for Matlab Emacs Link") (while (file-exists-p wait-file) (sit-for 0.01)) "")) (org-babel-comint-with-output (session (if matlabp org-babel-octave-eoe-indicator org-babel-octave-eoe-output) t full-body) (insert full-body) (comint-send-input nil t)))) results) (case result-type (value (org-babel-octave-import-elisp-from-file tmp-file)) (output (progn (setq results (if matlabp (cdr (reverse ...)) (cdr (member org-babel-octave-eoe-output ...)))) (mapconcat (function identity) (reverse results) "\n"))))) org-babel-octave-evaluate-session("*MATLAB*" "a=2" value matlab) (if session (org-babel-octave-evaluate-session session body result-type matlabp) (org-babel-octave-evaluate-external-process body result-type matlabp)) org-babel-octave-evaluate("*MATLAB*" "a=2" value matlab) (let* ((session (funcall (intern (format "org-babel-%s-initiate-session" (if matlabp "matlab" "octave"))) (cdr (assoc :session params)) params)) (vars (mapcar (function cdr) (org-babel-get-header params :var))) (result-params (cdr (assoc :result-params params))) (result-type (cdr (assoc :result-type params))) (out-file (cdr (assoc :file params))) (full-body (org-babel-expand-body:generic body params (org-babel-variable-assignments:octave params))) (result (org-babel-octave-evaluate session (if (org-babel-octave-graphical-output-file params) (mapconcat (quote identity) (list "set (0, \"defaultfigurevisible\", \"off\");" full-body (format "print -dpng %s" ...)) "\n") full-body) result-type matlabp))) (if (org-babel-octave-graphical-output-file params) nil (org-babel-reassemble-table result (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) (org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params)))))) org-babel-execute:octave("a=2" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:hlines . "no") (:padnewline . "yes") (:session . "*MATLAB*") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names)) matlab) org-babel-execute:matlab("a=2" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:hlines . "no") (:padnewline . "yes") (:session . "*MATLAB*") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names))) org-babel-execute-src-block(nil ("matlab" "a=2" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:hlines . "no") (:padnewline . "yes") (:session . "*MATLAB*") (:result-type . value) (:result-params "replace") (:rowname-names) (:colname-names)) "" nil 0)) org-babel-execute-src-block-maybe() org-babel-execute-maybe() org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-maybe) org-ctrl-c-ctrl-c(nil) call-interactively(org-ctrl-c-ctrl-c nil nil) ----8&lt;-----------------*Bactrace*------------------&gt;8----- </pre> Mikhail Titov 2012-05-24T21:02:11 http://comments.gmane.org/gmane.emacs.orgmode/56268 <pre>Hi all, in my exported LaTeX-document all code blocks are wrapped in #+begin_latex \begin{verbatim} % the code \end{verbatim} #+end_latex With the "old" LaTeX-exporter I get #+begin_latex \lstset{language=Renhanced} \begin{lstlisting} % the code \end{lstlisting} #+end_latex which is also what I want. How do I configure the new exporter to wrap code blocks in =lstlisting= and set the listings language (to =Renhanced= in my case)? Thanks in advance, Andreas </pre> Andreas Leha 2012-05-24T19:49:35 http://comments.gmane.org/gmane.emacs.orgmode/56266 <pre>Hi, I'm experimenting with column view of a daily agenda and effort estimates. I'm using this in my .emacs: ;; Effort Estimates (setq org-global-properties '(("Effort_ALL". "0 0:15 0:30 0:45 1:00 2:00 3:00 4:00 6:00 8:00"))) ;; Column view for effort estimates (setq org-columns-default-format "%80ITEM(Task) %2PRIORITY %TAGS %10Effort(Effort){:} %10CLOCKSUM") I'd like to replace CLOCKSUM with a column that shows me just the time spent on the task *today* (not all the time ever spent on the task). I've read about CLOCK_MODELINE_TOTAL: today, but I'm not sure how to apply that. Screen shot of what I've got now: Thanks for any pointers! </pre> Brian Wood 2012-05-24T17:50:46 http://comments.gmane.org/gmane.emacs.orgmode/56258 <pre> Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. ------------------------------------------------------------------------ Dear org-hackers, I am using org-mode for writing my PhD and I found that even when I adapt the latex-classes to have more than 3rd levels of headings¹, all headings after the 3rd level turn to itemize-lists. Am I missing something? If not, could that be extended to allow for arbitrarily deep structures? Best wishes, Arne ¹: relevant setting (not in the org-mode settings I use for writing the bug-report): ("report" "\\documentclass[11pt]{scrreprt}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) Emacs : GNU Emacs 23.4.2 (x86_64-pc-linux-gnu, GTK+ Version 2.24.8) of 2012-04-10 on fluss Package: Org-mode version 7.8.03 current state: ============== (setq org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars) org-export-latex-listings t org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-agenda-custom-commands '(("o" "Agenda and TODOs" ((tags "KANBAN") (agenda nil) (todo "")))) org-agenda-files '("~/.emacs.d/private/org/emacs-plan.org") org-agenda-include-diary t org-babel-load-languages '((python . t) (sh . t) (emacs-lisp . t)) org-metaup-hook '(org-babel-load-in-session-maybe) org-after-todo-state-change-hook '(org-clock-out-if-current) org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el")) org-export-latex-format-toc-function 'org-export-latex-format-toc-default org-agenda-skip-scheduled-if-done t org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-confirm-shell-link-function 'yes-or-no-p org-export-first-hook '(org-beamer-initialize-open-trackers) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-export-latex-packages-alist '(("" "color") ("" "listings")) org-default-notes-file "~/.emacs.d/private/org/emacs-remember-mode.org" org-directory "~/.emacs.d/private/org" outline-mode-hook '((lambda nil (require (quote outline-magic)))) org-blank-before-new-entry nil org-babel-pre-tangle-hook '(save-buffer) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-export-latex-classes '(("protokoll" "\\documentclass{scrartcl}\\usepackage{parskip}\\usepackage{underscore}\\setlength{\\parindent}{0cm}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" "\\newpage" "\\subsection*{%s}" "\\newpage") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("beamer" "\\documentclass{beamer}" org-beamer-sectioning)) org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers) org-mode-hook '(org-mode-reftex-setup turn-on-font-lock #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5] org-babel-hide-all-hashes) org-extend-today-until 4 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-confirm-elisp-link-function 'yes-or-no-p org-agenda-start-on-weekday nil org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks)) org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-agenda-skip-deadline-if-done t org-occur-hook '(org-first-headline-recenter) org-from-is-user-regexp nil org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code) outline-minor-mode-hook '((lambda nil (require (quote outline-magic))) (lambda nil (require (quote outline-magic)) (define-key outline-minor-mode-map [(f10)] (quote outline-cycle))) ) org-remember-templates '(("todo" 116 "❢: %?\n" "~/.emacs.d/private/org/emacs-plan.org" nil nil) ("Note" 110 "%?\n" nil nil nil)) org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists) org-metadown-hook '(org-babel-pop-to-session-maybe) org-link-abbrev-alist '(("bib" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/ref.bib::%s") ("notes" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers.org::#%s") ("papers" . "~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers/%s.pdf")) org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) ) </pre> Arne Babenhauserheide 2012-05-24T15:32:07 http://comments.gmane.org/gmane.emacs.orgmode/56256 <pre>Hello everybody out there using Org-mode, Some time ago, Eric Fraga had posted a script for generating Gantt charts directly out of Org-mode which is very helpful. Some project management software allows to follow the progress of tasks by staining a proportional part of the rectangle for a certain task in relation to its completion percentage in green and the rest in red. This allows easier evaluation of a project's current status. I added this feature to Eric Fraga's code and would like to post it here for discussion. It would be great if it could be somehow added to Org-mode. Thank you for making Org-mode such a good piece of software, Julia </pre> julia.jacobson< at >arcor.de 2012-05-24T15:00:54 Search the mailing list at Gmane query http://search.gmane.org/?group=$group=gmane.emacs.orgmode