Re: How to attach data in clipboard directly?

[Carlos Russo <mestre.adamastor@gmail.com>]

Hello

 >> What I want is that emacs/orgmode understands the contents of the 
clipboard
 >> and creates that file for me. For instance, if it detects that the 
contents
 >> of the clipboard is an image or some sort of non-text format, emacs 
would
 >> dump the clipboard data to a file, auto-generate a filename, 
guessing the
 >> data type, and attach that file to my org-file via org-attach-attach.

 >
 > See Automatic screenshot insertion on Worg:
 >
 >      http://orgmode.org/worg/org-hacks.html#sec-3-8
 >
 > Best regards,
 >    Seb
 >


Thank you for your suggestion, Seb.
The script "Automatic screenshot insertion" from Worg is based on 
"import" from Imagemagick, which operates on X buffers.

I'm actually running Aquamacs in Mac OS X (10.6), so this solution 
doesn't work for me.
Nevertheless, it's a good pointer: I was able to cook up an elisp 
function that calls an applescript to do the osx-dependent stuff.
I suppose that X11 users could use xclip or xsel instead (did not try 
it, though).

Here is the elisp bit:

(defun org-capture-clipboard-as-png ()
   "Save the contents of the clipboard as a time stamped unique-named 
.png file in the
same directory as the org-buffer and insert a link to this file."
   (interactive)
   (setq filename
         (concat
          (make-temp-name
           (concat (buffer-file-name)
                   "_"
                   (format-time-string "%Y%m%d_%H%M%S_")) ) ".png"))
   (call-process "~/.emacs.d/scripts/save_clipboard.applescript" nil nil 
nil filename )
   (insert (concat "[[" filename "]]"))
;;  (org-display-inline-images)
)

and here is the applescript bit ( save_clipboard.applescript )

#!/usr/bin/osascript
on run argv
	set fn to item 1 of argv
	# Check if Clipboard is empty
	set blnIsClipboardEmpty to false
	try
		set dataClipboard to the clipboard
	on error strErrorMessage number intErrorNumber
		if (intErrorNumber is -25131) then
			set blnIsClipboardEmpty to true
		end if
	end try
	# Try to save clipboard contentsas png
	if blnIsClipboardEmpty is false then
		set d to the clipboard as «class PNGf»
		set fid to open for access fn with write permission
		write d to fid
		close access fid	
	end if
end run

Sure, this is far from perfect.
I would like these scripts to
- guess data type that is in clipboard and save the data with the 
correct extension
- make the elisp script aware of the file extension
- somehow feed this to org-attach, in order to have all of the 
git-attach goodies.

but this is beyond my skills at the moment...

Any hints?