Re: [O] Disqus commenting system tested on Worg

2012-04-07 Thread Bastien
John Hendy  writes:

> Cool! Great idea and thanks for paving the way,

Thanks.

The question now is: on what Worg pages should we have this 
comment system?

For now, I let any worger decide about this -- we are at an
experimental stage.

As for me, I tend to think comments are more useful on blog-like
pages, standalone-hacks pages, rather than on reference-like docs 
and tutorials.

Anyway, let's see how it evolves.

-- 
 Bastien



[O] font-lock in src code blocks

2012-04-07 Thread Neuwirth Erich
I could not find the option to set language sensitive font locking in source 
code blocks.
Is there such an option?




Re: [O] font-lock in src code blocks

2012-04-07 Thread Bastien
Hi Erich,

Neuwirth Erich  writes:

> I could not find the option to set language sensitive font locking in source 
> code blocks.
> Is there such an option?

(setq org-src-fontify-natively t)

HTH,

-- 
 Bastien



Re: [O] Disqus commenting system tested on Worg

2012-04-07 Thread John Hendy
On Apr 7, 2012 4:28 AM, "Bastien"  wrote:
>
> John Hendy  writes:
>
> > Cool! Great idea and thanks for paving the way,
>
> Thanks.
>
> The question now is: on what Worg pages should we have this
> comment system?
>

True. And how to balance the mailing list vs disqus... While thw mailing
list is great, sometimes for the life of me I can't find a discussion I
know exists. If it were attached to a Worg page it would just be there
instead of having to remember the specific syntax to google.

Or should disqus comments be more like wiki discussions? Only for
commenting on the page itself. Definitely neat; as you said, we'll have to
see how it evolves!

Thanks again,
John

> For now, I let any worger decide about this -- we are at an
> experimental stage.
>
> As for me, I tend to think comments are more useful on blog-like
> pages, standalone-hacks pages, rather than on reference-like docs
> and tutorials.
>
> Anyway, let's see how it evolves.
>
> --
>  Bastien


Re: [O] Agenda filter for a specific file

2012-04-07 Thread Bernt Hansen
Marcelo de Moraes Serpa  writes:

> Hi guys,
>
> Is there a way to define an agenda filter that will search in only one of the 
> agenda files? The
> reason I do that is because although I have several files added to the 
> agenda, only one contains
> "actionable items" (gtd.org).

There are multiple ways to do this.

 1) visit the file and restrict agenda view to the file with C-u C-c C-x <

 2) set org-agenda-files for some custom-agenda-command just to use this
one file

1) also restricts search results with C-c C-a / which may not be what
   you want

HTH,
Bernt



Re: [O] Problems with (defvar foo) and Emacs 23

2012-04-07 Thread Matt Lundin
Bastien  writes:
>
> I fixed the problem with `org-clock-state'.  This should be `org-state'.
>
> `state' is a local variable in many org.el functions, I renamed it to
> `org-state' in org-clock.el and in "caller" sexp from org.el.  
>

Attached please find a patch that fixes the docstring of
org-after-todo-state-change-hook to reflect this change.

Best,
Matt

>From f21889985f2008bc77e2ecfc38be481a47c9916c Mon Sep 17 00:00:00 2001
From: Matt Lundin 
Date: Sat, 7 Apr 2012 07:13:55 -0500
Subject: [PATCH] Fix hook docstring to reflect renaming of state to
 org-state.

* lisp/org.el: (org-after-todo-state-change-hook): Fix docstring to
  reflect name change of state to org-state.

The renamed variable can cause user hooks added to
org-after-todo-state-change-hook to break, so it is essential to have
the correct variable name in the docstring.
---
 lisp/org.el |2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index a11d734..e7c579d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2231,7 +2231,7 @@ property and include the word \"recursive\" into the value."
 (defcustom org-after-todo-state-change-hook nil
   "Hook which is run after the state of a TODO item was changed.
 The new state (a string with a TODO keyword, or nil) is available in the
-Lisp variable `state'."
+Lisp variable `org-state'."
   :group 'org-todo
   :type 'hook)
 
-- 
1.7.10



[O] [PATCH] Fix org-bbdb anniversaries to work with the new BBDB

2012-04-07 Thread Matt Lundin
* lisp/org-bbdb.el: (org-bbdb-anniv-extract-date)
  (org-bbdb-make-anniv-hash) Fix org-bbdb anniversary functionality to
  accommodate bbdb 3.x.  There are two major changes in bbdb 3.x that
  need to be taken into account.  The first is that bbdb-split
  reverses the order of its parameters in 3.x. The second is that
  bbdb-record-getprop is replaced by bbdb-record-note in 3.x.
---
 lisp/org-bbdb.el |   18 --
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el
index ef53a35..f320d56 100644
--- a/lisp/org-bbdb.el
+++ b/lisp/org-bbdb.el
@@ -273,7 +273,7 @@ italicized, in all other cases it is left unchanged."
   "Convert -MM-DD to (month date year).
 Argument TIME-STR is the value retrieved from BBDB.  If - is omitted
 it will be considered unknown."
-  (multiple-value-bind (a b c) (values-list (bbdb-split time-str "-"))
+  (multiple-value-bind (a b c) (values-list (org-split-string time-str "-"))
 (if (eq c nil)
 (list (string-to-number a)
   (string-to-number b)
@@ -300,13 +300,19 @@ The hash table is created on first use.")
 (defun org-bbdb-make-anniv-hash ()
   "Create a hash with anniversaries extracted from BBDB, for fast access.
 The anniversaries are assumed to be stored `org-bbdb-anniversary-field'."
-
-  (let (split tmp annivs)
+  (let ((old-bbdb (fboundp 'bbdb-record-getprop))
+   split tmp annivs)
 (clrhash org-bbdb-anniv-hash)
 (dolist (rec (bbdb-records))
-  (when (setq annivs (bbdb-record-getprop
-  rec org-bbdb-anniversary-field))
-(setq annivs (bbdb-split annivs "\n"))
+  (when (setq annivs (if old-bbdb
+(bbdb-record-getprop
+ rec org-bbdb-anniversary-field)
+  (bbdb-record-note
+   rec org-bbdb-anniversary-field)))
+(setq annivs (if old-bbdb
+(bbdb-split annivs "\n")
+  ;; parameter order is reversed in new bbdb
+  (bbdb-split "\n" annivs)))
 (while annivs
   (setq split (org-bbdb-anniv-split (pop annivs)))
   (multiple-value-bind (m d y)
-- 
1.7.10




Re: [O] ATTR_HTML for a clickable image, howto?

2012-04-07 Thread Christian Moe

Hi, Samuel,

On 4/6/12 8:41 PM, Samuel Wales wrote:

Christian and others,

Will CSS solutions described in this thread work if you always export
subtrees (not entire .org files) and never include style files?


Yes, CSS styles apply to exported subtrees as well, whether from the 
default stylesheet, linked external stylesheets, or #+STYLE headers.


But this applies to the static html files as exported by Org. If I 
understand your drift, you're thinking about using it in a content 
management system (CMS) like Blogger. A CMS will typically store only 
the content of your document and substitute its own template for the 
HEAD section where style information goes. Then these solutions won't 
work without modifying CSS in your CMS.



If so, how do you go about using them in Org?  Is there a less awkward
way than using an HTML block with a div with style=?
This is awkward as you have to do it for every such block:

   #+HTML:


You can edit the CSS template of your CMS to take advantage of the 
classes and ids Org applies to its HTML exports.


- You can also apply your own classes to subtrees using the 
:HTML_CONTAINER_CLASS: property, and style individual subtrees by  id 
from :CUSTOM_ID:.


- You can use #+ATTR_HTML to add class, id or style attributes to 
/some/ elements, and my understanding is that the new exporter that is 
in the works will help do this more systematically.


- You can enclose blocks in custom block classes () 
with org-special-blocks (#+BEGIN_FOO), or with verbatim HTML.



See the Org manual:
- 12.5.9, "CSS support"

Locally applying CSS to elements with the STYLE attribute, the very 
lowest level of the cascade, should be the last resort.



It would be great to have a generic style of some sort, specify the
scoped Org elements with neat syntax (maybe like

[you meant to say:] #+begin_mycolor ... #+end_mycolor

instead of HTML blocks, and to be able to export it for subtrees (not
entire .org files!) in a completely self-contained way with no need to
include any file.


Well, if you still want to apply local CSS formatting, but without 
writing verbatim HTML all the time, it gets a little more involved. 
Org-special-blocks doesn't help here as it only sets a class attribute 
for style sheets to select, it does not set the style attribute. Still:


- You can simplify repeated use with macros. See the manual, section 
11.6. Use the @ notation (section 12.5.3) for literal html tags within 
the macros. E.g.:


   #+MACRO: mycolor @$1@


   {{{mycolor(Here I'd like some black text on an orange background.)}}}

- You could probably also use Eric Schulte's contributed 
org-exp-blocks.el, but you'd need to write some code, and it might be 
overkill for this purpose.



An example use case is Blogger, where you /could/ try to change the
CSS for your template, but it is far better to have your post be
entirely self-contained with all the style information you need.


Depends on your use case, I guess, but I think it would nearly always 
be a better, simpler, cleaner solution to modify your Blogger CSS.



Yours,
Christian



[O] [PATCH] org-mobile newheading, delete, refile and archive edit nodes

2012-04-07 Thread Henning Weiss
Hi!

I have attached a patch for org-mobile.el which adds four additional edit
nodes. They seem to work and adding and deleting has already been
implemented "client-side wise" in mobileorg-android.

The current versions could be improved by using the "old value" to compare
it to the current, as to prevent conflicts.

Henning Weiss
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 3bd9a7c..60d0659 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -1062,6 +1062,57 @@ be returned that indicates what went wrong."
  (org-set-tags nil 'align))
 (t (error "Heading changed in MobileOrg and on the computer")
 
+ ((eq what 'newheading)
+  (cond
+   ((or t ; maybe check new for validity instead?
+   (eq org-mobile-force-mobile-change t)
+   (memq 'tags org-mobile-force-mobile-change))
+(save-excursion
+ (end-of-line 1)
+ (org-insert-heading-respect-content)
+ (org-demote)
+  (insert new)))
+   (t (error "New heading could not be created"
+
+ ((eq what 'delete)
+  (setq current (buffer-substring (point-at-bol) (save-excursion
+  (org-goto-sibling)
+  (point-at-bol
+  (cond
+   ((or t ; do check here
+   (eq org-mobile-force-mobile-change t)
+   (memq 'tags org-mobile-force-mobile-change))
+   (beginning-of-line 1)
+   (delete-region (point-at-bol)
+  (save-excursion (org-goto-sibling)
+  (point-at-bol
+   (t (error "Could not delete heading"
+
+ ((eq what 'archive)
+  (setq current (buffer-substring (point-at-bol) (save-excursion
+  (org-goto-sibling)
+  (point-at-bol
+  (cond
+   ((or t ; do check here
+   (eq org-mobile-force-mobile-change t)
+   (memq 'tags org-mobile-force-mobile-change))
+   (beginning-of-line 1)
+   (org-archive-to-archive-sibling))
+   (t (error "Could not archive heading"
+
+ ((eq what 'refile)
+  (setq current (buffer-substring (point-at-bol) (save-excursion
+  (org-goto-sibling)
+  (point-at-bol
+  (cond
+   ((or t ; do check here
+   (eq org-mobile-force-mobile-change t)
+   (memq 'tags org-mobile-force-mobile-change))
+   (beginning-of-line 1)
+   (org-refile))
+   (t (error "Could not refile heading"
+
+
  ((eq what 'body)
   (setq current (buffer-substring (min (1+ (point-at-eol)) (point-max))
  (save-excursion (outline-next-heading)


[O] TODO agenda filtering on priority?

2012-04-07 Thread James Harkins
How to make a TODO agenda search that will show only #A priority items? (Or #B 
or #C?)

I see in the manual how to search on tags or properties, but not priorities. I 
suppose I can write a custom function, but I don't see documentation on the 
argument(s) passed to that function.

In the end, I want to make an block agenda with the priorities in different 
blocks.

Any advice appreciated. Thanks.
hjh


--
James Harkins /// dewdrop world
jamshar...@dewdrop-world.net
http://www.dewdrop-world.net

"Come said the Muse,
Sing me a song no poet has yet chanted,
Sing me the universal."  -- Whitman

blog: http://www.dewdrop-world.net/words
audio clips: http://www.dewdrop-world.net/audio
more audio: http://soundcloud.com/dewdrop_world/tracks



[O] [babel] would like to to do simple text block expansion with parameters or multiline macro replacement text

2012-04-07 Thread Olaf.Hamann

Hello all,

I'm very happy with all the new features I discovered in org-babel 
(since 6.8 or so) and played around a lot trying to convert my old 
funnelweb-techniques (kind of LPstuff) into org-babel and now I'm a 
little confused with all that elaborated stuff like header arguments, 
result options :var types and function calls and so on :-)


Is there an easy way to do a simple text block expansion with 
parameters, I mean sth like this:


#+begin_src xsl :tangle outputfile :noweb tangle
{{{gCV(argument1,param2)}}}
<>
#+end_src

#+MACRO: gCV replacement text...
...spread over different...
...multiple lines  with arguments like $1 ...
...and $2 and so on...
...
#+end_macro

Multiline macros did not work in my tries (Org version 7.8.03 with Emacs 
version 24)


For expanding macros inside srcblocks I got this hint from the list some 
time ago what works really fine:


#+begin_src emacs-lisp :results silent :exports none
  (add-hook 'org-babel-tangle-body-hook
(lambda () (org-export-preprocess-apply-macros)))
#+end_src


Below I give an executable example in org-code. It's stripped down from 
my work.
It works fine, but I would like to get rid of the lisp-concat and 
string-quoting and wonder if org-mode does not offer another way.



Thank you very much in advance,
Olaf



* simple text block expansion with parameters

#+NAME: gCV(PDEF="param_pdef",XPATH="param_value")
#+begin_src emacs-lisp :results value   :exports results :noweb tangle
  (concat
"
  
   " )
#+end_src


#+begin_src xsl :tangle mappings.xslt :noweb tangle
  
 
   <>
   <>
   
 
  
#+end_src



Output looks like expected:



 
   
   
 
   









[O] Only use `visual-line-mode if it's bound`[WAS: Current patches for XEmacs]

2012-04-07 Thread Michael Sperber

Bastien  writes:

> Can you send each patch in a separate email using 
> `git format-patch'?

Attached.  The second one will follow shortly.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
>From 18a83ce61fb420e85987e77f8506c01023a22c16 Mon Sep 17 00:00:00 2001
From: Mike Sperber 
Date: Wed, 4 Apr 2012 09:48:05 +0200
Subject: [PATCH] Only use `visual-line-mode' if it's bound.

* org.el (org-kill-line): Access `visual-line-mode' only if it's
bound.
---
 lisp/org.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index b83700f..8d9d793 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20793,7 +20793,7 @@ depending on context."
(not (y-or-n-p "Kill hidden subtree along with headline? ")))
(error "C-k aborted - would kill hidden subtree")))
 (call-interactively
- (if visual-line-mode 'kill-visual-line 'kill-line)))
+ (if (and (boundp 'visual-line-mode) visual-line-mode) 'kill-visual-line 
'kill-line)))
((looking-at (org-re ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)[ \t]*$"))
 (kill-region (point) (match-beginning 1))
 (org-set-tags nil t))
-- 
1.7.0.5



[O] Fix bug in `org-footnote-normalize' [WAS: Current patches for XEmacs]

2012-04-07 Thread Michael Sperber

Bastien  writes:

> Can you send each patch in a separate email using 
> `git format-patch'?

Here's the second one.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
>From b088bfff32d024ec67fcf8ee0812244128198d93 Mon Sep 17 00:00:00 2001
From: Mike Sperber 
Date: Wed, 4 Apr 2012 09:21:44 +0200
Subject: [PATCH 1/2] Fix bug ion `org-footnote-normalize'.

* org-footnote.el (org-footnote-normalize): Correctly pass keyword
arguments to `org-export-preprocess-string'.
---
 lisp/org-footnote.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el
index 03b95d0..1987779 100644
--- a/lisp/org-footnote.el
+++ b/lisp/org-footnote.el
@@ -705,7 +705,7 @@ Additional note on 
`org-footnote-insert-pos-for-preprocessor':
 (org-combine-plists
  export-props
  '(:todo-keywords t :tags t :priority t
-   (org-export-preprocess-string def parameters))
+   (apply #'org-export-preprocess-string def 
parameters))
def)
  ;; Reference beginning position is a marker
  ;; to preserve it during further buffer
-- 
1.7.0.5



Re: [O] TODO agenda filtering on priority?

2012-04-07 Thread Michael Brand
Hi James

On Sat, Apr 7, 2012 at 17:59, James Harkins  wrote:
> How to make a TODO agenda search that will show only #A priority items? (Or 
> #B or #C?)
> I see in the manual how to search on tags or properties, but not priorities.

The manual has an example for matching PRIORITY, linked from several
other manual pages about searches, here:
http://orgmode.org/manual/Matching-tags-and-properties.html

> In the end, I want to make an block agenda with the priorities in different 
> blocks.

Be aware to set #B explicitly on the headline because of an issue with
the default priority described here:
http://lists.gnu.org/archive/html/emacs-orgmode/2011-07/msg00525.html

Michael



Re: [O] TODO agenda filtering on priority?

2012-04-07 Thread James Harkins
At Sat, 7 Apr 2012 21:22:59 +0200,
Michael Brand wrote:
> 
> Hi James
> 
> On Sat, Apr 7, 2012 at 17:59, James Harkins  wrote:
> > How to make a TODO agenda search that will show only #A priority items? (Or 
> > #B or #C?)
> > I see in the manual how to search on tags or properties, but not priorities.
> 
> The manual has an example for matching PRIORITY, linked from several
> other manual pages about searches, here:
> http://orgmode.org/manual/Matching-tags-and-properties.html

Oops, missed that, thanks.

> > In the end, I want to make an block agenda with the priorities in different 
> > blocks.
> 
> Be aware to set #B explicitly on the headline because of an issue with
> the default priority described here:
> http://lists.gnu.org/archive/html/emacs-orgmode/2011-07/msg00525.html

Ugh, no fun. Maybe I'll try to figure out a custom search function.
hjh


--
James Harkins /// dewdrop world
jamshar...@dewdrop-world.net
http://www.dewdrop-world.net

"Come said the Muse,
Sing me a song no poet has yet chanted,
Sing me the universal."  -- Whitman

blog: http://www.dewdrop-world.net/words
audio clips: http://www.dewdrop-world.net/audio
more audio: http://soundcloud.com/dewdrop_world/tracks



[O] ledger file in org mode hangs during code block eval

2012-04-07 Thread Alexandros Bantis

Hello all,

Hoping someone might be help me diagnose this problem. I recently 
changed my linux distro from ubuntu to arch linux. I had an org-file 
that was running very well (over a year) up until the switch over. I 
have monthly entries separated into separate src ledger code blocks. 
When I do C-c C-c on a code block, it updates the results just fine. But 
when I try to update a report, it hangs for about 15 seconds and I get 
the following message:


executing Ledger code block...
executing Ledger source code block
ledger -f /tmp/babel-13899vK/ledger-1389JnV -c -d "T&l<=3" bal
Error: Please specify ledger file using -f or LEDGER_FILE environment 
variable.

Code block evaluation complete.

The code block that is being evaluated is only 127 lines in length.

emacs version: GNU Emacs 23.4.1 (x86_64-unknown-linux-gnu, GTK+ Version 
2.24.9) of 2012-02-01 on shirley.hoetzel.inf


org-version: Org-mode version 7.8.08

$ ledger -version
Ledger 2.6.3, the command-line accounting tool

The file that I'm using is an org-mode file encrypted with ccrypt, but 
when I create a duplicate unencrypted file, I get the same exact 
results. Thus, the problem doesn't seem to be related to ccrypt.


When I paste the code block to a separate text file and run the command 
that was output from the *Messages* buffer. Thus, the problem doesn't 
seem to be related to ledger.


Here's the relevant output from my installation log (pacman.log):

[2012-04-06 18:38] Running 'pacman -U 
/tmp/yaourt-tmp-root/PKGDEST.6kK/emacs-org-mode-7.8.08-1-any.pkg.tar.xz'
[2012-04-06 18:38] To enable this version of org-mode instead of the one 
shipped with emacs,

[2012-04-06 18:38] add the line:
[2012-04-06 18:38] (require 'org-install)
[2012-04-06 18:38] to your .emacs file.
[2012-04-06 18:38]
[2012-04-06 18:38] NOTE: info documentation for emacs-org-mode goes now 
as 'orgmode' in /usr/share/info,
[2012-04-06 18:38]   It does NOT replace the 'org' info files 
shipped with emacs:

[2012-04-06 18:38] $ info orgmode ## this version
[2012-04-06 18:38] $ info org ## emacs' org version 
(currently 6.21)

[2012-04-06 18:38] installed emacs-org-mode (7.8.08-1)

$ whereis emacs
emacs: /usr/bin/emacs /usr/lib/emacs /usr/share/emacs 
/usr/share/man/man1/emacs.1.gz


relevant part from my .emacs file:

;; with a new installation
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))
(require 'org-install)

and I did confirm that the org-mode installation did install into that 
folder.


Any ideas?

alexandros bantis