diff options
| author | Dave Mayo <pobocks@gmail.com> | 2014-06-29 15:40:01 -0400 |
|---|---|---|
| committer | Dave Mayo <pobocks@gmail.com> | 2014-06-29 15:40:01 -0400 |
| commit | e6a2801de1c1fa89fc0d69172f68fd114a50ac22 (patch) | |
| tree | bf4e5c6e6aebc83b431c6cd0b93669cd87d28ec9 | |
| parent | f56174e5905a40583b47f9737abee3af8da3faeb (diff) | |
| download | emmet-mode-e6a2801de1c1fa89fc0d69172f68fd114a50ac22.tar.lz emmet-mode-e6a2801de1c1fa89fc0d69172f68fd114a50ac22.tar.xz emmet-mode-e6a2801de1c1fa89fc0d69172f68fd114a50ac22.zip | |
Fix #23, until a better way is found.
| -rw-r--r-- | emmet-mode.el | 12 | ||||
| -rw-r--r-- | src/mode-def.el | 12 |
2 files changed, 22 insertions, 2 deletions
diff --git a/emmet-mode.el b/emmet-mode.el index b06a8b6..b6a471b 100644 --- a/emmet-mode.el +++ b/emmet-mode.el @@ -3465,6 +3465,14 @@ tbl)) "Customization group for emmet-mode." :group 'convenience) +(defun emmet-check-for-markup (bound) + (save-excursion + (save-match-data + (goto-char (line-beginning-position)) + (if (re-search-forward "\\(\\([ \t]+\\)?<[^>]*?>\\)+" bound t) + t + nil)))) + (defun emmet-expr-on-line () "Extract a emmet expression and the corresponding bounds for the current line." @@ -3551,7 +3559,9 @@ For more information see `emmet-mode'." (if expr (let ((markup (emmet-transform (first expr)))) (when markup - (let ((pretty (emmet-prettify markup (current-indentation)))) + (let ((pretty (if (emmet-check-for-markup here) + markup + (emmet-prettify markup (current-indentation))))) (when pretty (delete-region (second expr) (third expr)) (emmet-insert-and-flash pretty) diff --git a/src/mode-def.el b/src/mode-def.el index dd82409..82c74fd 100644 --- a/src/mode-def.el +++ b/src/mode-def.el @@ -5,6 +5,14 @@ "Customization group for emmet-mode." :group 'convenience) +(defun emmet-check-for-markup (bound) + (save-excursion + (save-match-data + (goto-char (line-beginning-position)) + (if (re-search-forward "\\(\\([ \t]+\\)?<[^>]*?>\\)+" bound t) + t + nil)))) + (defun emmet-expr-on-line () "Extract a emmet expression and the corresponding bounds for the current line." @@ -91,7 +99,9 @@ For more information see `emmet-mode'." (if expr (let ((markup (emmet-transform (first expr)))) (when markup - (let ((pretty (emmet-prettify markup (current-indentation)))) + (let ((pretty (if (emmet-check-for-markup here) + markup + (emmet-prettify markup (current-indentation))))) (when pretty (delete-region (second expr) (third expr)) (emmet-insert-and-flash pretty) |