Re: how to insert single quotes around a command?

Re: how to insert single quotes around a command?

[martin rudalics]

 > Many times when I write doc strings for elisp functions I forget to insert
 > single-quotes around commands or variables like `a-command' or insert it
 > wrong like 'a-command'. Is there a function or keybinding to do it
 > properly? Maybe a function which enclose a selected command with
 > single-quotes?

I'm using:

(defun insert-hyphen-or-two ()
   (interactive)
   (cond
    ((or (bolp) (not (looking-back "'")))
     ;; insert just one '
     (self-insert-command 1))
    ((save-excursion
       (backward-char)
       ;; Skip symbol backwards.
       (and (not (zerop (skip-syntax-backward "w_")))
	   (not (looking-back "`"))
	   (or (insert-and-inherit "`") t))))
    (t
     ;; insert `' around following symbol
     (delete-backward-char 1)
     (unless (looking-back "`") (insert-and-inherit "`"))
     (save-excursion
       (skip-syntax-forward "w_")
       (unless (looking-at "'") (insert-and-inherit "'"))))))

(global-set-key [39] 'insert-hyphen-or-two)

martin

Re: how to insert single quotes around a command?

[Seweryn Kokot]

martin rudalics <rudalics@gmx.at> writes:

>> Many times when I write doc strings for elisp functions I forget to insert
>> single-quotes around commands or variables like `a-command' or insert it
>> wrong like 'a-command'. Is there a function or keybinding to do it
>> properly? Maybe a function which enclose a selected command with
>> single-quotes?
>
> I'm using:
>
> (defun insert-hyphen-or-two ()
>   (interactive)
>   (cond
>    ((or (bolp) (not (looking-back "'")))
>     ;; insert just one '
>     (self-insert-command 1))
>    ((save-excursion
>       (backward-char)
>       ;; Skip symbol backwards.
>       (and (not (zerop (skip-syntax-backward "w_")))
> 	   (not (looking-back "`"))
> 	   (or (insert-and-inherit "`") t))))
>    (t
>     ;; insert `' around following symbol
>     (delete-backward-char 1)
>     (unless (looking-back "`") (insert-and-inherit "`"))
>     (save-excursion
>       (skip-syntax-forward "w_")
>       (unless (looking-at "'") (insert-and-inherit "'"))))))
>
> (global-set-key [39] 'insert-hyphen-or-two)
>
> martin

Thank you for this very useful function! It took me some time to understand how
to use  this function  ;-), because invoking it by M-x `insert-hyphen-or-two'
inserts 
 character
-- 
regards,
Seweryn

Re: how to insert single quotes around a command?

[martin rudalics]

 > Why is it called "insert-hyphen-or-two" when it inserts quotes, not
 > hyphens?

I must have been drinking when I wrote that ;-)

martin

Re: how to insert single quotes around a command?

[martin rudalics]

 > It took me some time to understand how
 > to use  this function  ;-), because invoking it by M-x `insert-hyphen-or-two'
 > inserts
 >  character

Sorry, I'll try to be less cryptic next time.  I use this function
because most often I first expand the name of the symbol and then
hitting "'" twice means I don't have to think about an extra command to
do what I want.  It doesn't work in c-mode because till now I was too
lazy to define a separate symbol-table for this.

martin

Re: how to insert single quotes around a command?

[Barry Margolin]

In article <mailman.2562.1225457196.25473.help-gnu-emacs@gnu.org>,
 martin rudalics <rudalics@gmx.at> wrote:

>  > Many times when I write doc strings for elisp functions I forget to insert
>  > single-quotes around commands or variables like `a-command' or insert it
>  > wrong like 'a-command'. Is there a function or keybinding to do it
>  > properly? Maybe a function which enclose a selected command with
>  > single-quotes?
> 
> I'm using:
> 
> (defun insert-hyphen-or-two ()

Why is it called "insert-hyphen-or-two" when it inserts quotes, not 
hyphens?

>    (interactive)
>    (cond
>     ((or (bolp) (not (looking-back "'")))
>      ;; insert just one '
>      (self-insert-command 1))
>     ((save-excursion
>        (backward-char)
>        ;; Skip symbol backwards.
>        (and (not (zerop (skip-syntax-backward "w_")))
> 	   (not (looking-back "`"))
> 	   (or (insert-and-inherit "`") t))))
>     (t
>      ;; insert `' around following symbol
>      (delete-backward-char 1)
>      (unless (looking-back "`") (insert-and-inherit "`"))
>      (save-excursion
>        (skip-syntax-forward "w_")
>        (unless (looking-at "'") (insert-and-inherit "'"))))))
> 
> (global-set-key [39] 'insert-hyphen-or-two)
> 
> martin

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***

how to insert single quotes around a command?

[Seweryn Kokot]

Hello,

Many times when I write doc strings for elisp functions I forget to insert
single-quotes around commands or variables like `a-command' or insert it
wrong like 'a-command'. Is there a function or keybinding to do it
properly? Maybe a function which enclose a selected command with
single-quotes?

Thanks in advance.
-- 
regards,
Seweryn

Re: how to insert single quotes around a command?

[Ian Eure]

On Oct 31, 2008, at 3:06 AM, Seweryn Kokot wrote:

> Hello,
>
> Many times when I write doc strings for elisp functions I forget to  
> insert
> single-quotes around commands or variables like `a-command' or  
> insert it
> wrong like 'a-command'. Is there a function or keybinding to do it
> properly? Maybe a function which enclose a selected command with
> single-quotes?
>

Sounds like you want insert-pair:
(define-key (current-global-map) "\M-'" 'insert-pair)
(define-key (current-global-map) "\C-c`" 'insert-pair)

Which makes M-' insert a pair of single quotes, and C-c ` insert `'.  
Then you can do M-1 M-' or M-1 C-c ` to enclose the sexp following  
point in the correct quotes.

insert-pair is super handy, I use M-(sym) for () "" [] etc.

  - Ian

Re: how to insert single quotes around a command?

[Seweryn Kokot]

Ian Eure <ian@digg.com> writes:

> On Oct 31, 2008, at 3:06 AM, Seweryn Kokot wrote:
>
>> Hello,
>>
>> Many times when I write doc strings for elisp functions I forget to
>> insert
>> single-quotes around commands or variables like `a-command' or
>> insert it
>> wrong like 'a-command'. Is there a function or keybinding to do it
>> properly? Maybe a function which enclose a selected command with
>> single-quotes?
>>
>
> Sounds like you want insert-pair:
> (define-key (current-global-map) "\M-'" 'insert-pair)
> (define-key (current-global-map) "\C-c`" 'insert-pair)
>
> Which makes M-' insert a pair of single quotes, and C-c ` insert `'.
> Then you can do M-1 M-' or M-1 C-c ` to enclose the sexp following
> point in the correct quotes.
>
> insert-pair is super handy, I use M-(sym) for () "" [] etc.
>
>  - Ian


Thanks for inspiration. I also found `skeleton-pair-insert-maybe'
function from skeleton library 

(setq skeleton-pair t)
(global-set-key "(" 'skeleton-pair-insert-maybe) % ()
(global-set-key "[" 'skeleton-pair-insert-maybe) % []
(global-set-key "{" 'skeleton-pair-insert-maybe) % ""
(global-set-key "\"" 'skeleton-pair-insert-maybe) % ''
(global-set-key "`" 'skeleton-pair-insert-maybe) % `'

This inserts pairs of chars and also enclose a region. Now I have at
least three solutions and will see with time what fits me better.

-- 
regards,
Seweryn