From: Xebar Saram <zeltakc@gmail.com>
To: Alan Schmitt <alan.schmitt@polytechnique.org>
Cc: org mode <emacs-orgmode@gnu.org>
Subject: Re: [feature request] org-capture-window-setup to stop capture window taking up whole frame
Date: Thu, 18 Jun 2015 14:16:46 +0300 [thread overview]
Message-ID: <CAOQHXPokz1VU8PfzEmgR+K=ggmX=iEeexbZjM1Linshsg66oMw@mail.gmail.com> (raw)
In-Reply-To: <m2lhftw86y.fsf@charm-ecran.irisa.fr>
[-- Attachment #1: Type: text/plain, Size: 2781 bytes --]
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 :)
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?
thx
z
On Tue, Jun 9, 2015 at 12:22 PM, Alan Schmitt <
alan.schmitt@polytechnique.org> wrote:
> Hello Eric,
>
> On 2015-06-08 17:23, Eric S Fraga <e.fraga@ucl.ac.uk> writes:
>
> > as monitors get bigger and bigger, I tend to have lots of (emacs)
> > windows in a frame. No matter how many I have, org-capture takes over
> > the whole frame which is kind of wasteful.
>
> How about using several frames? For instance I have the following code
> bound globally in my OS:
>
> #+begin_src sh
> /usr/local/bin/emacsclient -n -e '(make-orgcapture-frame)'
> #+end_src
>
> The function is defined as follows (with some supporting code to delete
> the frame when I'm done):
>
> #+begin_src emacs-lisp
> (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 .
> "-*-Consolas-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1")
> ))
> (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))))
> #+end_src
>
> Alan
>
> --
> OpenPGP Key ID : 040D0A3B4ED2E5C7
> Weekly CO₂ average (2015-05-30, Mauna Loa Observatory): 403.41 ppm
>
[-- Attachment #2: Type: text/html, Size: 3956 bytes --]
next prev parent reply other threads:[~2015-06-18 11:16 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-06-08 15:23 [feature request] org-capture-window-setup to stop capture window taking up whole frame Eric S Fraga
2015-06-08 16:37 ` Charles Millar
2015-06-08 16:46 ` Kaushal
2015-06-09 7:31 ` e.fraga
2015-06-17 8:24 ` Eric S Fraga
2015-06-17 16:41 ` Subhan Michael Tindall
2015-06-18 7:57 ` Eric S Fraga
2015-06-23 20:31 ` Nicolas Goaziou
2015-06-25 8:00 ` Eric S Fraga
2015-06-25 12:22 ` Nicolas Goaziou
2015-06-08 20:28 ` Thierry Banel
2015-06-09 9:22 ` Alan Schmitt
2015-06-09 9:43 ` Eric S Fraga
2015-06-18 11:16 ` Xebar Saram [this message]
2015-06-18 11:45 ` Alan Schmitt
2015-06-18 11:52 ` Xebar Saram
2015-06-18 14:42 ` Alan Schmitt
[not found] ` <871thlw193.fsf@gmail.com>
2015-06-09 12:35 ` Bernhard Pröll
2015-06-12 9:27 ` Eric S Fraga
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAOQHXPokz1VU8PfzEmgR+K=ggmX=iEeexbZjM1Linshsg66oMw@mail.gmail.com' \
--to=zeltakc@gmail.com \
--cc=alan.schmitt@polytechnique.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).