[O] [PATCH] org.texi: Fix case of `results' header-arg node.

2015-08-17 Thread Grant Rettke
Lower-case the results header arg node in /doc/org.texi. Right now it
is upper-cased.

Previously, I filled out the FSF paperwork, so I didi't include TINYCHANGE.


0001-org.texi-Fix-case-of-results-header-arg-node.patch
Description: Binary data


Re: [O] [PATCH] Allow early-warning anniversaries in agends [was: Re: org-bbdb-birthday reminder]

2015-08-17 Thread Nicolas Goaziou
Hello,

Nick Dokos ndo...@gmail.com writes:

 Here's a patch to add a new function to org-bbdb.el that provides early
 warning for upcoming anniversaries; it also adds some documentation to
 org.texi.

Thank you. Some comments follow.

 +(defun org-bbdb-date-list (date n)
 +  Return a list of dates in (m d y) format from the given 'date' to n-1 
 days hence.
 +  (let ((abs (calendar-absolute-from-gregorian date))
 +ret)
 +(reverse (dotimes (i n ret)
 +(setq ret (cons (calendar-gregorian-from-absolute (+ abs i)) 
 ret))

  (dotimes (i n (nreverse ret))
(push (calendar-gregorian-from-absolute (+ abs i)) ret))

 +
 +;;;###autoload
 +(defun org-bbdb-anniversaries-future (optional n)
 +  Return list of anniversaries for today and the next n-1 days (default 
 n=7).
 +  (if (not n) (setq n 7))

  (let ((n (or n 7)))
(when (= n 0) (error ...))
(let* (...)))
 
 +  (if (= n 0) nil
 +(let* (
 +;; list of relevant dates.

You need to capitalize comments.

 +(dates (org-bbdb-date-list date n))
 +;; Function to annotate text of each element of l with the 
 anniversary date d.
 +(annotate-descriptions
 + (lambda (d l)
 +   (let ((modify-description
 +  (lambda (x)
 +;; The assumption here is that x is a bbdb link of the 
 form
 +;; [[bbdb:name][description]]
 +;; This function rather arbitrarily modifies the 
 description
 +;; by adding the date to it in a fixed format.

Missing full stop in first sentence.

 +(string-match ]] x)
 +(replace-match (format  -- %d-%02d-%02d\\ (third d) 
 (first d) (second d))
 +   nil nil x
 + (mapcar modify-description l

Why don't you simply write

  (mapcar (lambda (x) (string-match ]] x) ...)
  l)

?

 +;; Function to generate the list of annotated anniversaries
 +;; for the given date d.
 +(gen-anniversaries
 + (lambda (d)
 +   (let ((date d))
 + ;; rebind 'date' so that org-bbdb-anniversaries will be
 + ;; fooled into giving us the list for the given date
 + ;; and then annotate the descriptions for that date.

Rebind.

 + (funcall annotate-descriptions d (org-bbdb-anniversaries))
 +  ;; map the gen-anniversaries function over the dates
 +  ;; and nconc the results into a single list

Missing capitalization and full stop.

 +  (apply 'nconc (mapcar gen-anniversaries dates)

#'nconc (there is also `cl-mapcan').

Also, gen-anniversaries is a one-liner. I don't think it deserves its
own name.

IOW, wouldn't it be better to use less levels of indirection, i.e., less
helper functions?


Regards,

-- 
Nicolas Goaziou



[O] [PATCH] Fix property name completion

2015-08-17 Thread Alexey Lebedeff
Hi all,

When property name completion is being performed, it means that we are
inside malformed property drawer that will become valid only after
successful completion. In this case in makes no sense to perform
interactive drawer repair.

Best,
Alexey
From 926fe940f04cd94cdc0b06e50a485e65d35e903a Mon Sep 17 00:00:00 2001
From: Alexey Lebedeff bina...@gmail.com
Date: Mon, 17 Aug 2015 12:04:43 +0300
Subject: [PATCH] Fix property name completion

* lisp/org-pcomplete.el (pcomplete/org-mode/prop): Add
  `ignore-malformed' argument in call to `org-buffer-property-keys'

* lisp/org.el (org-buffer-property-keys): Add support for new argument
  `ignore-malformed'.

* testing/lisp/test-org-pcomplete.el: Add new file for testing
  `pcomplete' integration.

* testing/lisp/test-org.el (test-org/buffer-property-keys): Test
  behaviour of `org-buffer-property-keys' with new `ignore-malformed'
  argument.

When property name completion is being performed, it means that we are
inside malformed property drawer that will become valid only after
successful completion. In this case in makes no sense to perform
interactive drawer repair.

TINYCHANGE
---
 lisp/org-pcomplete.el  |  2 +-
 lisp/org.el| 10 ++---
 testing/lisp/test-org-pcomplete.el | 44 ++
 testing/lisp/test-org.el   |  8 ++-
 4 files changed, 59 insertions(+), 5 deletions(-)
 create mode 100644 testing/lisp/test-org-pcomplete.el

diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el
index 05683fe..7706725 100644
--- a/lisp/org-pcomplete.el
+++ b/lisp/org-pcomplete.el
@@ -357,7 +357,7 @@ This needs more work, to handle headings with lots of spaces in them.
 	 (concat x : ))
 	   (let ((lst (pcomplete-uniqify-list
 		   (copy-sequence
-			(org-buffer-property-keys nil t t)
+			(org-buffer-property-keys nil t t t)
 	 (dolist (prop (org-entry-properties))
 	   (setq lst (delete (car prop) lst)))
 	 lst))
diff --git a/lisp/org.el b/lisp/org.el
index 9336183..b018f72 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16128,7 +16128,7 @@ decreases scheduled or deadline date by one day.
 	  (org-indent-line)
 (run-hook-with-args 'org-property-changed-functions property value)))
 
-(defun org-buffer-property-keys (optional specials defaults columns)
+(defun org-buffer-property-keys (optional specials defaults columns ignore-malformed)
   Get all property keys in the current buffer.
 
 When SPECIALS is non-nil, also list the special properties that
@@ -16139,7 +16139,10 @@ special meaning internally: ARCHIVE, CATEGORY, SUMMARY,
 DESCRIPTION, LOCATION, and LOGGING and others.
 
 When COLUMNS in non-nil, also include property names given in
-COLUMN formats in the current buffer.
+COLUMN formats in the current buffer.
+
+When IGNORE-MALFORMED is non-nil, malformed drawer repair will not be
+automatically performed, such drawers will be silently ignored.
   (let ((case-fold-search t)
 	(props (append
 		(and specials org-special-properties)
@@ -16151,7 +16154,8 @@ COLUMN formats in the current buffer.
(let ((range (org-get-property-block)))
 	 (catch 'skip
 	   (unless range
-	 (when (and (not (org-before-first-heading-p))
+	 (when (and (not ignore-malformed)
+			(not (org-before-first-heading-p))
 			(y-or-n-p (format Malformed drawer at %d, repair?
 	  (line-beginning-position
 	   (org-get-property-block nil t))
diff --git a/testing/lisp/test-org-pcomplete.el b/testing/lisp/test-org-pcomplete.el
new file mode 100644
index 000..fa463a2
--- /dev/null
+++ b/testing/lisp/test-org-pcomplete.el
@@ -0,0 +1,44 @@
+;;; test-org-pcomplete.el --- test pcomplete integration
+
+;; Copyright (C) 2015  Alexey Lebedeff
+;; Authors: Alexey Lebedeff
+
+;; This file is not part of GNU Emacs.
+
+;; This program 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.
+
+;; This program 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 this program.  If not, see http://www.gnu.org/licenses/.
+
+;;; Comments:
+
+
+
+;;; Code:
+
+(ert-deftest test-org-pcomplete/prop ()
+  Test property completion behaviour in an Org buffer
+
+  ;; Drawer where we are currently completing property name is
+  ;; malformed in any case, it'll become valid only after successful
+  ;; completion. We expect that this completion process will finish
+  ;; successfully, and there will be no interactive drawer repair
+  ;; attempts.
+  (should
+   (equal
+* a\n:PROPERTIES:\n:pname: \n:END:\n* b\n:PROPERTIES:\n:pname: 

Re: [O] Bug: babel load error [8.3.1 (8.3.1-16-gf6aa53-elpaplus @ /Users/chromiak/.emacs.d/elpa/org-plus-contrib-20150810/)]

2015-08-17 Thread Kyle Meyer
Chromiak, Walter chrom...@dickinson.edu writes:

 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.
 ----
 I get the following error since updating my emacs and org mode

 Error setting org-babel-load-languages: (void-variable 
 org-babel-safe-header-args)

Uninstall Org from the package-list-packages menu, restart Emacs making
sure that Org has not been loaded, and then install Org again from the
package-list-packages menu.

--
Kyle



Re: [O] [PATCH] Allow early-warning anniversaries in agends [was: Re: org-bbdb-birthday reminder]

2015-08-17 Thread Rasmus
Nick Dokos ndo...@gmail.com writes:

 I did a mapcan originally and saw that it was an alias for cl-mapcan in
 cl-extras.el and that got me scared: I vaguely recalled some rules about
 using cl-* stuff, but I don't really remember the rules any more. For
 future reference, are they written down somewhere?

My understanding is (require 'cl-lib) is OK.  We can probably kill a lot
of our own prefixed functions by using cl-lib functions.  And IMO we
should.  (require 'cl) is not good (other than when byte-compiling).

Correct me if I'm wrong. 

So cl-mapcan is OK.

 Also, does it matter if I use the alias mapcan instead of cl-mapcan?

I think for newer Emacs the prefix is preferred.  Sometimes the older
versions do not have it (e.g. outline-mode).  I don't know when the change
was made

Rasmus

-- 
Lasciate ogni speranza o voi che entrate: siete nella mani di'machellaio




Re: [O] [PATCH] Only use HTML5 fancy elements in HTML5

2015-08-17 Thread Rasmus
Hi,

Eric Abrahamsen e...@ericabrahamsen.net writes:

 Currently, if the global variable `org-html-html5-fancy' is t, some
 elements of HTML export will use fancy elements even when not exporting
 to HTML5 at all.

 Specifically, the TITLE of a document will be wrapped in header tags,
 even when exporting to XHTML4. I ran into this while making some epub
 files and the syntax checker barked at me.

 This patch fills out the check. There's growing redundancy in this file
 now -- if it seems desirable to have a `org-html-html5-fancy-p' function
 that encapsulates the paired checks, I'd be happy to provide that.

Remind me, do we have a non-fancy HTML5 mode?

I think it's better to introduce a new function to check if fancy HTML5.
This would make it easier to adhere to the docstring of
org-html-html5-fancy:

 This variable is ignored for anything other than HTML5 export

Thanks,
Rasmus


-- 
This is the kind of tedious nonsense up with which I will not put




Re: [O] [PATCH] Allow early-warning anniversaries in agends [was: Re: org-bbdb-birthday reminder]

2015-08-17 Thread Nicolas Goaziou
Rasmus ras...@gmx.us writes:

 Nick Dokos ndo...@gmail.com writes:

 I did a mapcan originally and saw that it was an alias for cl-mapcan in
 cl-extras.el and that got me scared: I vaguely recalled some rules about
 using cl-* stuff, but I don't really remember the rules any more. For
 future reference, are they written down somewhere?

 My understanding is (require 'cl-lib) is OK.  We can probably kill a lot
 of our own prefixed functions by using cl-lib functions.  And IMO we
 should.  (require 'cl) is not good (other than when byte-compiling).

 Correct me if I'm wrong. 

cl-lib is standard in Emacs 24.3. Before that, all you can do is

  (eval-when-compile (require 'cl))

and use macros only.

 So cl-mapcan is OK.

Actually it's not until Emacs minimal version issue is sorted out by Bastien.


Regards,



Re: [O] [PATCH] Allow early-warning anniversaries in agends [was: Re: org-bbdb-birthday reminder]

2015-08-17 Thread Nick Dokos
Nicolas Goaziou m...@nicolasgoaziou.fr writes:

 Hello,

 Nick Dokos ndo...@gmail.com writes:

 Here's a patch to add a new function to org-bbdb.el that provides early
 warning for upcoming anniversaries; it also adds some documentation to
 org.texi.

 Thank you. Some comments follow.


Thanks for the comments. Revised patch attached.


 +  (apply 'nconc (mapcar gen-anniversaries dates)

 #'nconc (there is also `cl-mapcan').


I did a mapcan originally and saw that it was an alias for cl-mapcan in
cl-extras.el and that got me scared: I vaguely recalled some rules about
using cl-* stuff, but I don't really remember the rules any more. For
future reference, are they written down somewhere? Also, does it matter
if I use the alias mapcan instead of cl-mapcan?

From f90ab3346f0b49b7397d1b963359f14a48a019f1 Mon Sep 17 00:00:00 2001
From: Nick Dokos ndo...@gmail.com
Date: Sun, 16 Aug 2015 12:22:55 -0400
Subject: [PATCH] Allow early-warning anniversaries in agenda.

* lisp/org-bbdb.el (org-bbdb-anniversaries-future, org-bbdb-date-list): New functions.

* doc/org.texi: Document the usage of `org-bbdb-anniversaries-future'.

Feature requested by Julien Cubizolles:

http://thread.gmane.org/gmane.emacs.orgmode/99344
---
 doc/org.texi | 14 ++
 lisp/org-bbdb.el | 49 +
 2 files changed, 63 insertions(+)

diff --git a/doc/org.texi b/doc/org.texi
index b23be03..927ecbd 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -8046,6 +8046,20 @@ hash with anniversaries.  However, from then on things will be very fast---much
 faster in fact than a long list of @samp{%%(diary-anniversary)} entries
 in an Org or Diary file.
 
+If you would like to see upcoming anniversaries with a bit of forewarning,
+you can use the following instead:
+
+@example
+* Anniversaries
+  :PROPERTIES:
+  :CATEGORY: Anniv
+  :END:
+%%(org-bbdb-anniversaries-future 3)
+@end example
+
+That will give you three days' warning: on the anniversary date itself and the
+two days prior. The argument is optional: if omitted, it defaults to 7.
+
 @subsubheading Appointment reminders
 @cindex @file{appt.el}
 @cindex appointment reminders
diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el
index c489385..e03cda9 100644
--- a/lisp/org-bbdb.el
+++ b/lisp/org-bbdb.el
@@ -397,6 +397,55 @@ This is used by Org to re-create the anniversary hash table.
 ))
 text))
 
+;;; Return list of anniversaries for today and the next n-1 (default: n=7) days.
+;;; This is meant to be used in an org file instead of org-bbdb-anniversaries:
+;;;
+;;; %%(org-bbdb-anniversaries-future)
+;;;
+;;; or
+;;;
+;;; %%(org-bbdb-anniversaries-future 3)
+;;;
+;;; to override the 7-day default.
+
+(defun org-bbdb-date-list (date n)
+  Return a list of dates in (m d y) format from the given 'date' to n-1 days hence.
+  (let ((abs (calendar-absolute-from-gregorian date))
+ret)
+(dotimes (i n (nreverse ret))
+	   (push (calendar-gregorian-from-absolute (+ abs i)) ret
+
+;;;###autoload
+(defun org-bbdb-anniversaries-future (optional n)
+  Return list of anniversaries for today and the next n-1 days (default n=7).
+  (let ((n (or n 7)))
+(when (= n 0)
+  (error The (optional) argument of `org-bbdb-anniversaries-future' must be positive))
+(let (
+	  ;; List of relevant dates.
+	  (dates (org-bbdb-date-list date n))
+	  ;; Function to annotate text of each element of l with the anniversary date d.
+	  (annotate-descriptions
+	   (lambda (d l)
+	 (mapcar (lambda (x)
+		   ;; The assumption here is that x is a bbdb link of the form
+		   ;; [[bbdb:name][description]].
+		   ;; This function rather arbitrarily modifies the description
+		   ;; by adding the date to it in a fixed format.
+		   (string-match ]] x)
+		   (replace-match (format  -- %d-%02d-%02d\\ (third d) (first d) (second d))
+  nil nil x))
+		 l
+  ;; Map a function that generates anniversaries for each date over the dates
+  ;; and nconc the results into a single list.
+  (cl-mapcan (lambda (d)
+		   (let ((date d))
+		 ;; Rebind 'date' so that org-bbdb-anniversaries will be
+		 ;; fooled into giving us the list for the given date
+		 ;; and then annotate the descriptions for that date.
+		 (funcall annotate-descriptions d (org-bbdb-anniversaries
+		 dates
+
 (defun org-bbdb-complete-link ()
   Read a bbdb link with name completion.
   (require 'bbdb-com)
-- 
2.4.3


Thanks!
-- 
Nick


Re: [O] org-html-use-unicode-chars breaks source code blocks

2015-08-17 Thread Rasmus
Nicolas Goaziou m...@nicolasgoaziou.fr writes:

 Hello,

 Brady Trainor algeb...@uw.edu writes:

 Speaking of COMMENT, I had noticed some strange behavior if I have a state 
 like COMMENTED_OUT. 

 If I have a header like =#+TODO: TODO COMMENTED_OUT | DONE=, and cycle
 through state with S-right arrow, it gets pretty wonky.

 Could you elaborate a bit? I cannot reproduce anything suspicious except
 a minor fontification glitch.

I only saw the fontification error as well, which can be fixed in
org-set-font-lock-defaults.  AFAICT, you did not fix this, right?

Rasmus

-- 
The right to be left alone is a human right




[O] [PATCH] Only use HTML5 fancy elements in HTML5

2015-08-17 Thread Eric Abrahamsen
Currently, if the global variable `org-html-html5-fancy' is t, some
elements of HTML export will use fancy elements even when not exporting
to HTML5 at all.

Specifically, the TITLE of a document will be wrapped in header tags,
even when exporting to XHTML4. I ran into this while making some epub
files and the syntax checker barked at me.

This patch fills out the check. There's growing redundancy in this file
now -- if it seems desirable to have a `org-html-html5-fancy-p' function
that encapsulates the paired checks, I'd be happy to provide that.

E

From 921081b428445d42f2ee82b9be9135a95db9e084 Mon Sep 17 00:00:00 2001
From: Eric Abrahamsen e...@ericabrahamsen.net
Date: Mon, 17 Aug 2015 23:41:19 +0800
Subject: [PATCH] Only use HTML5 fancy elements in HTML5

* lisp/ox-html.el (org-html-template): The check for HTML5 fancy
  elements should only apply when exporting to HTML5.
---
 lisp/ox-html.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index bdcdeee..4f94090 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -1932,13 +1932,15 @@ holding export options.
 	   (subtitle (plist-get info :subtitle)))
(when title
 	 (format
-	  (if (plist-get info :html-html5-fancy)
+	  (if (and (org-html-html5-p info)
+		   (plist-get info :html-html5-fancy))
 	  header\nh1 class=\title\%s/h1\n%s/header
 	h1 class=\title\%s%s/h1\n)
 	  (org-export-data title info)
 	  (if subtitle
 	  (format
-	   (if (plist-get info :html-html5-fancy)
+	   (if (and (org-html-html5-p info)
+			(plist-get info :html-html5-fancy))
 		   p class=\subtitle\%s/p\n
 		 \nbr\nspan class=\subtitle\%s/span\n)
 	   (org-export-data subtitle info))
-- 
2.5.0



Re: [O] 8.3.1 and org-latex-with-hyperref

2015-08-17 Thread Suvayu Ali
On Sun, Aug 16, 2015 at 04:22:43PM -0400, Scott Randby wrote:
 On 08/16/2015 09:36 AM, Bastien Guerry wrote:
 Scott Randby sran...@gmail.com writes:
 
 Unfortunately, the \hypersetup{...} generated by org is last one in
 the preamble when an org document is exported.
 
 Is there anything to fix here?
 
 Yes in my opinion. Return the org-latex-with hyperref variable to Org.

I don't get it, what's wrong with Nicolas's suggestion with
org-latex-hyperref-template in this message?

  http://mid.gmane.org/87zj1w62yk@nicolasgoaziou.fr

I thought that should take care of all your needs.

-- 
Suvayu

Open source is the future. It sets us free.



Re: [O] org-html-use-unicode-chars breaks source code blocks

2015-08-17 Thread Nicolas Goaziou
Hello,

Brady Trainor algeb...@uw.edu writes:

 Speaking of COMMENT, I had noticed some strange behavior if I have a state 
 like COMMENTED_OUT. 

 If I have a header like =#+TODO: TODO COMMENTED_OUT | DONE=, and cycle
 through state with S-right arrow, it gets pretty wonky.

Could you elaborate a bit? I cannot reproduce anything suspicious except
a minor fontification glitch.


Regards,

-- 
Nicolas Goaziou



[O] Bug: babel load error [8.3.1 (8.3.1-16-gf6aa53-elpaplus @ /Users/chromiak/.emacs.d/elpa/org-plus-contrib-20150810/)]

2015-08-17 Thread Chromiak, Walter

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.
----
I get the following error since updating my emacs and org mode

Error setting org-babel-load-languages: (void-variable 
org-babel-safe-header-args)

The error means I can't do babel. But if I use C-u M-x org-reload I can
then run babel commands.

Emacs  : GNU Emacs 24.5.1 (x86_64-apple-darwin13.4.0, NS apple-appkit-1265.21)
of 2015-04-10 on builder10-9.porkrind.org
Package: Org-mode version 8.3.1 (8.3.1-16-gf6aa53-elpaplus @ 
/Users/chromiak/.emacs.d/elpa/org-plus-contrib-20150810/)

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-confirm-shell-link-function 'yes-or-no-p
org-finalize-agenda-hook '(org-agenda-to-appt)
org-todo-keyword-faces '((TODO :foreground red :weight bold) (NEXT 
:foreground blue :weight bold)
  (DONE :foreground forest green :weight bold)
  (WAITING :foreground orange :weight bold)
  (HOLD :foreground magenta :weight bold)
  (CANCELLED :foreground forest green :weight bold))
org-agenda-include-diary t
org-startup-indented t
org-after-todo-state-change-hook '(org-clock-out-if-current)
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-mode-hook '((lambda nil
  (org-add-hook (quote change-major-mode-hook) (quote 
org-show-block-all) (quote append)
   (quote local))
  )
 (lambda nil
  (org-add-hook (quote change-major-mode-hook) (quote 
org-babel-show-result-all) (quote append)
   (quote local))
  )
 org-eldoc-load
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook org-show-block-all 
append local] 5]
 #[nil \300\301\302\303\304$\207
   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
 org-babel-result-hide-spec org-babel-hide-all-hashes)
org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
org-goto-auto-isearch nil
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
org-refile-use-outline-path t
org-directory ~/Dropbox/Wiki/Org
org-enforce-todo-dependencies t
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-hide-inline-tasks
  org-cycle-show-empty-lines 
org-optimize-window-after-visibility-change)
org-agenda-finalize-hook '(org-agenda-to-appt)
org-refile-allow-creating-parent-nodes 'confirm
org-modules '(org-bbdb org-bibtex org-docview org-gnus org-habit org-info 
org-learn org-mac-link org-man org-toc
   org-velocity org-mew org-mhe org-rmail org-vm org-wl org-w3m)
org-agenda-span 14
org-babel-process-comment-text 'org-babel-trim
org-babel-tangle-lang-exts '((latex . tex) (awk . awk) (emacs-lisp . 
el))
org-confirm-elisp-link-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-effort-durations '((h . 60) (d . 480) (w . 2400) (m . 9600) (y . 
96000))
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-structure-template-alist '((s #+BEGIN_SRC ?\n\n#+END_SRC src 
lang=\?\\n\n/src)
(e #+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE 
example\n?\n/example)
(q #+BEGIN_QUOTE\n?\n#+END_QUOTE 

Re: [O] [gnorb] completion for `gnorb-gnus-incoming-do-todo'

2015-08-17 Thread Eric Abrahamsen
Thomas Holst thomas_ho...@gmx.de writes:

 · Eric Abrahamsen e...@ericabrahamsen.net wrote:


 [ ... snip ... ]

 [ ... snip completion issue with gnorb ... ]


[...]

 ok here is what I did to reproduce behavior with ECM

All right, now that's a bug report!

I followed your steps, and can confirm the same behavior. Unfortunately,
I don't really understand what's going on, and don't have time to dive
into helm's guts at the moment.

Using these exact same settings, but loading helm from the package
manager instead of the git repo, everything works just fine. Would you
consider shifting to use the packaged version of helm (which I can't
believe lags the git repo by more than a couple of days) instead?

Yours,
Eric

   emacs -Q -l minimal.el

 with minimal.el:

 #+begin_src emacs_lisp
   ;; minimal.el to test org-refile helm
   ;; most recent org-mode from git
   (add-to-list 'load-path /home/thommy/git-emacs/org-mode/lisp)

   (require 'org)

   (setq org-use-speed-commands t) ;; `g' on begining of heading calls 
 `(org-refile t)'
   (setq org-refile-use-outline-path 'file)

   (find-file /home/thommy/git-emacs/gnorb/gnorb.org) ;; just any org-file 
 works


   ;; most recent helm from git
   (add-to-list 'load-path ~/git-emacs/helm)
   (require 'helm-config)
   (helm-mode 1)
 #+end_src

 Now when I hit `g' at begining of a headline I get gnorb.org as a
 candidate for first step. But no key (TAB, C - i, C - z) does
 completion. If I hit RET with partial or complete input for first step
 (e.g. gn or gnorb.org) I get an error:

   progn: Wrong type argument: integer-or-marker-p, nil

 Backtrace:

 Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
   goto-char(nil)
   (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) 
 (org-show-context (quote org-goto)))
   (if (and arg (not (equal arg 3))) (progn
 (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context
 (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring
 region-start region-end)) (org-save-markers-in-region region-start
 region-end)) (org-copy-subtree 1 nil t)) (save-current-buffer
 (set-buffer (setq nbuf (or (find-buffer-visiting file)
 (find-file-noselect file (setq reversed
 (org-notes-order-reversed-p)) (save-excursion (save-restriction
 (widen) (if pos (progn (goto-char pos) (looking-at org-outline-regexp)
 (setq level (org-get-valid-level ... 1)) (goto-char (if reversed ...
 ...))) (setq level 1) (if (not reversed) (goto-char (point-max))
 (goto-char (point-min)) (or (outline-next-heading) (goto-char ...
 (if (not (bolp)) (newline)) (org-paste-subtree level nil nil t) (if
 org-log-refile (progn (org-add-log-setup (quote refile) nil nil (quote
 findpos) org-log-refile) (if (eq org-log-refile ...) nil
 (save-excursion ... (and org-auto-align-tags (let
 ((org-loop-over-headlines-in-active-region nil)) (org-set-tags nil
 t))) (let ((bookmark-name (plist-get org-bookmark-names-plist
 :last-refile))) (if bookmark-name (progn (condition-case err ...
 ... (if (and (boundp (quote org-refile-for-capture))
 org-refile-for-capture) (progn (let (...) (if bookmark-name ...))
 (move-marker org-capture-last-stored-marker (point (if (fboundp
 (quote deactivate-mark)) (deactivate-mark)) (run-hooks (quote
 org-after-refile-insert-hook) (if org-refile-keep nil (if regionp
 (delete-region (point) (+ (point) (- region-end region-start)))
 (delete-region (and (org-back-to-heading t) (point)) (min (1+
 (buffer-size)) (org-end-of-subtree t t) (point) (if (featurep
 (quote org-inlinetask)) (progn (org-inlinetask-remove-END-maybe)))
 (setq org-markers-to-move nil) (message (concat actionmsg  to \%s\
 in file %s: done) (car it) file))
   (progn (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and
 (not arg) pos (equal (buffer-file-name) file) (if regionp (and (= pos
 region-start) (= pos region-end)) (and (= pos (point)) ( pos
 (save-excursion (org-end-of-subtree t t)) (error Cannot refile to
 position inside the tree or region)) (setq nbuf (or
 (find-buffer-visiting file) (find-file-noselect file))) (if (and arg
 (not (equal arg 3))) (progn (org-pop-to-buffer-same-window nbuf)
 (goto-char pos) (org-show-context (quote org-goto))) (if regionp
 (progn (org-kill-new (buffer-substring region-start region-end))
 (org-save-markers-in-region region-start region-end))
 (org-copy-subtree 1 nil t)) (save-current-buffer (set-buffer (setq
 nbuf (or (find-buffer-visiting file) (find-file-noselect file
 (setq reversed (org-notes-order-reversed-p)) (save-excursion
 (save-restriction (widen) (if pos (progn (goto-char pos) (looking-at
 org-outline-regexp) (setq level ...) (goto-char ...)) (setq level 1)
 (if (not reversed) (goto-char ...) (goto-char ...) (or ... ...))) (if
 (not (bolp)) (newline)) (org-paste-subtree level nil nil t) (if
 org-log-refile (progn (org-add-log-setup ... nil nil ...
 org-log-refile) (if ... nil ...))) (and org-auto-align-tags (let (...)
 (org-set-tags nil 

Re: [O] org-html-use-unicode-chars breaks source code blocks

2015-08-17 Thread Brady Trainor
Hello,

Nicolas Goaziou m...@nicolasgoaziou.fr writes:

 Hello,

 Brady Trainor algeb...@uw.edu writes:

 Speaking of COMMENT, I had noticed some strange behavior if I have a
 state like COMMENTED_OUT.

 If I have a header like =#+TODO: TODO COMMENTED_OUT | DONE=, and cycle
 through state with S-right arrow, it gets pretty wonky.

 Could you elaborate a bit? I cannot reproduce anything suspicious except
 a minor fontification glitch.


 Regards,

Ah, I should have checked 8.3... This is on 8.2.10 that it was doing this. In 
8.2.10, as states were passed through, I could see several different all-caps 
states in one headline at once, though only one would be highlighted.

I guess on 8.3, it is just that COMMENT of COMMENTED_OUT would be highlighted, 
leaving ED_OUT unhighlighted. I am guessing that is what you are seeing. 

--
Brady






Re: [O] [gnorb] completion for `gnorb-gnus-incoming-do-todo'

2015-08-17 Thread Thomas Holst
Hi Eric,
· Eric Abrahamsen e...@ericabrahamsen.net wrote:

 Thomas Holst thomas_ho...@gmx.de writes:

 · Eric Abrahamsen e...@ericabrahamsen.net wrote:


 [ ... snip ... ]

 [ ... snip completion issue with gnorb ... ]


 [...]

 ok here is what I did to reproduce behavior with ECM

 All right, now that's a bug report!

 I followed your steps, and can confirm the same behavior. Unfortunately,
 I don't really understand what's going on, and don't have time to dive
 into helm's guts at the moment.

 Using these exact same settings, but loading helm from the package
 manager instead of the git repo, everything works just fine. Would you
 consider shifting to use the packaged version of helm (which I can't
 believe lags the git repo by more than a couple of days) instead?

thanks for confirming the buggy behaviour. I will test the packaged helm
version. It will take a few days until I have time to test it. I will
report when I have done my tests.

--
Regards
  Thomas