Skeleton With Embedded Quotes

Skeleton With Embedded Quotes

[gamename]

Hi,

I'm trying to create a skeleton for a debug statement in tcl.  I want
the skeleton to produce something like this:

mylib::debug " "

(The cursor would be placed between the quotations.)

Unfortunately, skeleton uses double quotes as the delimiter for its own
definition.  So, how do you get skeleton to print double quotes?  Here
is what I have so Far:

(define-skeleton tcl-debug
  "Tcl debug statement"  nil
  > "mylib::debug " \ \n)

TIA,
-T

Re: Skeleton With Embedded Quotes

[rgb]

> Hi,
>
> I'm trying to create a skeleton for a debug statement in tcl.  I want
> the skeleton to produce something like this:
>
> mylib::debug " "
>
> (The cursor would be placed between the quotations.)
>
> Unfortunately, skeleton uses double quotes as the delimiter for its own
> definition.  So, how do you get skeleton to print double quotes?  Here
> is what I have so Far:
>
> (define-skeleton tcl-debug
>   "Tcl debug statement"  nil
>   > "mylib::debug " \ \n)

(define-skeleton tcl-debug
  "Tcl debug statement"  nil 
  > "mylib::debug \"" _ "\"" \n)

Re: Skeleton With Embedded Quotes

[gamename]

Perfect! That worked.  Thank you, sir.

-T

Re: Skeleton With Embedded Quotes

[Tim Johnson]

* gamename <namesagame-usenet@yahoo.com> [051120 12:37]:
> Hi,
 
  Hello:

> I'm trying to create a skeleton for a debug statement in tcl.  I want
> the skeleton to produce something like this:
> 
> mylib::debug " "
> 
> (The cursor would be placed between the quotations.)
> 
> Unfortunately, skeleton uses double quotes as the delimiter for its own
> definition.  So, how do you get skeleton to print double quotes?  Here
> is what I have so Far:
 
  I'm not entirely sure what you are up to here, since your approach
  differs from mine, but you can escape a double quote with a backslash.
  I use the elisp 'insert function for inserting debug stubs.

>
> (define-skeleton tcl-debug
>   "Tcl debug statement"  nil
>   > "mylib::debug " \ \n)

You might find the code below useful as an example - bear in mind, that
I am pretty new to elisp.

(defun debug-stub-global ()
    " Insert debugging code for non-class variable"
    (interactive "*")
    (cond ((string-equal mode-name "Rebol Mode")
           (beginning-of-line-text)
           (insert "dbg ")
           (tj-next-whitespace)
           (insert " ;; DEBUG STUB"))
         ((string-equal mode-name "JavaScript")
           (let (cur-word)
             (setq cur-word (current-word))
             (beginning-of-line-text)
             (kill-line)
             (insert (concat "alert('" cur-word ": ' + " cur-word ");"))))
         ((string-equal mode-name "Python")
           (let (cur-word)
             (setq cur-word (current-word))
             (beginning-of-line-text)
             (kill-line)
             (insert (concat "print \"<BR>" cur-word " = \", " cur-word " # DEBUG " cur-word))))
         (t(message "NOT IMPLEMENTED FOR THIS MODE!"))))
;; this should be the only dependency:
(defun tj-next-whitespace ()
  "Move cursor to next whitespace OR end of line."
  (interactive)
  (re-search-forward "$\\|[\t ]"))

HTH
-- 
Tim Johnson <tim@johnsons-web.com>
      http://www.alaska-internet-solutions.com