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