Re: [O] a minor patch to awk invocation

2014-06-13 Thread Achim Gratz

The problem was that

a) I'm using tcsh.

b) Some part of the system-wide csh.cshrc related to Emacs' shell-mode
   was also run for non-interactive shell invocation while only
   appropriate for interactive use (that's where the errors from tset
   and stty came from).

c) Your second patch 6fb033c791 corrected a mistake in test-ob-awk.el
   that had shadowed the test invocation which produces the error and
   thus this particular test had never run before.


Regards,
Achim.
-- 
+[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]+

Wavetables for the Terratec KOMPLEXER:
http://Synth.Stromeko.net/Downloads.html#KomplexerWaves




Re: [O] babel C, C++, D enhancement

2014-06-13 Thread Achim Gratz
Eric Schulte writes:
 This new patch looks great, and the test suite passes locally.  I've
 just applied it.

You also get a warning from the byte-compiler on something that is
clearly a bug.  I think the fix should be:

--8---cut here---start-8---
diff --git a/lisp/ob-C.el b/lisp/ob-C.el
index dd03fa7..a794e2a 100644
--- a/lisp/ob-C.el
+++ b/lisp/ob-C.el
@@ -264,7 +264,7 @@ (defun org-babel-C-val-to-C-type (val)
 (list
  (if (equal org-babel-c-variant 'd) string const char*)
  \%s\))
-   (t (error unknown type %S type)
+   (t (error unknown type %S basetype)
 (cond
  ((integerp val) type) ;; an integer declared in the #+begin_src line
  ((floatp val) type) ;; a numeric declared in the #+begin_src line
--8---cut here---end---8---

The type determination is a tad optimistic, too.  An Emacs integer may
or may not fit into C type int depending on how Emacs is compiled and
which compiler you are using.


Regards,
Achim.
-- 
+[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]+

Factory and User Sound Singles for Waldorf rackAttack:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds




Re: [O] Alternative to arrow keys (more ergonomic)?

2014-06-13 Thread Martin Beck
Jorge A. Alfaro-Murillo jorge.a.alfaro at gmail.com writes:
 I have the (totally useless) CapsLock key of my keyboard remapped to
 Hyper, which allows me to use an extra modifier for emacs commands.
 

Hi Jorge,

thanks a lot for your suggestion - for me, that CapsLock key is useless too,
so it's a good idea to use it for that.

Sorry, if it may be obvious, but how do I remap CapsLock to H (Hyper)?

Kind regards

Martin




[O] can't make Agenda timestamp sorting work...

2014-06-13 Thread Eric Abrahamsen
Okay, I've read a fair bit in the archives here, and I can't see what
I'm doing wrong. I've globally set `org-agenda-sorting-strategy' to
'(ts-up). I want to sort TODO entries in the agenda by timestamp.

I can't figure out where to put the timestamp to make it work. It looks
like `org-cmp-ts' tries to get the 'timestamp text property from the
heading, but none of my headings display that property in that function.
I've festooned the headings with timestamps -- where is it supposed to
go?

** REPLY [[link]] 2014-06-13 Fri
   2014-07-13 Sun
   :PROPERTIES: etc
   2011-06-13 Mon


Or is some other setting that's blocking this from taking effect? I
noticed other people in the archives saying that timestamps on heading
lines didn't appear in the Agenda, but mine do. Could that be related?

Puzzled,
Eric




Re: [O] Alternative to arrow keys (more ergonomic)?

2014-06-13 Thread Martin Beck
Martin Beck elwood151 at web.de writes:

 Sorry, if it may be obvious, but how do I remap CapsLock to H (Hyper)?
 
 Kind regards
 
 Martin
 
 


p.s. I tried 
;; remap CapsLock Key to Hyper Key
;;source: http://ergoemacs.org/emacs/emacs_hyper_super_keys.html ,
http://emacs-fu.blogspot.de/2008/12/remapping-caps-lock.html
(setq w32-enable-caps-lock nil)
(global-set-key [capslock] 'hyper)

but when trying to use your keys, it returns an error, that function hyper
is void.
How can I define/enable it?

Martin








Re: [O] can't make Agenda timestamp sorting work...

2014-06-13 Thread Samuel Wales
a parser expert can correct me, but headline and after properties
should both be fine.  several of us rely on timestamps in headlines.

there is a [broken] variable to remove timestamps from headlines, but
i don't think it's relevant.

have you tried timestamp-up?

-- 
The Kafka Pandemic: http://thekafkapandemic.blogspot.com

The disease DOES progress.  MANY people have died from it.  And
ANYBODY can get it.

Denmark: free Karina Hansen NOW.



Re: [O] can't make Agenda timestamp sorting work...

2014-06-13 Thread Eric Abrahamsen
Samuel Wales samolog...@gmail.com writes:

 a parser expert can correct me, but headline and after properties
 should both be fine.  several of us rely on timestamps in headlines.

 there is a [broken] variable to remove timestamps from headlines, but
 i don't think it's relevant.

 have you tried timestamp-up?

That did it! Thanks so much. I was only trying ts-up and tsia-up. The
docstring might be wrong then when it says timestamp-up is for any
timestamp, and ts-up is for active timestamp -- you'd assume that the
one would simply be a subset of the other.

In fact this works so well that I don't need to change my capture
templates. When capturing from emails, I've got the template set up to
make the first body paragraph read Receieved on [inactive timestamp].
I suddenly realized I should be sorting on that for the agenda, and then
I assumed I'd have to change the template to put the date somewhere more
accessible, but timestamp-up finds it there.

Thanks again,
Eric




Re: [O] can't make Agenda timestamp sorting work...

2014-06-13 Thread Eric Abrahamsen
Samuel Wales samolog...@gmail.com writes:

 a parser expert can correct me, but headline and after properties
 should both be fine.  several of us rely on timestamps in headlines.

 there is a [broken] variable to remove timestamps from headlines, but
 i don't think it's relevant.

 have you tried timestamp-up?

Ugh, it doesn't work in a custom Agenda block, though...




[O] Lots of sticky search agendas clutter buffer list

2014-06-13 Thread Martin Beck
I like the sticky agenda feature very much, so Ive activated sticky agendas in general.

Thats useful, as I have several filtered and sorted views of my projects and tasks which I do use quite often during the day and want to have open permanently.



However, when I do a search by tag, keyword, etc., I also get a sticky agenda.

From the search results I usually jump to another buffer and forget the agenda, so my buffer list gets quickly populated (and cluttered) with lots of search agenda buffers...



How do you handle that?

Is there a way so kill all buffers which match e. g. Org Agend (s: with one command?



Kind regards



Martin



Re: [O] [Patch] Create org-gnus links to real groups, not virtual groups

2014-06-13 Thread Bastien
Hi Eric,

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

 If you create a link to a gnus message while in a nnvirtual group, the
 link will become un-followable as soon as you exit the virtual group.
 This patch checks to see if we're in a virtual group, and if so it
 creates the link to the original group instead.

applied, thanks.  I slightly modified the change log.

-- 
 Bastien



Re: [O] Bug: Literal Example does not work [7.9.3f (release_7.9.3f-17-g7524ef @ /usr/share/emacs/24.3/lisp/org/)]

2014-06-13 Thread Bastien
Hi Hisao,

KURODA Hisao kur...@msi.co.jp writes:

 It would be much great if org-mode has upper-compatible notation like:
 #+ORG_VERSION 7
 Then I could use
 #+STYLE
 as well?

If you want to use #+STYLE you should use Org-mode from git and
checkout an older version

~$ cd org-mode/
~$ git checkout release_7.9
~$ make

But updating files and replacing the old syntax by the new one
seems really better.

HTH,

-- 
 Bastien



Re: [O] [BUG] org-log-note-how defined twice in org.el

2014-06-13 Thread Bastien
Hi Thorsten,

Thorsten Jolitz tjol...@gmail.com writes:

 I assume this shouldn't be the case (in org.el):

   ,
   | 13097:(defvar org-log-note-how)
   | 13496:(defvar org-log-note-how nil)
   `

Fixed, thanks,

-- 
 Bastien



Re: [O] export org-table to wiki code

2014-06-13 Thread Bastien
Hi,

Shiyuan gshy2...@gmail.com writes:

     Is there a way to export a org-table to wiki code?

I didn't test it but it looks like it will do what you want:

https://github.com/craftkiller/orgmode-mediawiki

-- 
 Bastien



Re: [O] Scroll agenda to a certain line after refresh or creation?

2014-06-13 Thread Bastien
Hi Martin,

Martin Beck elwood...@web.de writes:

 Can I let the agenda scroll automatically to the line with the
 current time, which looks like that (naturally, the time is not a
 constant) after building or rebuilding it?

You can bind a key to this command:

(lambda ()
  (interactive)
  (goto-char
   (text-property-any (point-min) (point-max)
  'face 'org-agenda-current-time)))

 How can I apply a special face to this line to make it better visible
 (but only in this agenda view, not in others)?

M-x customize-face RET org-agenda-current-time RET

HTH,

-- 
 Bastien



Re: [O] inline images outside org

2014-06-13 Thread Bastien
Hi Christoph,

Christoph Held GMX christoph...@gmx.net writes:

 How do I check the syntax of the underlying link of which I currently
 only see the pretty face?

C-h v fancy-startup-text RET

...

but you really don't want to read this, all those links in the startup
screen are simply hardcoded.

-- 
 Bastien



Re: [O] [bug] [new exporter] [markdown] spoiled URL containing '=' if using http/s org-links

2014-06-13 Thread Bastien
Hi Martin,

can you try Org latest version from git and says if this still happen?

Thanks,

-- 
 Bastien



Re: [O] org-plus-contrib should provide org

2014-06-13 Thread Bastien
Vladimir Alexiev vladimir.alex...@ontotext.com writes:

 The org-plus-contrib package on http://orgmode.org/elpa/ should provide org-
 8.0

Why do you think it does not?

-- 
 Bastien



Re: [O] how to use :options-alist in org-export-define-derived-backend ?

2014-06-13 Thread Bastien
Hi Nicolas,

Nicolas Goaziou n.goaz...@gmail.com writes:

 Anyway, this bug is due to a cheesy workaround in order to get original
 file name or buffer name if no title is provided. It should work in
 maint now, but I suggest to get rid of that behaviour in master, as
 suggested in a recent thread.

sorry I lost track -- what is the behavior you want to get rid on
exactly?

-- 
 Bastien



Re: [O] babel C, C++, D enhancement

2014-06-13 Thread Bastien
Hi Eric and Thierry,

Eric Schulte schulte.e...@gmail.com writes:

 This new patch looks great, and the test suite passes locally.  I've
 just applied it.

Thanks for applying this -- let me just be boring again and insist on
properly rewrite the Changelog when applying patches... in this case,
there are a lot of tiny formatting issues I will need to fix myself
when merging into Emacs :/

Thanks to both of you!

-- 
 Bastien



Re: [O] Scroll agenda to a certain line after refresh or creation?

2014-06-13 Thread Bastien
Hi Martin,

Martin Beck elwood...@web.de writes:

 I'd like to just execute it like a shell command with M-x, but I did not
 find a way to do that.

M-: (...) RET

 How can I define that this command is executed each time I build or refresh
 a certain (not all) block agenda?

You can add it in `org-agenda-finalize-hook' but this will execute it
for all hook.  And the command is dumb, if there is no time grid, it
will throw an error.

-- 
 Bastien



[O] World Cup 2014 Schedule for Org-mode

2014-06-13 Thread Rüdiger Sonderfeld
Hello,

I've created an org-mode schedule for the 2014 football world cup

  https://github.com/ruediger/org-world-cup2014

Feel free to correct mistakes and add match results!

Regards,
Rüdiger




[O] Org 8.2.7

2014-06-13 Thread Bastien
Hi all,

I released Org 8.2.7, a bugfix release.

This comes with some important changes under the wood,
though, so careful tests and bug reports are welcome!

Thanks,

-- 
 Bastien




Re: [O] patch: Oracle engine for SQL blocks

2014-06-13 Thread Eric Schulte
John Dell'Aquila del...@ml1.net writes:

 Thanks, Eric. I've started the FSF assignment process.

 I have a question about the header row delimiter in the results table. I
 didn't set the header-delim variable in the code, becasue the user can
 change the Oracle underline character, possibly multiple times, so it is
 difficult to work out a proper setting.

 The results appeared OK with header-delim left at . I now realize that
 this causes the table to be mis-parsed when the first column is blank,
 even though it has a proper header.

 I put in a fix to scan for the first set underline command and use
 that character, otherwise set header-delim to -. In the process of
 testing I found I could always set header-delim to '-' and the table
 parsed correctly even when the actual Oracle delimiter was set
 differently.

 I'm wondering how this is supposed to work. I'd rather not add
 unecessary complexity, but I don't want on rely on a bug or misfeature
 either.


I'm not familiar with this portion of ob-sql, so I'll defer to your best
judgment.

Best,

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D (see https://u.fsf.org/yw)



Re: [O] conforming commit messages Was: babel C, C++, D enhancement

2014-06-13 Thread Eric Schulte
Bastien b...@gnu.org writes:

 Hi Eric and Thierry,

 Eric Schulte schulte.e...@gmail.com writes:

 This new patch looks great, and the test suite passes locally.  I've
 just applied it.

 Thanks for applying this -- let me just be boring again and insist on
 properly rewrite the Changelog when applying patches... in this case,
 there are a lot of tiny formatting issues I will need to fix myself
 when merging into Emacs :/

 Thanks to both of you!

Mea culpa!

I glanced at it and it looked good, but I'll be more careful moving
forward.  Does anyone on the list happen to have or know of a script
which could be used to automatically check for conforming commit
messages?  If so I'm sure git provides a hook to make passing such a
script part of the git commit process.  That's the only way I'll really
be consistent about this.

Thanks,
Eric

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D (see https://u.fsf.org/yw)



Re: [O] proposal to have ignoreheading tags/properties

2014-06-13 Thread Eric Schulte
Ken Mankoff mank...@gmail.com writes:

 Hi Eric,  On 2014-06-12 at 20:46, Eric Schulte wrote: 
 Can you suggest a more intuitive/appropriate tag name?  I'm not
 personally partial to inline, it was just the first thing that
 occurred to me.  Previous implementations of similar behavior used
 the tag prelim. 

 I posted the following before. I think you might not be getting all
 the emails I post to the list. For example, I commented that INLINE as
 a TODO keyword didn't make sense to me using a similar explanation to
 your reply to that same email.   I have used your implementation from
 last week using prelim but changed the word, because as with
 inline, I don't associate the word prelim with the behavior being
 implemented. 


Sounds like I'm missing something.


  -k.

 I vote for the following tags:

 + :noexport: Does not export item, content, and children.
 + :ignoreheading: Does not export heading. Exports content and
 children.
 + :ignorecontent: Does not export heading or content. Does export
 children.
 + :ignorebranch: Does not export heading, content, or children.
 + :promotesubheadings: Promotes children headings, regardless of
  exporting this heading or not

 Note that :ignorebranch: is the same as :noexport but is a more
 consistent naming scheme. Ignoring and promotion are two separate
 items
 and can be used together or exclusively for maximum number of export
 behaviors.

This feels excessive to me.  ignorecontent could more easily be
implemented with a leading ignored heading, and the common use case of
promoting a heading's children while ignoring the heading itself now
requires two tags with long names.

Best,
Eric

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D (see https://u.fsf.org/yw)



Re: [O] babel C, C++, D enhancement

2014-06-13 Thread Eric Schulte
Achim Gratz strom...@nexgo.de writes:

 Eric Schulte writes:
 This new patch looks great, and the test suite passes locally.  I've
 just applied it.

 You also get a warning from the byte-compiler on something that is
 clearly a bug.  I think the fix should be:

 --8---cut here---start-8---
 diff --git a/lisp/ob-C.el b/lisp/ob-C.el
 index dd03fa7..a794e2a 100644
 --- a/lisp/ob-C.el
 +++ b/lisp/ob-C.el
 @@ -264,7 +264,7 @@ (defun org-babel-C-val-to-C-type (val)
(list
 (if (equal org-babel-c-variant 'd) string const char*)
 \%s\))
 - (t (error unknown type %S type)
 + (t (error unknown type %S basetype)
  (cond
   ((integerp val) type) ;; an integer declared in the #+begin_src line
   ((floatp val) type) ;; a numeric declared in the #+begin_src line
 --8---cut here---end---8---


Agreed, I've just pushed up a fix.  Please feel free to push these sorts
of obvious bug fixes yourself in the future.


 The type determination is a tad optimistic, too.  An Emacs integer may
 or may not fit into C type int depending on how Emacs is compiled and
 which compiler you are using.


Certainly, more refinement wouldn't hurt.

Best,
Eric



 Regards,
 Achim.

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D (see https://u.fsf.org/yw)



Re: [O] Scroll agenda to a certain line after refresh or creation?

2014-06-13 Thread Martin Beck
Bastien bzg at gnu.org writes:

 You can bind a key to this command:
 
 (lambda ()
   (interactive)
   (goto-char
(text-property-any (point-min) (point-max)
 'face 'org-agenda-current-time)))
 
  How can I apply a special face to this line to make it better visible
  (but only in this agenda view, not in others)?
 
 M-x customize-face RET org-agenda-current-time RET

Salut Bastien,

thanks a lot. Indeed that helps, but it arises 2 more questions...

How can I test a command like the one you sent me without saving it in a
buffer and binding a key to it?
I'd like to just execute it like a shell command with M-x, but I did not
find a way to do that. 

How can I define that this command is executed each time I build or refresh
a certain (not all) block agenda?

Kind regards

Martin





Re: [O] World Cup 2014 Schedule for Org-mode

2014-06-13 Thread briangpowell .
Brazil - Croatia: 3-1

Feel free to correct mistakes and add match results!

Well, Fred did some play-acting and a dive in the box--this is more
accurate: Brazil - Croatia: 2-1

;-)

Thanks Rüdiger!



On Fri, Jun 13, 2014 at 7:48 AM, Rüdiger Sonderfeld ruedi...@c-plusplus.de
wrote:

 Hello,

 I've created an org-mode schedule for the 2014 football world cup

   https://github.com/ruediger/org-world-cup2014

 Feel free to correct mistakes and add match results!

 Regards,
 Rüdiger





Re: [O] Org 8.2.7

2014-06-13 Thread Eric Schulte
Bastien b...@gnu.org writes:

 Hi all,

 I released Org 8.2.7, a bugfix release.

 This comes with some important changes under the wood,

Much classier than making changes under the hood.

Thanks for the your constant support!
Eric

 
 though, so careful tests and bug reports are welcome!

 Thanks,

-- 
Eric Schulte
https://cs.unm.edu/~eschulte
PGP: 0x614CA05D (see https://u.fsf.org/yw)



Re: [O] World Cup 2014 Schedule for Org-mode

2014-06-13 Thread Thorsten Jolitz
briangpowell . briangpowel...@gmail.com writes:

 Brazil - Croatia: 3-1

 Feel free to correct mistakes and add match results!

 Well, Fred did some play-acting and a dive in the box--this is more
 accurate: Brazil - Croatia: 2-1

 ;-)

Even this is not accurate, because without that penalty the game might
have taken a completely different direction. Maybe change it to

Brazil+Referee vs Croatia: 3-1

;)

But anyway: Thanks Rüdiger!

 On Fri, Jun 13, 2014 at 7:48 AM, Rüdiger Sonderfeld
 ruedi...@c-plusplus.de wrote:

 Hello,
 
 I've created an org-mode schedule for the 2014 football world cup
 
 https://github.com/ruediger/org-world-cup2014
 
 Feel free to correct mistakes and add match results!
 
 Regards,
 Rüdiger
 
 



-- 
cheers,
Thorsten




[O] bug#17746: bug#17746: 24.4.50; byte-code: `recenter'ing a window that does not display current-buffer. when composing a message

2014-06-13 Thread Nicolas Richard
Bastien b...@gnu.org writes:

 I've now fixed this in the maint and master branch of Org's
 repository.

Thanks for looking into it.

Perhaps this isn't the right place to ask, but I wonder how
(save-excursion (set-window-start (selected-window) (window-start)))
isn't a noop.

-- 
Nico.





[O] Bug: org table updates [8.2.7 (8.2.7-elpaplus @ /Users/ctanis/.emacs.d/elpa/org-plus-contrib-20140613/)]

2014-06-13 Thread Craig Tanis

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.


The code in org.el that checks for table movement to support
`org-table-auto-blank-field' has hardcoded an obsolete yasnippet
function.

Specifically, there's a line in `org-self-insert-command' that checks
`last-command' against a list of table movement functions to see if
auto-blank-field should occur.  This list includes 
`yas/expand' -- obsolesced in yasnippet 0.8, in favor of `yas-expand'.

In my opinion, this list should be a configurable variable, as other
minor modes may introduce functions that should also trigger auto-blank
behavior.  I also check for `autopair-newline' here, since this is the
binding for RET when autopair-mode is active.



Emacs  : GNU Emacs 24.3.1 (x86_64-apple-darwin13.1.0, NS apple-appkit-1265.19)
of 2014-05-05 on zartan.local
Package: Org-mode version 8.2.7 (8.2.7-elpaplus @ 
/Users/ctanis/.emacs.d/elpa/org-plus-contrib-20140613/)

current state:
==
(setq
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-goto-interface 'outline-path-completion
org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
org-agenda-diary-file ~/Dropbox/org/diary.org
org-mac-grab-Chrome-app-p nil
org-occur-hook '(org-first-headline-recenter)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-log-done 'time
org-confirm-shell-link-function 'yes-or-no-p
org-image-actual-width nil
org-mac-grab-Firefox-app-p nil
org-startup-folded nil
org-yank-folded-subtrees nil
org-list-allow-alphabetical t
org-special-ctrl-a/e 'reversed
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
  (define-key org-mode-map (kbd C-c g) (quote 
org-mac-grab-link)))
 #[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
 (lambda nil (make-variable-buffer-local (quote 
yas/trigger-key))
  (setq yas/trigger-key [tab])
  (add-to-list (quote org-tab-first-hook)
   (quote yas/org-very-safe-expand))
  (define-key yas/keymap [tab] (quote yas/next-field)))
 (lambda nil (local-set-key \220 (quote org-backward-element))
  (local-set-key \216 (quote org-forward-element))
  (local-set-key \373 (quote backward-paragraph))
  (local-set-key \375 (quote forward-paragraph))
  (local-set-key \225 (quote org-up-list-or-element))
  (local-set-key \204 (quote org-down-element))
  (local-set-key \367 (quote org-refile-fullpath))
  (local-set-key \342 (quote org-mark-ring-goto))
  (local-set-key \356 (quote org-next-block))
  (local-set-key \360 (quote org-previous-block))
  (auto-fill-mode 1) (toggle-truncate-lines -1)
  (local-set-key (kbd C-c SPC) (quote ace-jump-mode)))
 )
org-refile-targets '((nil :maxlevel . 9))
org-outline-path-complete-in-steps nil
org-use-speed-commands t
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/org
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-archive-default-command 'org-toggle-archive-tag
org-hide-emphasis-markers t
org-catch-invisible-edits 'smart
org-babel-tangle-lang-exts '((python . py) (java . java) (C++ . cpp)
  (perl . pl) (emacs-lisp . el))
org-confirm-elisp-link-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-log-into-drawer t
org-completion-use-ido t
org-babel-load-languages '((emacs-lisp . t) (perl . t) (C . t) (java . t)
(python . t) (ditaa . t) (dot . t) (gnuplot . t)
(octave . t) (calc . t) (sh . t))
org-cycle-global-at-bob

Re: [O] World Cup 2014 Schedule for Org-mode

2014-06-13 Thread Brian van den Broek
On Jun 13, 2014 8:44 AM, Thorsten Jolitz tjol...@gmail.com wrote:

 Even this is not accurate, because without that penalty the game might
 have taken a completely different direction. Maybe change it to

 Brazil+Referee vs Croatia: 3-1

Well, if we are going to start counting that way, Brazil+Referee vs
Croatia+Brazil: 3-1, surely :-)

Best,

Brian vdB


Re: [O] World Cup 2014 Schedule for Org-mode

2014-06-13 Thread Thorsten Jolitz
Brian van den Broek brian.van.den.br...@gmail.com writes:

 On Jun 13, 2014 8:44 AM, Thorsten Jolitz tjol...@gmail.com wrote:

 Even this is not accurate, because without that penalty the game
 might
 have taken a completely different direction. Maybe change it to

 Brazil+Referee vs Croatia: 3-1

 Well, if we are going to start counting that way, Brazil+Referee vs
 Croatia+Brazil: 3-1, surely :-)

Thats it, almost mathematically pure and precise ;)

-- 
cheers,
Thorsten




Re: [O] proposal to have ignoreheading tags/properties

2014-06-13 Thread Rasmus
Eric Schulte schulte.e...@gmail.com writes:


 I also ran across this need. What I had in mind was that certain todo

 types would be treated as inline.
 For instance, if P was a member of this hypothetical
 org-inline-todo-keywords, then

 * P a paragraph
   some contents

 would be rendered as

 some contents

 by the exporter, no matter the backend.

 Such a feature is more generic and would be useful in other contexts ;
 and the LaTeX-related issues discussed in this thread would be solved
 using something like

 * INLINE appendix
   \appendix
 * Appendix 1


 Why TODO types rather than a tag?  IMO using a TODO type would conflate
 task management and document structuring.  What do you think about the
 attached patch which should add this functionality to the core.

I would be happy to see this change in core, as I use
ignoreheading-like tags all of the time.  On the other hand it's not
particularly elegant, but it's already in ox-beamer.el, so that's
probably OK.

Thanks,
Rasmus

-- 
Er du tosset for noge' lårt!




Re: [O] Alternative to arrow keys (more ergonomic)?

2014-06-13 Thread Jorge A. Alfaro-Murillo
Martin Beck elwood...@web.de writes:

 Sorry, if it may be obvious, but how do I remap CapsLock to H
 (Hyper)?
 

 p.s. I tried ;; remap CapsLock Key to Hyper Key ;;source:
 http://ergoemacs.org/emacs/emacs_hyper_super_keys.html ,
 http://emacs-fu.blogspot.de/2008/12/remapping-caps-lock.html (setq
 w32-enable-caps-lock nil) (global-set-key [capslock] 'hyper)

Dear Martin,

I think you should try to do that outside of emacs, in the configuration
of your system. I use Linux so I only have an answer for that.

I think the easiest way is to create a configuration file for xmodmap,
the common location and name is ~/.Xmodmap. My file looks like this:

#+BEGIN_EXAMPLE
clear control
clear lock
clear mod1
clear mod3
clear mod4

keycode 66 = Hyper_L
keycode 37 = Super_L
keycode 133 = Alt_L Meta_L
keycode 64 = Control_L
keycode 108 = Control_R
keycode 135 = Alt_R Meta_R
keycode 105 = Menu

add mod1 = Alt_R Alt_L Meta_R Meta_L
add mod3 = Hyper_L
add mod4= Super_L
add control = Control_R Control_L
#+END_EXAMPLE

In this case I have Hyper where the CapsLock key is, and the final row
which in the keyboard is:

Control Super Alt Space Alt MenuKey Control

gets mapped to:

Super Alt/Meta Control Space Control Alt/Meta MenuKey

(which drives anyone that tries my computer nuts, but it is very
comfortable for emacs.)

The keycodes with numbers in the example are the positions of the keys
in my keyboard. This is different depending on your keyboard, so you
have to figure out yours. For that, use the program xev (in a terminal
type xev) and press the keys that you are interested to map. Between
many information it will give you the keycode for each key you press.

Once you finish with the .Xmodmap file, you can load the configuration
by typing in a terminal 'xmodmap .Xmodmap' (without the single quotes).

If you are using GDM, XDM or KDM, in particular under Gnome or KDE, the
.Xmodmap file is loaded automatically every time you start a session. If
you are not using any of those, you can modify the file ~/.xinitrc (or
~/.config/openbox/autostart in Openbox):

#+BEGIN_EXAMPLE
if [ -s ~/.Xmodmap ]; then
xmodmap ~/.Xmodmap
fi
#+END_EXAMPLE

I hope it helps.

Best,

Jorge

PS: For linux check also XKB.




Re: [O] proposal to have ignoreheading tags/properties

2014-06-13 Thread Rasmus
Thorsten Jolitz tjol...@gmail.com writes:

 Ken Mankoff mank...@gmail.com writes:

 Another common (for me) example is to have a heading called * Appendix
 in a paper, and then the LaTeX \appendix command. The Org heading is
 just for me. It should not be exported. All headings below the \appendix
 command are Org sub-sections but should be promoted to \section in the
 final document.

 then IMO it should be 

 ,
 | * Appendix
 | ** Latex Command :noexport:
 | \appendix
 | ** Subsec1
 | ** Subsec2 ...
 `

Your code example is broken, but let's not care about that for now.

So the appendix case is kind of special.  Really what we want is to
inject a command before the insertion of the appendix.  Due to the
nature of LaTeX this is easy.  I often do something like

* appendix pre :ignoreheading:
#+LATEX: \appendix
* my appendix
  content

However, perhaps a property specifying a command to be inserted before
the headline is more appropriate.  Then, we could write the above as

* my appendix 
  :PROPERTIES:
  :LATEX_PRE_HEADING: \appendix
  :HTML_PRE_HEADING: appendix
  :HTML_POST_HEADING: /appendix
  :END:
  content

which would export

   \appendix
   \section{my appendix}
   content
   
Of course, in the above example it would be better to set the property
HTML_CONTAINER to appendix for html export.

—Rasmus
 
-- 
Together we'll stand, divided we'll fall




Re: [O] babel C, C++, D enhancement

2014-06-13 Thread Eric Abrahamsen
Bastien b...@gnu.org writes:

 Hi Eric and Thierry,

 Eric Schulte schulte.e...@gmail.com writes:

 This new patch looks great, and the test suite passes locally.  I've
 just applied it.

 Thanks for applying this -- let me just be boring again and insist on
 properly rewrite the Changelog when applying patches... in this case,
 there are a lot of tiny formatting issues I will need to fix myself
 when merging into Emacs :/

 Thanks to both of you!

Apologies on this count, as well, I'll study the proper Changelog format
diligently!




Re: [O] proposal to have ignoreheading tags/properties

2014-06-13 Thread Thorsten Jolitz
Rasmus ras...@gmx.us writes:

 Thorsten Jolitz tjol...@gmail.com writes:

 Ken Mankoff mank...@gmail.com writes:

 Another common (for me) example is to have a heading called * Appendix
 in a paper, and then the LaTeX \appendix command. The Org heading is
 just for me. It should not be exported. All headings below the \appendix
 command are Org sub-sections but should be promoted to \section in the
 final document.

 then IMO it should be 

 ,
 | * Appendix
 | ** Latex Command :noexport:
 | \appendix
 | ** Subsec1
 | ** Subsec2 ...
 `

 Your code example is broken, but let's not care about that for now.

Yes, I (unfortunately) did not care about the LaTeX side of this special
case, just wanted to say that this

,-
| * 1st Level
| text
| ** 2nd Level
| text
| ** 2nd Level
| text
`-

often causes headaches that can easily avoided, e.g by 

,-
| * 1st Level
| ** 2nd Level
| text
| ** 2nd Level
| text
| ** 2nd Level
| text
`-

or (your solution)

,-
| * 1st Level
| text
| * 1st Level
| ** 2nd Level
| text
| ** 2nd Level
| text
`-

 So the appendix case is kind of special.  Really what we want is to
 inject a command before the insertion of the appendix.  Due to the
 nature of LaTeX this is easy.  I often do something like

 * appendix pre :ignoreheading:
 #+LATEX: \appendix
 * my appendix
   content

-- 
cheers,
Thorsten




Re: [O] Org 8.2.7

2014-06-13 Thread Bastien
Eric Schulte schulte.e...@gmail.com writes:

 This comes with some important changes under the wood,

 Much classier than making changes under the hood.

:)

-- 
 Bastien



[O] bug#17746: bug#17746: 24.4.50; byte-code: `recenter'ing a window that does not display current-buffer. when composing a message

2014-06-13 Thread Bastien
Nicolas Richard theonewiththeevill...@yahoo.fr writes:

 Perhaps this isn't the right place to ask, but I wonder how
 (save-excursion (set-window-start (selected-window) (window-start)))
 isn't a noop.

Perhaps it is a noop -- The purpose of `org-fix-ellipsis-at-bol'
is to remove the ellipsis overlay that outline-mode may leave
when navigating through folded regions.  At least this was the
purpose of the original version, and using recenter did the
job.  I'll try to reproduce the original bug, see if the new
version of `org-fix-ellipsis-at-bol' does the job and if not,
why.

-- 
 Bastien





Re: [O] [bug] [new exporter] [markdown] spoiled URL containing '=' if using http/s org-links

2014-06-13 Thread Martin Carlé
Dear Bastien,

yes, I just checked it against the master branch, and how great,
the URL of org-links stays intact now!!!

So, that's solved. Yet, there is another minor issue, as any underscore
char '_' that is contained in the link description (not the URL part)
of an org-link is swallow up and will not appear on the markdown side.


Moreover, seeing all these nice bug fixes that led to today's release,
let me come back to older and maybe somehow forgotten feature request:

http://lists.gnu.org/archive/html/emacs-orgmode/2010-03/msg00379.html

Can't we make these kind of intrusive target-markups-brackets been
hidden, at least optionally, and instead be fontified just similar as link are?
Or could there be posted some hint how to best hack this as a private solution?


Thank you and the list for answering,
mc

On 2014-06-13 Fri 13:43, Bastien b...@gnu.org wrote:
 Hi Martin,

 can you try Org latest version from git and says if this still happen?

 Thanks,

-- 
Fetch my gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 7E3CA33F



smime.p7s
Description: S/MIME cryptographic signature


[O] [babel][PATCHES] exporting inline source code

2014-06-13 Thread Nicolas Berthier
Hi,

Please find attached two patches for review, related to the handling
of inline source code.

The first one enables babel to export pieces of inline source code as
inline instead of as standard code blocks as it currently does.  This
is done by adding a new template
(`org-babel-exp-inline-code-template', very similar to
`org-babel-exp-code-template' for standard code blocks), and modifying
`org-babel-exp-code' to either generate a code block or an inline one.

Also, as the generated code may not define any switches nor flags, we
might end up with org elements such as src_emacs-lisp[]{(message
foo!)} during the babel pass.  I think the small modification I
made to `org-babel-inline-src-block-regexp' to allow such constructs
is much simpler than handling this particular case in
`org-babel-exp-code'.

From d6b99e92546a752419ff8b8bf919c7001e8e1ec2 Mon Sep 17 00:00:00 2001
From: Nicolas Berthier nbe...@member.fsf.org
Date: Fri, 13 Jun 2014 15:32:54 +0200
Subject: [PATCH 1/2] ob: Support for exporting inline source code

* lisp/ob-exp.el (org-babel-exp-inline-code-template): New
customizable variable to export inline source code (similar to
`org-babel-exp-code-template').
(org-babel-exp-code): New `type' argument to differentiate between
inline and standard code blocks.

* lisp/ob-core.el (org-babel-inline-src-block-regexp): Allow empty set
of switches and header arguments as in src_sh[]{echo foo;}.

Until now pieces of inline source code were handled as standard code
blocks during export.  These changes enable them to be exported.
---
 lisp/ob-core.el |  2 +-
 lisp/ob-exp.el  | 30 ++
 2 files changed, 27 insertions(+), 5 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index e1d4f39..062d4e1 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -203,7 +203,7 @@ This string must include a \%s\ which will be replaced by the results.
 (defvar org-babel-inline-src-block-regexp
   (concat
;; (1) replacement target (2) lang
-   \\(?:^\\|[^-[:alnum:]]\\)\\(src_\\([^ \f\t\n\r\v]+\\)
+   \\(?:^\\|[^-[:alnum:]]\\)\\(src_\\([^ \f\t\n\r\v\\[]+\\)
;; (3,4) (unused, headers)
\\(\\|\\[\\(.*?\\)\\]\\)
;; (5) body
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index 3a47661..37625ab 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -318,10 +318,10 @@ The function respects the value of the :exports header argument.
 	(clean (lambda () (unless (eq type 'inline) (org-babel-remove-result info)
 (case (intern (or (cdr (assoc :exports (nth 2 info))) code))
   ('none (funcall silently) (funcall clean) )
-  ('code (funcall silently) (funcall clean) (org-babel-exp-code info))
+  ('code (funcall silently) (funcall clean) (org-babel-exp-code info type))
   ('results (org-babel-exp-results info type nil hash) )
   ('both (org-babel-exp-results info type nil hash)
-	 (org-babel-exp-code info)
+	 (org-babel-exp-code info type)
 
 (defcustom org-babel-exp-code-template
   #+BEGIN_SRC %lang%switches%flags\n%body\n#+END_SRC
@@ -343,7 +343,27 @@ replaced with its value.
   :group 'org-babel
   :type 'string)
 
-(defun org-babel-exp-code (info)
+(defcustom org-babel-exp-inline-code-template
+  src_%lang[%switches%flags]{%body}
+  Template used to export the body of inline code blocks.
+This template may be customized to include additional information
+such as the code block name, or the values of particular header
+arguments.  The template is filled out using `org-fill-template',
+and the following %keys may be used.
+
+ lang -- the language of the code block
+ name -- the name of the code block
+ body -- the body of the code block
+ switches -- the switches associated to the code block
+ flags - the flags passed to the code block
+
+In addition to the keys mentioned above, every header argument
+defined for the code block may be used as a key and will be
+replaced with its value.
+  :group 'org-babel
+  :type 'string)
+
+(defun org-babel-exp-code (info type)
   Return the original code block formatted for export.
   (setf (nth 1 info)
 	(if (string= strip-export (cdr (assoc :noweb (nth 2 info
@@ -354,7 +374,9 @@ replaced with its value.
 	   info org-babel-exp-reference-buffer)
 	(nth 1 info
   (org-fill-template
-   org-babel-exp-code-template
+   (if (eq type 'inline)
+   org-babel-exp-inline-code-template 
+   org-babel-exp-code-template)
`((lang  . ,(nth 0 info))
  (body  . ,(org-escape-code-in-string (nth 1 info)))
  (switches . ,(let ((f (nth 3 info)))
-- 
2.0.0.rc4


The second patch implements the transcoding of inline source blocks
into HTML.

From 2ce230d0dda6869b4d91a4a27d40d62fdb0593d2 Mon Sep 17 00:00:00 2001
From: Nicolas Berthier nbe...@member.fsf.org
Date: Fri, 13 Jun 2014 16:39:18 +0200
Subject: [PATCH 2/2] ox-html.el: Support for exporting inline source code to
 HTML

* lisp/ox-html.el (org-html-inline-src-block): support for exporting
inline source code to HTML.
---
 

[O] #+BEAMER not defined?

2014-06-13 Thread Sebastien Vauban
Hello,

Running this ECM:

--8---cut here---start-8---
#+OPTIONS: H:1

** ECM

#+Beamer_BEGIN:
\bold{BeamerFoo}
#+Beamer_END:

#+Beamer: \bold{BeamerBar}

#+LaTeX_BEGIN:
\bold{LaTeXBaz}
#+LaTeX_END:

#+LaTeX: \bold{LaTeXFooBar}
--8---cut here---end---8---

outputs this:

--8---cut here---start-8---
\bold{BeamerFoo}
\bold{LaTeXBaz}
\bold{LaTeXFooBar}
--8---cut here---end---8---

So:

- both the construct #+LaTeX_BEGIN/END and #+LaTeX exist...
- the construct #+Beamer_BEGIN/END exists, but not #+Beamer?

Is this normal?

Best regards,
  Seb

-- 
Sebastien Vauban




Re: [O] babel C, C++, D enhancement

2014-06-13 Thread Thierry Banel
Thanks Achim for finding and fixing this bug.

I do agree about fuzziness between int and float.
My Emacs considers
  2305843009213693951 as an integer,
  2305843009213693952 too large to be an integer.
My C++ compiler sees
  4294967295 as an integer,
  4294967296 as too large to fit an int.

So Babel C++ may cause problem for large integers.
I am not sure how we can fix this in any case.
In the meantime, we can force large values to be declared as doubles by
adding dot zero
like this:

#+BEGIN_SRC C++ :var large=9876543210 .0
printf (%g, large);
#+END_SRC

Thierry


Le 13/06/2014 08:51, Achim Gratz a écrit :
 Eric Schulte writes:
 This new patch looks great, and the test suite passes locally.  I've
 just applied it.
 You also get a warning from the byte-compiler on something that is
 clearly a bug.  I think the fix should be:

 --8---cut here---start-8---
 diff --git a/lisp/ob-C.el b/lisp/ob-C.el
 index dd03fa7..a794e2a 100644
 --- a/lisp/ob-C.el
 +++ b/lisp/ob-C.el
 @@ -264,7 +264,7 @@ (defun org-babel-C-val-to-C-type (val)
(list
 (if (equal org-babel-c-variant 'd) string const char*)
 \%s\))
 - (t (error unknown type %S type)
 + (t (error unknown type %S basetype)
  (cond
   ((integerp val) type) ;; an integer declared in the #+begin_src line
   ((floatp val) type) ;; a numeric declared in the #+begin_src line
 --8---cut here---end---8---

 The type determination is a tad optimistic, too.  An Emacs integer may
 or may not fit into C type int depending on how Emacs is compiled and
 which compiler you are using.


 Regards,
 Achim.




[O] bug#17746: bug#17746: 24.4.50; byte-code: `recenter'ing a window that does not display current-buffer. when composing a message

2014-06-13 Thread Daimrod
Bastien b...@gnu.org writes:

 Nicolas Richard theonewiththeevill...@yahoo.fr writes:

 Perhaps this isn't the right place to ask, but I wonder how
 (save-excursion (set-window-start (selected-window) (window-start)))
 isn't a noop.

 Perhaps it is a noop -- The purpose of `org-fix-ellipsis-at-bol'
 is to remove the ellipsis overlay that outline-mode may leave
 when navigating through folded regions.  At least this was the
 purpose of the original version, and using recenter did the
 job.  I'll try to reproduce the original bug, see if the new
 version of `org-fix-ellipsis-at-bol' does the job and if not,
 why.

In `org-fix-ellipsis-at-bol', the change wasn't
: (save-excursion (set-window-start (selected-window) (window-start)))

but
: (save-excursion (set-window-start (selected-window) (point-min)))

which is not a noop.

But it does the wrong thing with isearch.

When isearch is done, that is, when it has found a match and we leave
isearch with RET for example. Then it calls `isearch-done' which runs
`org-fix-ellipsis-at-bol' because it is in `isearch-mode-end-hook' (I
didn't look to find why).

Because of this, if the pattern found isn't at the top of the buffer,
then the point won't be at the pattern, but at the top of the buffer.

Best,

--
Daimrod/Greg





[O] [PATCH] Add DEVONthink Pro to Org Mac Link

2014-06-13 Thread Mike McLean
This patch adds support for DEVONthink Pro Office
http://www.devontechnologies.com/products/devonthink/devonthink-pro-office.html
to Org Mac Links. This likely works for all versions of DEVONthink, but
that is not tested.

Mike




From 50c1ded7cb403cecfe09d4ca0be704ba65e05253 Mon Sep 17 00:00:00 2001
From: Mike McLean mike.mcl...@pobox.com
Date: Sat, 14 Jun 2014 00:13:22 -0400
Subject: [PATCH] Add DEVONthink Pro to Org Mac Link

Add DEVONthink Pro Office (likely DEVONthink and DEVONthink Pro also,
but I do not have those variants to test) to Org Mac. Support for
collecting one (or several) DEVONthink items as Org link and support
for opening x-devonthink-item links from withing Org mode.
---
 contrib/lisp/org-mac-link.el | 73

 1 file changed, 73 insertions(+)

diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el
index 2eafa1b..c53871f 100644
--- a/contrib/lisp/org-mac-link.el
+++ b/contrib/lisp/org-mac-link.el
@@ -9,6 +9,7 @@
 ;;  Christopher Suckling suckling at gmail dot com
 ;;  Daniil Frumin difru...@gmail.com
 ;;  Alan Schmitt alan.schm...@polytechnique.org
+;;  Mike McLean mike.mcl...@pobox.com
 ;;
 ;;
 ;; Version: 1.1
@@ -58,6 +59,7 @@
 ;; Together.app - Grab links to the selected items in the library list
 ;; Skim.app - Grab a link to the selected page in the topmost pdf document
 ;; Microsoft Outlook.app - Grab a link to the selected message in the
message list
+;; DEVONthink Pro Office.app - Grab a link to the selected DEVONthink
item(s); open DEVONthink item by reference
 ;;
 ;;
 ;; Installation:
@@ -110,6 +112,12 @@ applications and inserting them in org documents
   :group 'org-mac-link
   :type 'boolean)

+(defcustom org-mac-grab-devonthink-app-p t
+  Enable menu option [d]EVONthink to grab links from DEVONthink Pro
Office.app
+  :tag Grab DEVONthink Pro Office.app links
+  :group 'org-mac-link
+  :type 'boolean)
+
 (defcustom org-mac-grab-Addressbook-app-p t
   Enable menu option [a]ddressbook to grab links from AddressBook.app
   :tag Grab AddressBook.app links
@@ -192,6 +200,7 @@ applications and inserting them in org documents
   (interactive)
   (let* ((descriptors `((F inder org-mac-finder-insert-selected
,org-mac-grab-Finder-app-p)
 (m ail org-mac-message-insert-selected
,org-mac-grab-Mail-app-p)
+(d EVONthink Pro Office
org-mac-devonthink-item-insert-selected ,org-mac-grab-devonthink-app-p)
 (o utlook
org-mac-outlook-message-insert-selected ,org-mac-grab-Outlook-app-p)
 (a ddressbook
org-mac-addressbook-insert-selected ,org-mac-grab-Addressbook-app-p)
 (s afari org-mac-safari-insert-frontmost-url
,org-mac-grab-Safari-app-p)
@@ -707,6 +716,70 @@ list of mac-outlook:// links to flagged mail after
heading.

 ;;
 ;;
+;; Handle links from DEVONthink Pro Office.app
+;;
+
+(org-add-link-type x-devonthink-item 'org-devonthink-item-open)
+
+(defun org-devonthink-item-open (uid)
+  Open the given uid, which is a reference to an item in DEVONthink Pro
Office
+  (shell-command (concat open \x-devonthink-item: uid \)))
+
+(defun org-as-get-selected-devonthink-item ()
+  AppleScript to create links to selected items in DEVONthink Pro
Office.app.
+  (do-applescript
+   (concat
+set theLinkList to {}\n
+tell application \DEVONthink Pro\\n
+set selectedRecords to selection\n
+set selectionCount to count of selectedRecords\n
+if (selectionCount  1) then\n
+return\n
+end if\n
+repeat with theRecord in selectedRecords\n
+set theID to uuid of theRecord\n
+set theURL to \x-devonthink-item:\  theID\n
+set theSubject to name of theRecord\n
+set theLink to theURL  \::split::\  theSubject  \\n\\n
+copy theLink to end of theLinkList\n
+end repeat\n
+end tell\n
+return theLinkList as string
+)))
+
+(defun org-mac-devonthink-get-links ()
+  Create links to the item(s) currently selected in DEVONthink Pro Office.
+This will use AppleScript to get the `uuid' and the `name' of the
+selected items in DEVONthink Pro Office.app and make links out of
+it/them. This function will push the Org-syntax text to the kill
+ring, and also return it.
+  (message Org Mac DEVONthink: looking for selected items...)
+  (let* ((as-link-list (org-as-get-selected-devonthink-item))
+ (link-list (if as-link-list
+(mapcar
+ (lambda (x) (if (string-match
\\`\\\(.*\\)\\\' x) (setq x (match-string 1 x))) x)
+ (split-string as-link-list [\r\n]+))
+  nil))
+ orglink-list)
+(while link-list
+  (let* ((current-item (pop link-list)))
+(message current item: %s current-item)
+(when (and current-item (not (string= current-item )))
+  (let* ((split-link (split-string current-item ::split::))
+ (orglink