(defun re/sexp-drop-paren-p ()
"Returns t if sexp needs fewer parens to balance."
- (<0 (car (syntax-ppss))))
+ (< (car (syntax-ppss)) 0))
(defun re/sexp-need-paren-p ()
"Returns t if sexp needs more parens to balance."
- (>0 (car (syntax-ppss))))
+ (> (car (syntax-ppss)) 0))
(defun re/sexp-unbalanced-count ()
"Returns distance from balanced sexp."
(eshell-life-is-too-much)
(delete-char arg)))
-;; IELM
-;; (defun re/ielm-init-history ()
-;; "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-;; (let ((path (expand-file-name "ielm/history" user-emacs-directory)))
-;; (make-directory (file-name-directory path) t)
-;; (setq-local comint-input-ring-file-name path))
-;; (setq-local comint-input-ring-size 10000 comint-input-ignoredups t)
-;; (comint-read-input-ring))
-
-;; (defun re/ielm-write-history (&rest _args)
-;; "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-;; (with-file-modes 384 (comint-write-input-ring)))
-
-;; (add-hook 'ielm-mode-hook #'re/ielm-init-history)
-;; (advice-add 'ielm-send-input :after #'re/ielm-write-history)
-
(provide 're-repl-defuns)
;;; re-repl-defuns.el ends here