On 2015-06-18 13:16, Xebar Saram <zeltakc@gmail.com> writes:
> Hi Alan
>
> your code seems very intersting and i have been looking for something like
> this for a while. yet for me it opens a new frame without org capture. i use
> linux (arch) and put in the following code. please note that when i evaled
> your code it said:
> `flet' is an obsolete macro (as of 24.3); use either `cl-flet' or `cl-letf'.
> so i changed flet to cl-flet and it still didnt work :)
I don't know how to change this code to not use flet, so I live with the
warning.
>
> here is the code
>
> (defun make-orgcapture-frame ()
> "Create a new frame and run org-capture."
> (interactive)
> (make-frame '((name . "remember") (width . 80) (height . 16)
> (top . 400) (left . 300)
> (font . "Pragmata Pro-16")
> ))
> (select-frame-by-name "remember")
> (delete-other-windows)
> (flet ((switch-to-buffer-other-window (buf) (switch-to-buffer buf)))
> (org-capture nil "t")))
>
> ;; delete the frame in that case
> (add-hook 'org-capture-after-finalize-hook
> (lambda ()
> (when (equal
> (cdr (assoc 'name (frame-parameters (selected-frame))))
> "remember")
> (delete-frame))))
>
> any ideas?
- if you evaluate ( M-: ) "(org-capture nil "t")", does it start
a capture?
- if yes, can you get rid of the flet and just have (org-capture nil
"t") instead (it should create a frame a split the window in two with
a capture buffer)
- if it still works like this, then the problem is in the flet, and
I don't know what to do.
Alan
--
OpenPGP Key ID : 040D0A3B4ED2E5C7
Weekly CO₂ average (2015-05-30, Mauna Loa Observatory): 403.41 ppm