ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 13:13:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixes some html mode snippets/commands

Browse Source
This commit is contained in:
capitaomorte 2009-11-13 14:31:46 +00:00
parent 9d1757a707
commit 9d3d2e102c
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extras/imported/html-mode/.yas-setup.el
View File

@ -10,21 +10,25 @@
(interactive)
(let (word-begin
word-end
(line-beginning-position (line-beginning-position))
(orig-point (point))
retval)
(save-excursion
(forward-word -1)
(setq word-begin (point))
(forward-word 1)
(setq word-end (point)))
(when (and (< word-begin orig-point)
(>= word-end (point)))
(when (and (forward-word -1)
(setq word-begin (point))
(forward-word 1)
(setq word-end (point))
(< word-begin orig-point)
(>= word-end orig-point)
(<= (line-beginning-position) word-begin)
;; (not (string-match "^[\s\t]+$" " "))
)
(setq retval
(cons
(buffer-substring-no-properties word-begin orig-point)
(buffer-substring-no-properties word-end orig-point)))
(delete-region word-begin word-end)
retval)))
retval))))
(defun yas/html-first-word (string)
@ -75,4 +79,5 @@
(backward-word)
(looking-at "\\\w+></\\\w+>")))
(defun yas/html-id-from-string (string)
(replace-regexp-in-string " " "_" (downcase string)))