From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Decebal Newsgroups: gmane.emacs.help Subject: Re: Writing a function for a indented copy of a region Date: Thu, 18 Dec 2008 05:11:38 -0800 (PST) Organization: http://groups.google.com Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1229607660 12823 80.91.229.12 (18 Dec 2008 13:41:00 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Dec 2008 13:41:00 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Dec 18 14:42:05 2008 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1LDJ8W-00015M-QX for geh-help-gnu-emacs@m.gmane.org; Thu, 18 Dec 2008 14:41:57 +0100 Original-Received: from localhost ([127.0.0.1]:55382 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LDJ7K-0002ze-KB for geh-help-gnu-emacs@m.gmane.org; Thu, 18 Dec 2008 08:40:42 -0500 Original-Path: news.stanford.edu!headwall.stanford.edu!news.glorb.com!news2!postnews.google.com!b41g2000pra.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 66 Original-NNTP-Posting-Host: 85.158.139.99 Original-X-Trace: posting.google.com 1229605898 15422 127.0.0.1 (18 Dec 2008 13:11:38 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Thu, 18 Dec 2008 13:11:38 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: b41g2000pra.googlegroups.com; posting-host=85.158.139.99; posting-account=K-cdeAoAAAD_0d505kUtHXJaT5LFIu-3 User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.1 proxy-25:8080 (squid/2.5.STABLE8), 1.0 netcache-2 (NetCache NetApp/6.0.5), 1.0 netcache-2 (NetCache NetApp/6.0.5), 1.1 cache-1:80 Original-Xref: news.stanford.edu gnu.emacs.help:165464 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:60792 Archived-At: On 17 dec, 14:31, Decebal wrote: > A lot of times I need to copy a part of a (log) file for an e-mail. I > like to indent this (default with four spaces). At this moment I do > this by hand. But I would like to do this with a function. > What I would like this function to do is take the part that is > selected, indent this with (default) four spaces, put the indented > region in the kill-ring and undo the indent. Has anyone a pointer > about how to code this? I have made a better (and more generally) again. The function indented-yank is a specialised version of my-headed-yank, so I wrote that one also. ;-} I also needed a function to remove a region without putting it in the kill-ring, so I also made the function my-remove-region. I made key-combinations for al the three functions. Are there standards for naming functions and asigning functions to key combinations? The code: (defun my-remove-region(begin end) "Delete region without putting it in the kill-ring" (interactive "r") (kill-region begin end) (pop kill-ring) ) (global-set-key (kbd "C-c C-r") 'my-remove-region) (defun my-headed-yank(head begin end do-kill) "Put region with 'head' prepended to every line in the kill- ring" (interactive "sHead: \nr\nnKill Region? ") (kill-new (replace-regexp-in-string "^" head (buffer-substring begin end) ) ) (if do-kill (my-remove-region begin end) ) (deactivate-mark) ) (global-set-key (kbd "C-c C-h") 'my-headed-yank) (defun my-indented-yank(indent begin end) "Put indented region in the kill-ring" (interactive "p\nr") (setq indent (cond ((eq indent 0) 1) ((eq indent 1) 4) (t indent) ) ) (let ((do-kill) (head)) (if (< indent 0) (setq indent (- 0 indent) do-kill t ) ) (setq head (format (format "%%%ds" indent) "") ) (my-headed-yank head begin end do-kill) ) ) (global-set-key (kbd "C-c C-w") 'my-indented-yank)