Re: [O] [PATCH] New version of org-velocity

[Marco Wahl]

Hi Paul,

FWIW I like your package!  And thanks!

Paul Rodriguez  writes:

> This updates the version of org-velocity in contrib to the latest version.
>
> The new version supports an Ido-like style of refining searches
> interactively, and changes the default behavior to better accommodate users
> who use org-velocity for navigation instead of note-taking.
>
> Paul Rodriguez
>
> This updates the version of org-velocity in contrib to the latest version.
>
> The new version supports an Ido-like style of refining searches
> interactively, and changes the default behavior to better accommodate
> users who use org-velocity for navigation instead of note-taking.

May I update your package in the repo?


Best regards,
-- 
Marco Wahl
GPG: 0x49010A040A3AE6F2

Re: [O] Fwd: Patch - Org Mac Outlook - Fix Call to Outlook in some cases

[Alan Schmitt]

On 2015-12-14 17:22, Mike McLean  writes:

> Earlier in this thread, Rasmus suggested “Perhaps it should be a defcustom?”
>
> With a new version (2016) of Microsoft Outlook for Mac that does not install
> inside of a "Microsoft Office 2011" directory, this indeed should be a
> defcustom.
>
> This patch accomplishes that change. (It also changes the default to
> /Applications/Microsoft Outlook.app which is the filesystem path of Outlook
> 2016.

This looks good. Unless someone objects before the end of the week, I'll
push it.

Thanks!

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Athmospheric CO₂ (Updated December 13, 2015, Mauna Loa Obs.): 401.31 ppm


signature.asc
Description: PGP signature

Re: [O] ox-html, top-row-p

[Fabrice Popineau]

2015-12-15 0:20 GMT+01:00 Nicolas Goaziou :

> Fabrice Popineau  writes:
>
> > I am not fond of eval at all, at least not in this specific case.
> > So yes, your way is at least as good as what I did.
>
> Fine. Would you want to provide a patch along these lines? It may
> require an entry in ORG-NEWS.
>
>
I'll do it but some more urgent things to do right now.

Fabrice

Re: [O] bug#22182: 24.5; Org Mode Export

[John Wiegley]

Forward report to Org mailing list, and closing from Emacs bug tracker.

> B V Raghav  writes:

> 1. I open an ORG file, with template headers, default and texinfo template.

> 2. I write some simple ascii data to a few tree nodes.

> 3. Export using   i i for texinfo

> And it crashes with following backtrace (Non-printable characters of
> backtrace have been replaced with .):
>> Debugger entered--Lisp error: (wrong-type-argument listp #("Modeling notes
>> for Mged" 0 23 (:parent (#1 org-element-set-contents(#("Modeling notes
>> for Mged" 0 23 (:parent (#0 apply(org-element-set-contents #("Modeling
>> notes for Mged" 0 23 (:parent (#0))) nil) #[(s)
>> "\306\307\310#.\311\312
>> \211.:\204.\313\202\".@9\203!.AA\202\".)\"\210\314\315\n
>> \211.:\2043.\313\202@.@9\203?.AA\202@.)#\210
>> \316\211\n.;\203V.\317\320\f#\202\\.\321A@\f\"*.\211.;\203n.\322\313\f.$\202z.A\323A@\f.#\240\210+\210\nA
>> A@\240\210\n @\240*\207" [s new old element property value
>> replace-regexp-in-string "\n" " " mapc #[(blob) "\305
>> .\211.;\203.\306\f\307\n$\202 .\fA\310\fA@\n#\240\210\f+\207" [blob
>> old value property element :parent org-add-props nil plist-put] 6] nil
>> apply org-element-set-contents :parent get-text-property 0 plist-get
>> org-add-props plist-put] 6](#("Modeling notes for Mged" 0 23 (:parent
>> (#0 #[(--data) "\211.:\204. ;\205.\306\202. @9\205.
>> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>> @9\203V. AA\202W.
>> )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f...
>> ;\203\266.\317\320. #\202\275.\307
>> A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
>> \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202.\307
>> A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>> @9\203\240. AA\202\241.
>> )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>> @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree
>> types plain-text plist-get :ignore-list mapc org-data nil throw
>> --map-first-match objects get-text-property 0 reverse greater-elements
>> elements fun result first-match --acc --category
>> org-element-secondary-value-alist p --dolist-tail-- property
>> with-affiliated org-element-all-elements
>> org-element--parsed-properties-alist kwd-pair value kwd
>> org-element-dual-keywords org-element-multiple-keywords line no-recursion
>> org-element-greater-elements org-element-all-objects] 6](#("Modeling notes
>> for Mged" 0 23 (:parent (#0 mapc(#[(--data) "\211.:\204.
>> ;\205.\306\202. @9\205.
>> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>> @9\203V. AA\202W.
>> )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f...
>> ;\203\266.\317\320. #\202\275.\307
>> A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
>> \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202.\307
>> A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>> @9\203\240. AA\202\241.
>> )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>> @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree
>> types plain-text plist-get :ignore-list mapc org-data nil throw
>> --map-first-match objects get-text-property 0 reverse greater-elements
>> elements fun result first-match --acc --category
>> org-element-secondary-value-alist p --dolist-tail-- property
>> with-affiliated org-element-all-elements
>> org-element--parsed-properties-alist kwd-pair value kwd
>> org-element-dual-keywords org-element-multiple-keywords line no-recursion
>> org-element-greater-elements org-element-all-objects] 6] (#("Modeling notes
>> for Mged" 0 23 (:parent #0 #[(--data) "\211.:\204.
>> ;\205.\306\202. @9\205.
>> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>> @9\203V. AA\202W.
>> )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f...
>> ;\203\266.\317\320. #\202\275.\307
>> A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313.
>> \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202.\307
>> 

Re: [O] An issue with org-agenda-todo-list-sublevels

[Marcin Borkowski]

On 2015-12-14, at 21:48, Nick Dokos  wrote:

> Marcin Borkowski  writes:
>
>>> On 2015-12-12, at 09:53, Nicolas Goaziou  wrote:
>>>
 You can use a dedicated function in `org-agenda-skip-function' for that
 (e.g., ignore task if one of its parents is a done task).
>>
>> OK, so it doesn't work (probably because I'm doing something wrong...)
>>
>> I did this:
>>
>> (defun mbork/org-agenda-skip-if-parent-done ()
>>   "Return t if any of the parents of the current entry is a DONE
>>   item."
>>   (save-excursion
>> (catch 'done
>>   (while (org-up-heading-safe)
>>  (if (org-entry-is-done-p)
>>  (throw 'done t))
>>
>> (setq org-agenda-custom-commands
>>   '(("n"
>>   "Agenda and TODOs"
>>   ((agenda "")
>>(alltodo "" ((org-agenda-skip-function 
>> #'mbork/org-agenda-skip-if-parent-done)))
>>
>> and I see this:
>>
>> and: Wrong type argument: integer-or-marker-p, t
>>
>> What may be the problem?  How do I even debug this?
>>
>
> Are you testing it with emacs -q -l /path/to/min/org-init.el?
> If not, you probably should: I don't get any errors with the
> stuff above in my minimal org file, which leads me to suspect
> it's something in (the rest of) your configuration.

Strange.  I have the same error even with emacs -q, with minimal Org
config - the above function and one simple agenda file, containing this:

* DONE done
** TODO todo

Org-mode version 8.2.10 (release_8.2.10 @ 
/usr/local/share/emacs/25.0.50/lisp/org/)

Any hints?

Here's the debugger output:

--8<---cut here---start->8---
Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p t)
  goto-char(t)
  (and (setq to (or (org-agenda-skip-eval org-agenda-skip-function-global) 
(org-agenda-skip-eval org-agenda-skip-function))) (goto-char to))
  (or (save-excursion (goto-char p) (looking-at comment-start-skip)) (and 
org-agenda-skip-archived-trees (not org-agenda-archives-mode) 
(get-text-property p :org-archived) (org-end-of-subtree t)) (and 
org-agenda-skip-comment-trees (get-text-property p :org-comment) 
(org-end-of-subtree t)) (and (setq to (or (org-agenda-skip-eval 
org-agenda-skip-function-global) (org-agenda-skip-eval 
org-agenda-skip-function))) (goto-char to)) (org-in-src-block-p t))
  (if (or (save-excursion (goto-char p) (looking-at comment-start-skip)) (and 
org-agenda-skip-archived-trees (not org-agenda-archives-mode) 
(get-text-property p :org-archived) (org-end-of-subtree t)) (and 
org-agenda-skip-comment-trees (get-text-property p :org-comment) 
(org-end-of-subtree t)) (and (setq to (or (org-agenda-skip-eval 
org-agenda-skip-function-global) (org-agenda-skip-eval 
org-agenda-skip-function))) (goto-char to)) (org-in-src-block-p t)) (progn 
(throw :skip t)))
  (let ((p (point-at-bol)) to) (if (or (save-excursion (goto-char p) 
(looking-at comment-start-skip)) (and org-agenda-skip-archived-trees (not 
org-agenda-archives-mode) (get-text-property p :org-archived) 
(org-end-of-subtree t)) (and org-agenda-skip-comment-trees (get-text-property p 
:org-comment) (org-end-of-subtree t)) (and (setq to (or (org-agenda-skip-eval 
org-agenda-skip-function-global) (org-agenda-skip-eval 
org-agenda-skip-function))) (goto-char to)) (org-in-src-block-p t)) (progn 
(throw :skip t
  org-agenda-skip()
  org-agenda-get-todos()
  org-agenda-get-day-entries("/home/mbork/org/emacs.org" (12 16 2015) :todo)
  org-todo-list(nil)
  funcall-interactively(org-todo-list nil)
  call-interactively(org-todo-list)
  (let ((org-agenda-skip-function (function 
mbork/org-agenda-skip-if-parent-done))) (call-interactively (quote 
org-todo-list)))
  (let nil (let ((org-agenda-skip-function (function 
mbork/org-agenda-skip-if-parent-done))) (call-interactively (quote 
org-todo-list
  eval((let nil (let ((org-agenda-skip-function (function 
mbork/org-agenda-skip-if-parent-done))) (call-interactively (quote 
org-todo-list)
  org-let2(nil ((org-agenda-skip-function (function 
mbork/org-agenda-skip-if-parent-done))) (call-interactively (quote 
org-todo-list)))
  org-agenda-run-series("Agenda and TODOs" (((agenda "") (alltodo "" 
((org-agenda-skip-function (function mbork/org-agenda-skip-if-parent-done)))
  org-agenda(nil)
  funcall-interactively(org-agenda nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)
--8<---cut here---end--->8---

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University

[O] Converting paragraph to plain lis

[marvin doyley]

Hi there,

Does anybody know how to convert a paragraph to a plain list, and vice versa. 
For example, I would like to convert 

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse viverra 
consectetur euismod. Donec non tempor turpis. 

to 

1. Lorem ipsum dolor sit amet, consectetur adipiscing elit. 
 2.  Suspendisse viverra consectetur euismod.
3.  Donec non tempor turpis. 

In one key stroke, this would speed up my brain storming process.

Thanks,
M

[O] Restoring the org-freemind-to-org-mode function

[Mark Edgington]

I have in the past used the org-freemind-to-org-mode function, which
is no longer included in org-mode.  It used to be part of
org-freemind.el file (see
http://orgmode.org/w/org-mode.git?p=org-mode.git;a=blob_plain;f=lisp/org-freemind.el;hb=8f49547aaf0f9396f2a0bcfb25ce2c33be5e91fd
).

I have since tried this function, and it does still work, so I am
wondering if we could add it back into the org-mode source tree.  I am
attaching a stripped-down version of org-freemind.el in which most of
the code that is irrelevant to org-freemind-to-org-mode has been
removed.

Regards,

Mark
;;; org-freemind.el --- Export Org files to freemind

;; Copyright (C) 2009-2012 Free Software Foundation, Inc.

;; Author: Lennart Borgman (lennart O borgman A gmail O com)
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://orgmode.org
;;
;; 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
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see .

;; 
;; Features that might be required by this library:
;;
;; `backquote', `bytecomp', `cl', `easymenu', `font-lock',
;; `noutline', `org', `org-compat', `org-faces', `org-footnote',
;; `org-list', `org-macs', `org-src', `outline', `syntax',
;; `time-date', `xml'.
;;
;;
;;
;;; Commentary:
;;
;; This file tries to implement some functions useful for
;; transformation between org-mode and FreeMind files.
;;
;; Here are the commands you can use:
;;
;;M-x `org-freemind-from-org-mode'
;;M-x `org-freemind-from-org-mode-node'
;;M-x `org-freemind-from-org-sparse-tree'
;;
;;M-x `org-freemind-to-org-mode'
;;
;;M-x `org-freemind-show'
;;
;;
;;
;;; Change log:
;;
;; 2009-02-15: Added check for next level=current+1
;; 2009-02-21: Fixed bug in `org-freemind-to-org-mode'.
;; 2009-10-25: Added support for `org-odd-levels-only'.
;; Added y/n question before showing in FreeMind.
;; 2009-11-04: Added support for #+BEGIN_HTML.
;;
;;; Code:

(require 'xml)
(require 'org)
	;(require 'rx)
;(require 'org-exp)
(eval-when-compile (require 'cl))

(defgroup org-freemind nil
  "Customization group for org-freemind export/import."
  :group 'org)

;; Fix-me: I am not sure these are useful:
;;
;; (defcustom org-freemind-main-fgcolor "black"
;;   "Color of main node's text."
;;   :type 'color
;;   :group 'org-freemind)

;; (defcustom org-freemind-main-color "black"
;;   "Background color of main node."
;;   :type 'color
;;   :group 'org-freemind)

;; (defcustom org-freemind-child-fgcolor "black"
;;   "Color of child nodes' text."
;;   :type 'color
;;   :group 'org-freemind)

;; (defcustom org-freemind-child-color "black"
;;   "Background color of child nodes."
;;   :type 'color
;;   :group 'org-freemind)

(defvar org-freemind-node-style nil "Internal use.")

(defcustom org-freemind-node-styles nil
  "Styles to apply to node.
NOT READY YET."
  :type '(repeat
  (list :tag "Node styles for file"
(regexp :tag "File name")
(repeat
 (list :tag "Node"
   (regexp :tag "Node name regexp")
   (set :tag "Node properties"
(list :format "%v" (const :format "" node-style)
  (choice :tag "Style"
  :value bubble
  (const bubble)
  (const fork)))
(list :format "%v" (const :format "" color)
  (color :tag "Color" :value "red"))
(list :format "%v" (const :format "" background-color)
  (color :tag "Background color" :value "yellow"))
(list :format "%v" (const :format "" edge-color)
  (color :tag "Edge color" :value "green"))
(list :format "%v" (const :format "" edge-style)
  (choice :tag "Edge style" :value bezier
  (const :tag "Linear" linear)
  (const :tag "Bezier" bezier)
  (const :tag "Sharp Linear" sharp-linear)

Re: [O] An issue with org-agenda-todo-list-sublevels

[Nick Dokos]

Marcin Borkowski  writes:

> On 2015-12-14, at 21:48, Nick Dokos  wrote:
>
>> Marcin Borkowski  writes:
>>
 On 2015-12-12, at 09:53, Nicolas Goaziou  wrote:

> You can use a dedicated function in `org-agenda-skip-function' for that
> (e.g., ignore task if one of its parents is a done task).
>>>
>>> OK, so it doesn't work (probably because I'm doing something wrong...)
>>>
>>> I did this:
>>>
>>> (defun mbork/org-agenda-skip-if-parent-done ()
>>>   "Return t if any of the parents of the current entry is a DONE
>>>   item."
>>>   (save-excursion
>>> (catch 'done
>>>   (while (org-up-heading-safe)
>>> (if (org-entry-is-done-p)
>>> (throw 'done t))
>>>
>>> (setq org-agenda-custom-commands
>>>   '(("n"
>>>  "Agenda and TODOs"
>>>  ((agenda "")
>>>   (alltodo "" ((org-agenda-skip-function 
>>> #'mbork/org-agenda-skip-if-parent-done)))
>>>
>>> and I see this:
>>>
>>> and: Wrong type argument: integer-or-marker-p, t
>>>
>>> What may be the problem?  How do I even debug this?
>>>
>>
>> Are you testing it with emacs -q -l /path/to/min/org-init.el?
>> If not, you probably should: I don't get any errors with the
>> stuff above in my minimal org file, which leads me to suspect
>> it's something in (the rest of) your configuration.
>
> Strange.  I have the same error even with emacs -q, with minimal Org
> config - the above function and one simple agenda file, containing this:
>
> * DONE done
> ** TODO todo
>
> Org-mode version 8.2.10 (release_8.2.10 @ 
> /usr/local/share/emacs/25.0.50/lisp/org/)
>
> Any hints?
>
> Here's the debugger output:
>
> Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p t)
>   goto-char(t)
>   (and (setq to (or (org-agenda-skip-eval org-agenda-skip-function-global) 
> (org-agenda-skip-eval org-agenda-skip-function))) (goto-char to))

Not so strange: I probably did not hit the (throw 'done t) in your
function. The spec says that the function has to return a position
in the buffer:

,
| org-agenda-skip-function is a variable defined in ‘org-agenda.el’.
| Its value is nil
| 
|   This variable may be risky if used as a file-local variable.
| 
| Documentation:
| Function to be called at each match during agenda construction.
| If this function returns nil, the current match should not be skipped.
| Otherwise, the function must return a position from where the search
| should be continued.
`

-- 
Nick

Re: [O] Bug: html-preamble doesn't work with a function [8.3.2 (8.3.2-39-gd537a3-elpa @ /home/pillow/.emacs.d/elpa/org-20151123/)]

[Robert Klein]

Hi,

I only use a function name, e.g.

(defun my-html-preamble (options)
"my preamble")

and

(setq org-publish-project-alist
  '(
("org-notes"
 :base-directory "~/org/"
 :base-extension "org"
 :publishing-directory "~/public_html/"
 :recursive t
 :publishing-function org-html-publish-to-html
 :html-preamble my-html-preamble)))

Does this work for you?

Best regards
Robert


On 12/12/2015 08:26 PM, Pillow Kuda Sai wrote:
> My setup:
> ;;; Minimal setup to load latest 'org-mode'
> ;; activate debugging
> (setq debug-on-error t
>   debug-on-signal nil
>   debug-on-quit nil)
> 
> ;; add latest org-mode to load path
> (add-to-list 'load-path (expand-file-name "~/.emacs.d/elpa/org-20151123/"))
> (add-to-list 'load-path (expand-file-name
> "~/.emacs.d/elpa/org-20151123/" t))
> 
> What I did:
> (require 'ox-publish)
> (setq org-publish-project-alist
>   '(
>   ("org-notes"
>:base-directory "~/org/"
>:base-extension "org"
>:publishing-directory "~/public_html/"
>:recursive t
>:publishing-function org-html-publish-to-html
>:headline-levels 4 ; Just the default for this project.
>:auto-preamble t
>;; :html-preamble "Howdy" ; does work
>:html-preamble (concat "Howdy")
>)
>   ("org-static"
>:base-directory "~/org/"
>:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
>:publishing-directory "~/public_html/"
>:recursive t
>:publishing-function org-publish-attachment
>)
>   ("org" :components ("org-notes" "org-static"
> 
> What I expected: All off the above code is from
> http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html
> except for the :html-preamble part. I want to add my own preamble by
> using a function. :html-preamble sets org-html-preamble (the options
> are: nil, t, string, function that must return a string). When using a
> string (:html-preamble "Howdy") it works. When using a function that
> returns a string (:html-preamble (concat "Howdy")) it doesn't work.
> 
> I'm not entirely sure if this is a bug or if I'm missing something but
> hopefully the mailing-list can help me out :)
> 
> Thanks in advance, Pillow
> 
> 
> 
> 
> Emacs  : GNU Emacs 25.0.50.2 (x86_64-unknown-linux-gnu, GTK+ Version 3.14.5)
>  of 2015-10-09
> Package: Org-mode version 8.3.2 (8.3.2-39-gd537a3-elpa @
> /home/pillow/.emacs.d/elpa/org-20151123/)
> 
> current state:
> ==
> (setq
>  org-src-lang-modes '(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa"
> . artist) ("asymptote" . asy)
> ("dot" . fundamental) ("sqlite" . sql) ("calc" . 
> fundamental)
> ("C" . c) ("cpp" . c++)
> ("C++" . c++) ("screen" . shell-script))
>  org-tab-first-hook '(org-hide-block-toggle-maybe
> org-src-native-tab-command-maybe
> org-babel-hide-result-toggle-maybe 
> org-babel-header-arg-expand)
>  org-sparse-tree-default-date-type 'scheduled-or-deadline
>  org-latex-default-packages-alist '(("AUTO" "inputenc" t) ("T1"
> "fontenc" t) ("" "fixltx2e" nil) ("" "graphicx" t)
>   ("" "longtable" nil) ("" "float" nil) ("" 
> "wrapfig" nil) (""
> "rotating" nil)
>   ("normalem" "ulem" t) ("" "amsmath" t) ("" 
> "textcomp" t) (""
> "marvosym" t)
>   ("" "wasysym" t) ("" "amssymb" t) ("" 
> "hyperref" nil)
> "\\tolerance=1000")
>  org-speed-command-hook '(org-speed-command-default-hook
> org-babel-speed-command-hook)
>  org-occur-hook '(org-first-headline-recenter)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-html-format-drawer-function '(lambda (name contents) contents)
>  org-clock-into-drawer nil
>  org-latex-format-inlinetask-function 'ignore
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>  org-latex-text-markup-alist '((bold . "\\textbf{%s}") (code . verb)
> (italic . "\\emph{%s}")
>  (strike-through . "\\sout{%s}") (underline . 
> "\\uline{%s}")
>  (verbatim . protectedtexttt))
>  org-latex-format-headline-function
> 'org-latex-format-headline-default-function
>  org-after-todo-state-change-hook '(org-clock-out-if-current)
>  org-latex-format-drawer-function '(lambda (name contents) contents)
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-html-allow-name-attribute-in-anchors t
>  org-latex-logfiles-extensions '("aux" "idx" "log" "out" "toc" "nav"
> "snm" "vrb")
>  org-export-copy-to-kill-ring 'if-interactive
>  org-mode-hook '(#[nil 

Re: [O] [PATCH] Add Support for Evernote in Org-Mac Link

[Alan Schmitt]

On 2015-12-14 19:08, Mike McLean  writes:

> The attached patch adds support for Evernote Note links in
> contrib/org-mac-link.el

This looks good to me, although I don't have Evernote so I cannot test
it. I'll push it at the end of the week unless I hear otherwise.

Thanks,

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Athmospheric CO₂ (Updated December 13, 2015, Mauna Loa Obs.): 401.31 ppm


signature.asc
Description: PGP signature

Re: [O] Reference cannot be resolved without publishing

[Alan Schmitt]

On 2015-12-14 23:53, Nicolas Goaziou  writes:

> Hello,
>
> Alan Schmitt  writes:
>
>> It almost works: the generated html uses two '#' instead of one:
>>
>> Mac OS X
>
> Fixed. Thank you.

It's working great, thanks.

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7
Athmospheric CO₂ (Updated December 13, 2015, Mauna Loa Obs.): 401.31 ppm


signature.asc
Description: PGP signature

Re: [O] Wrapping section within LaTeX environment

[Robert Klein]

Hi

On 12/13/2015 03:00 PM, Xavier Garrido wrote:
> Dear orgers,
> 
> I would like to wrap a given org section between =\begin,\end= LaTeX
> environment. These sections are identified by a special tag :correction:
> and to initiate the =\begin= flag I have basically no problem by using
> the  org-export-filter-headline-function filter. The problem comes when
> I want to close the environment i.e. when another section starts. I have
> try this piece of code
> 
> #+BEGIN_SRC emacs-lisp
>   (setq correction-flag nil)
>   (defun cpp-correction-headline (contents backend info)
> (if (and (org-export-derived-backend-p backend 'latex) 
>(string-match "\\`.*correction.*\n" (downcase contents)))
> (progn
>   (setq correction-flag t)
>   (replace-match "begin{correction}" nil nil contents)
>   )
>   (when correction-flag
> (setq correction-flag nil)
> (concat "\\end{correction}" contents))
>   )
> )
>   (add-to-list 'org-export-filter-headline-functions
> 'cpp-correction-headline)
> #+END_SRC

If I read this right, you are writing the \end{correction} when the
headline function is called for the /following/ headline.

Then the (when...) should be outside the (if..) (because the
string-match condition isn't valid anymore).

Of course you still get issues when two consecutive sections are tagged
for correction -- and there has to be a follow-up heading to the one
tagged for correction.

Your code from your second mail does the job perfectly, but I've been
intrigued in figuring this one out :)

Best regards
Robert


> 
> but I get several =\end{correction}= in the produced LaTeX file.
> Actually this is much more a emacs-lisp related question since the
> boolean =correction-flag= seems not to work and I don't know why (of
> course I have very little knowledge in lisp). Can some emacs-lisp
> experts helps me understand why the above code just does not work.
> 
> Thanks a lot,
> Xavier
> 

Re: [O] [PATCH] New version of org-velocity

[Marco Wahl]

Hi Paul,

> This updates the version of org-velocity in contrib to the latest
> version.
>
> The new version supports an Ido-like style of refining searches
> interactively, and changes the default behavior to better accommodate
> users who use org-velocity for navigation instead of note-taking.

I just pushed org-velocity 4.1 to maint and to master.


Best regards,
-- 
Marco Wahl
GPG: 0x49010A040A3AE6F2