So I wrote a little function for how I use eat.

In eat, you can have multiple terminal buffers open, and they are differentiated by incrementing numbers. The official way to open an additional buffer is to run eat with a prefix argument like C-u M-x eat. I wrote my little function to do this for me, because I don’t use prefix arguments/C-u anywhere else and just couldn’t remember it.

So this function checks the buffer list for existing eat buffers. If there is one with a number at the end, it takes this number, increments it by one and then opens a new eat buffer with this incremented number. If there is just one without a number, it opens a new buffer with the number one, since the first buffer is created without a number per default. If there is no eat buffer at all, it just calls eat to create one. This is the function:

(defun eat-more ()
  "Open a new terminal"
  (interactive)
  (if (match-buffers "\*eat\*")
      (if (string-match ".*<.>" (prin1-to-string (last (match-buffers "\*eat\*"))))
	  (eat (funcall eat-default-shell-function) (+ (string-to-number (substring (prin1-to-string (last (sort (match-buffers "\*eat\*")))) -4 -3)) 1))
	(eat (funcall eat-default-shell-function) 1))
    (eat)))

This works as intended, but the line getting and incrementing the buffer number looks really awkward. So my question is: How could I improve that to make it more readable without changing the logic completely?

There are probably shorter ways to do this by just calling eat with a prefix argument in the function itself, or something like that. But I am interested in interacting with the buffer list and all this nested string slicing and converting feels off. The actual eat function is defined here in eat.el Do you have any suggestions?

  • mina86@lemmy.wtfEnglish
    4·
    8 days ago

    With a non-numeric prefix ARG, create a new session.

    So just call eat as (eat whatever t) I guess.

  • cabhan@discuss.tchncs.de
    2·
    8 days ago

    Cool that you’re trying something new out! I also often find prefix arguments a bit unintuitive in my flow.

    First of all, you’re right that you could do (eat nil 4) to simulate the prefix argument. I do this in a number of my helpers.

    For my advice on your code, I think it would be easier to understand if you used a let* block to assign meaningful variable names. I’m writing this from my phone, so it’s hard to give a detailed example, but:

    (let* ((eat-buffers (match-buffers "\*eat\*"))
       (last-buffer (last (sort eat-buffers))))
 ;; Body
)

    And so on. This would let you reuse some values, and would also reduce the amount of nesting in your code.

    Edit: Missed a few parentheses, fixing syntax highlighting