DL
Size: a a a
DL
V(
DL
Aß
Aß
DL
DL
V(
Aß
EV
(defun setq-let ()
(interactive)
(save-excursion
(let* ((sexp-unq (read (thing-at-point 'sexp)))
(var-unq (car sexp-unq))
(val-unq (cadr sexp-unq))
(ev-val-unq (eval val-unq)))
(eval `(setq ,var-unq ev-val-unq))
(list var-unq ev-val-unq))))
(defun eol-position ()
(save-excursion
(end-of-line)
(current-column)))
(defun let-results-overlays ()
(interactive)
(let ((eol-max-l '(:pos 0)))
(condition-case nil
(while t
(let* ((old-max (plist-get eol-max-l :pos))
(new-max (max old-max (eol-position))))
(plist-put eol-max-l :pos ))
(backward-sexp))
(error nil))
(condition-case nil
(while t
(forward-sexp)
(let* ((value (cadr (setq-let)))
(eol-max (plist-get eol-max-l :pos))
(tab (s-repeat (- eol-max (eol-position)) " ")))
(eros--eval-overlay (format "%s %s" tab value) (point))))
(error nil))))
(let* ((z "test")
(a 1)
(b (1+ a))
(c (+ a b))
(d (list a b c))
(e (-zip '(a b c) d)))
(* a b c))
DL
DL
LL
Aß
Aß
DL
DL
DL
Aß