diff --git a/dotfiles/emacs.d/load.d/multi-line-test.el b/dotfiles/emacs.d/load.d/multi-line-test.el index 06fa5a3a..3232ff99 100644 --- a/dotfiles/emacs.d/load.d/multi-line-test.el +++ b/dotfiles/emacs.d/load.d/multi-line-test.el @@ -10,11 +10,16 @@ (defun test-multi-line-get-markers () (interactive) - (message "%d" (length (multi-line-get-markers - (make-instance multi-line-forward-sexp-enter-strategy) - (make-instance multi-line-forward-sexp-find-strategy))))) + (let ((markers (multi-line-get-markers + (multi-line-get-enter-strategy multi-line-config) + (multi-line-get-find-strategy multi-line-config)))) + (message "%d" markers))) (defclass bars-at-markers () nil) (defmethod multi-line-respace ((respacer bars-at-markers) index markers) (insert "|")) + +(defun multiline-test-bars() + (interactive) + (multi-line-adjust-whitespace (make-instance bars-at-markers)))