jan.zy: Interesting; for me that key is bound to append-next-kill

(that’s just prelude)

hey… anyone has written a piece of snippet that would allow to use #_ reader macro? I’d like to comment/uncomment keybinding to work with that. it should be pretty straightforward to write, wondering if anyone already done this and I could just steal it?

Ooh.

I hope that exists. I also want to steal it.

@ag is this what you're looking for?

(defun comment-reader-macro ()
  (interactive)
  (unless (eq ?\( (following-char))
    (paredit-backward-up))
  (insert "#_"))

oh, uncommenting too, huh

good job @ghosss :thumbsup: :thumbsup: , now be a good lad add one for removing 🙂

(uncommenting I mean)

that's the tricky part, isn't it?

excuses, excuses 😄

I won't run this in production, but:

(defun am-i-in-a-commented-sexp ()
  (condition-case nil
      (save-excursion
        (unless (and (eq ?\( (following-char))
                     (eq ?_ (preceding-char)))
          (paredit-backward-up))
        (or (eq ?_ (preceding-char))
            (am-i-in-a-commented-sexp)))
    (error nil)))

(defun comment-uncomment-reader-macro ()
  (interactive)
  (if (am-i-in-a-commented-sexp)
      (progn
        (search-backward "#_")
        (delete-char 2))
    (progn
      (unless (eq ?\( (following-char))
        (paredit-backward-up))
      (insert "#_")))))

cool… you are one truly awesome person… I will definitely make use of this.

I’ll try to improve it later (if I have time). for example the first function doesn’t work for other forms (maps and keywords)

oh right... those things 🙂

I would’ve probably used smarparens to identify current form

ah. I don't use that...

I was disappointed I was looking at characters instead of dealing with forms