emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/web: fix wrong-number-of-args error in +css/toggle-inline-org-block

Browse source
This commit is contained in:
Henrik Lissner 2018-02-08 16:08:04 -05:00
parent 8cbd47a8b5
commit 741612a965
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

41
modules/lang/web/autoload/css.el
View file

@ -11,23 +11,24 @@
"Toggles between a bracketed block and inline block." "Toggles between a bracketed block and inline block."
(interactive) (interactive)
;; TODO Remove evil dependency ;; TODO Remove evil dependency
(save-excursion (let ((inhibit-modification-hooks t))
(cl-destructuring-bind (beg end) (save-excursion
(or (ignore-errors (evil-a-curly)) (cl-destructuring-bind (beg end &rest _)
(user-error "No block found")) (or (ignore-errors (evil-a-curly))
(if (= (line-number-at-pos beg) (line-number-at-pos end)) (user-error "No block found"))
(save-excursion (if (= (line-number-at-pos beg) (line-number-at-pos end))
(goto-char (1+ beg)) (insert "\n") (progn
(unless (string-match ";[\s\t]*}$" (buffer-substring-no-properties beg (1+ end))) (goto-char (1+ beg)) (insert "\n")
(goto-char end) (insert "\n")) (unless (string-match ";[\s\t]*}$" (buffer-substring-no-properties beg (1+ end)))
(while (re-search-forward ";[\s\t]*" (1+ end) t) (goto-char end) (insert "\n"))
(replace-match ";\n" t t)) (while (re-search-forward ";[\s\t]*" (1+ end) t)
(setq end (cadr (evil-a-curly))) (replace-match ";\n" t t))
(evil-indent beg end) (setq end (cadr (evil-a-curly)))
(delete-trailing-whitespace beg end)) (evil-indent beg end)
(goto-char beg) (delete-trailing-whitespace beg end))
(evil-join beg end) (goto-char beg)
(goto-char (1+ beg)) (evil-join beg end)
(just-one-space) (goto-char (1+ beg))
(goto-char (cadr (evil-inner-curly))) (just-one-space)
(just-one-space))))) (goto-char (cadr (evil-inner-curly)))
(just-one-space))))))