Compact tkinter calc

[gilch]

Inspired by https://www.reddit.com/r/Python/comments/ofr75b/i_made_a_calculator_with_17_lines_of_code/.

;; Hissp v0.4.dev2022-05-14
(hissp.._macro_.prelude)

(define window (tkinter..Tk))
(define display (tkinter..Label window : text ""))
(.grid display : column 0  row 0  columnspan 5)

(define press X#(set! display 'text (case X (concat (get#'text display) X)
                                      (C) ""
                                      (.#"<") (-> display (get#'text) (get#(slice None -1)))
                                      (.#"=") (-> display (get#'text) (eval) (round 6) (str)))))

(any*map ik (enumerate "()C<789/456*123-.0=+")
  (doto (tkinter..Button window : text k  command &#(press k)  width 5)
    (.grid : column (mod i 4)  row (add 1 (floordiv i 4))))
  None)

(.mainloop window)

Mine's 13 though. I do think the mod/floordiv computed indexes are unpythonic. My instinct would be to restructure the data for readability, perhaps as a list of strings per row (easily split) or maybe a pair-keyed dict, but overall, that would be longer.