- (beginning-of-line 2))))))
-
- (defun lispy-comment-region (beg end)
- "Comment the region between BEG and END.
- Unlike `comment-region', ensure a contiguous comment."
- (interactive "r")
- (goto-char beg)
- (beginning-of-line)
- (let ((elen (length lispy-outline-header)))
- (while (< (point) end)
- (insert lispy-outline-header)
- (cl-incf end elen)
- (unless (eolp)
- (insert " ")
- (cl-incf end 1))
- (beginning-of-line 2))))
-
- (defun lispy-eval-and-replace ()
- "Eval last sexp and replace it with the result."
- (interactive)
- (let* ((leftp (lispy--leftp))