From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Wiegley Subject: Re: running remember with emacsclient - how to get a new frame Date: Thu, 06 Sep 2007 18:31:44 -0400 Message-ID: References: <13256.1189076942@lap1.smtl.co.uk> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1ITPtG-0006mW-B6 for emacs-orgmode@gnu.org; Thu, 06 Sep 2007 18:31:58 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1ITPtD-0006g6-MJ for emacs-orgmode@gnu.org; Thu, 06 Sep 2007 18:31:57 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ITPtD-0006fq-GH for emacs-orgmode@gnu.org; Thu, 06 Sep 2007 18:31:55 -0400 Received: from fyodor.hcoop.net ([64.20.38.170]) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1ITPtC-0000A3-Qd for emacs-orgmode@gnu.org; Thu, 06 Sep 2007 18:31:54 -0400 Received: from [72.22.155.27] (helo=Hermes.local) by fyodor.hcoop.net with esmtpsa (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1ITPuR-0003Q3-UR for emacs-orgmode@gnu.org; Thu, 06 Sep 2007 18:33:12 -0400 In-Reply-To: (Scott Jaderholm's message of "Thu\, 6 Sep 2007 15\:30\:46 -0600") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org "Scott Jaderholm" writes: > On 9/6/07, Jason F. McBrayer wrote: > >> I define this function in my .emacs: >> >> (defun my-remember nil >> (progn (select-frame >> (make-frame '((name . "*Remember*") ))) >> (raise-frame) >> (remember))) >> > > Jason, > > This is great. How would you make it so that the frame displays with > remember as the only window ? I've made changes to remember.el to support this kind of usage. Just replace the `remember' function in your remember.el file with the following. John (defcustom remember-in-new-frame nil "Non-nil means use a separate frame for capturing remember data." :type 'boolean :group 'remember) ;;;###autoload (defun remember (&optional initial) "Remember an arbitrary piece of data. With a prefix, uses the region as INITIAL." (interactive (list (when current-prefix-arg (buffer-substring (point) (mark))))) (funcall (if remember-in-new-frame #'frame-configuration-to-register #'window-configuration-to-register) remember-register) (let* ((annotation (if remember-run-all-annotation-functions-flag (mapconcat 'identity (delq nil (mapcar 'funcall remember-annotation-functions)) "\n") (run-hook-with-args-until-success 'remember-annotation-functions))) (buf (get-buffer-create remember-buffer))) (run-hooks 'remember-before-remember-hook) (funcall (if remember-in-new-frame #'switch-to-buffer-other-frame #'switch-to-buffer-other-window) buf) (if remember-in-new-frame (set-window-dedicated-p (get-buffer-window (current-buffer) (selected-frame)) t)) (remember-mode) (when (= (point-max) (point-min)) (when initial (insert initial)) (setq remember-annotation annotation) (when remember-initial-contents (insert remember-initial-contents)) (when (and (stringp annotation) (not (equal annotation ""))) (insert "\n\n" annotation)) (setq remember-initial-contents nil) (goto-char (point-min))) (message "Use C-c C-c to remember the data."))) ;;;###autoload (defun remember-other-frame (&optional initial) (interactive (list (when current-prefix-arg (buffer-substring (point) (mark))))) (let ((remember-in-new-frame t)) (remember initial)))