From: Tom Roche <Tom_Roche@pobox.com>,
To: help-gnu-emacs@gnu.org,
Subject: Re: [emacs-lisp newbie] print-something() -> clipboard?
Date: Sun, 20 May 2012 16:27:58 -0400 [thread overview]
Message-ID: <87boli1ttd.fsf@pobox.com> (raw)
In-Reply-To: <BEEDF7D80DF54D7D8FAF77C2908B04EB@us.oracle.com>
Tom Roche 18.05.2012 21:46
>>> (defun print-buffer-name ()
>>> "Print (at point) the current buffer's name."
>>> (interactive "*") ; abort if buffer is read-only
>>> (insert (buffer-name (window-buffer (minibuffer-selected-window)))))
>>> (global-set-key "\C-pb" 'print-buffer-name)
...
>>> I'd like to have the option to "print" the datum to the clipboard.
>>> How can I (easily :-) do that?
Andreas Röhler Sat, 19 May 2012 09:19:36 +0200
>> (defun yank-date-clipboard ()
>> "Insert into the kill-ring, at X also into the clipboard."
>> (interactive)
>> (kill-new (format-time-string "%Y%m%d")))
Drew Adams Sun, 20 May 2012 12:20:09 -0700
> (defun foo (&optional arg)
> "..."
> (interactive "P")
> (let ((bn ...))
> (if arg
> (insert bn)
> (kill-new bn))))
Thanks! I probably should `let`, but this works:
(defun print-buffer-name (&optional arg)
"Print (at point) the current buffer's name, or to clipboard with prefix."
(interactive "P") ; sets first arg to the raw command prefix
(setq bn (buffer-name (window-buffer (minibuffer-selected-window))))
(if arg
(kill-new bn)
(insert bn)))
(global-set-key "\C-pb" 'print-buffer-name)
thanks again, Tom Roche <Tom_Roche@pobox.com>
next prev parent reply other threads:[~2012-05-20 20:27 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-05-18 19:46 [emacs-lisp newbie] print-something() -> clipboard? Tom Roche
2012-05-19 7:19 ` Andreas Röhler
2012-05-20 18:57 ` Tom Roche
2012-05-20 19:20 ` Drew Adams
2012-05-20 20:27 ` Tom Roche [this message]
2012-05-21 13:24 ` Drew Adams
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87boli1ttd.fsf@pobox.com \
--to=tom_roche@pobox.com \
--cc=help-gnu-emacs@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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.