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

Minor: indenting in for yasnippet-tests.el macro

Browse Source
This commit is contained in:
Joao Tavora 2013-05-05 20:42:18 -04:00
parent 0da56720a8
commit 9df05fc413
1 changed files with 43 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
yasnippet-tests.el
View File

@ -279,20 +279,20 @@ TODO: correct this bug!"
`(yas-saving-variables `(yas-saving-variables
(yas-with-overriden-buffer-list (yas-with-overriden-buffer-list
(yas-with-snippet-dirs (yas-with-snippet-dirs
'((".emacs.d/snippets" '((".emacs.d/snippets"
("c-mode" ("c-mode"
(".yas-parents" . "cc-mode") (".yas-parents" . "cc-mode")
("printf" . "printf($1);")) ;; notice the overriding for issue #281 ("printf" . "printf($1);")) ;; notice the overriding for issue #281
("emacs-lisp-mode" ("ert-deftest" . "(ert-deftest ${1:name} () $0)")) ("emacs-lisp-mode" ("ert-deftest" . "(ert-deftest ${1:name} () $0)"))
("lisp-interaction-mode" (".yas-parents" . "emacs-lisp-mode"))) ("lisp-interaction-mode" (".yas-parents" . "emacs-lisp-mode")))
("library/snippets" ("library/snippets"
("c-mode" ("c-mode"
(".yas-parents" . "c++-mode") (".yas-parents" . "c++-mode")
("printf" . "printf")) ("printf" . "printf"))
("cc-mode" ("def" . "# define")) ("cc-mode" ("def" . "# define"))
("emacs-lisp-mode" ("dolist" . "(dolist)")) ("emacs-lisp-mode" ("dolist" . "(dolist)"))
("lisp-interaction-mode" ("sc" . "brother from another mother")))) ("lisp-interaction-mode" ("sc" . "brother from another mother"))))
,@body)))) ,@body))))
(ert-deftest basic-jit-loading () (ert-deftest basic-jit-loading ()
"Test basic loading and expansion of snippets" "Test basic loading and expansion of snippets"
@ -357,34 +357,34 @@ TODO: correct this bug!"
(defmacro yas-with-even-more-interesting-snippet-dirs (&rest body) (defmacro yas-with-even-more-interesting-snippet-dirs (&rest body)
`(yas-saving-variables `(yas-saving-variables
(yas-with-snippet-dirs (yas-with-snippet-dirs
`((".emacs.d/snippets" `((".emacs.d/snippets"
("c-mode" ("c-mode"
(".yas-make-groups" . "") (".yas-make-groups" . "")
("printf" . "printf($1);") ("printf" . "printf($1);")
("foo-group-a" ("foo-group-a"
("fnprintf" . "fprintf($1);") ("fnprintf" . "fprintf($1);")
("snprintf" . "snprintf($1);")) ("snprintf" . "snprintf($1);"))
("foo-group-b" ("foo-group-b"
("strcmp" . "strecmp($1);") ("strcmp" . "strecmp($1);")
("strcasecmp" . "strcasecmp($1);"))) ("strcasecmp" . "strcasecmp($1);")))
("lisp-interaction-mode" ("lisp-interaction-mode"
("ert-deftest" . "# group: barbar\n# --\n(ert-deftest ${1:name} () $0)")) ("ert-deftest" . "# group: barbar\n# --\n(ert-deftest ${1:name} () $0)"))
("fancy-mode" ("fancy-mode"
("a-guy" . "# uuid: 999\n# --\nyo!") ("a-guy" . "# uuid: 999\n# --\nyo!")
("a-sir" . "# uuid: 12345\n# --\nindeed!") ("a-sir" . "# uuid: 12345\n# --\nindeed!")
("a-lady" . "# uuid: 54321\n# --\noh-la-la!") ("a-lady" . "# uuid: 54321\n# --\noh-la-la!")
("a-beggar" . "# uuid: 0101\n# --\narrrgh!") ("a-beggar" . "# uuid: 0101\n# --\narrrgh!")
("an-outcast" . "# uuid: 666\n# --\narrrgh!") ("an-outcast" . "# uuid: 666\n# --\narrrgh!")
(".yas-setup.el" . , (pp-to-string (".yas-setup.el" . , (pp-to-string
'(yas-define-menu 'fancy-mode '(yas-define-menu 'fancy-mode
'((yas-ignore-item "0101") '((yas-ignore-item "0101")
(yas-item "999") (yas-item "999")
(yas-submenu "sirs" (yas-submenu "sirs"
((yas-item "12345"))) ((yas-item "12345")))
(yas-submenu "ladies" (yas-submenu "ladies"
((yas-item "54321")))) ((yas-item "54321"))))
'("666"))))))) '("666")))))))
,@body))) ,@body)))
(ert-deftest test-yas-define-menu () (ert-deftest test-yas-define-menu ()
(let ((yas-use-menu t)) (let ((yas-use-menu t))
@ -594,6 +594,7 @@ TODO: be meaner"
(delete-directory default-directory 'recursive)))))) (delete-directory default-directory 'recursive))))))
(defmacro yas-with-snippet-dirs (dirs &rest body) (defmacro yas-with-snippet-dirs (dirs &rest body)
(declare (indent defun))
`(yas-call-with-snippet-dirs ,dirs `(yas-call-with-snippet-dirs ,dirs
#'(lambda () #'(lambda ()
,@body))) ,@body)))