mir/notibox
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move frames. some stuff is still broken but the theory is vindicated by laboratory experiments

Browse Source
This commit is contained in:
Miranda Marquez 2024-10-20 14:17:25 -08:00
parent 0970d7800f
commit 1a24b9d5f6
1 changed files with 90 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
notibox.el
View File

@ -78,39 +78,43 @@ If STACKDEPTH is non-nil and nonzero, return a position that far down."
(y-direction (pcase notibox-corner (y-direction (pcase notibox-corner
((or 'topleft 'topright) #'+) ((or 'topleft 'topright) #'+)
((or 'bottomleft 'bottomright) #'-))) ((or 'bottomleft 'bottomright) #'-)))
(y-coord (funcall y-direction y-justify (* stackdepth child-height))) (y-coord (funcall y-direction y-justify (* stackdepth padded-height)))
) )
(cons x-justify y-coord) (cons x-justify y-coord)
)) ))
;; (notibox--get-position 3) ;; (notibox--get-position 3)
(defun notibox--prepare-buffer (title body) (defun notibox--prepare-buffer (title body &optional buffer)
"Populate the `*notibox*' buffer with TITLE and BODY properly formatted." "Populate the `*notibox*' buffer (or BUFFER if specified) with TITLE and BODY properly formatted."
(with-current-buffer (get-buffer-create "*notibox*") (let ((buf (get-buffer-create (or buffer "*notibox*"))))
(let ((inhibit-read-only t)) (with-current-buffer buf
(erase-buffer) (let ((inhibit-read-only t))
(insert (format "%s\n%s\n%s" ;; (buttonize title #'view-echo-area-messages) (erase-buffer)
title (insert (format "%s\n%s\n%s" ;; (buttonize title #'view-echo-area-messages)
(propertize (make-string notibox-width ?─) title
'face `((:foreground ,notibox-border-color))) (propertize (make-string notibox-width ?─)
body))))) 'face `((:foreground ,notibox-border-color)))
;; (notibox--prepare-buffer "test" "this better work gadangit") body))))))
;; (notibox--prepare-buffer "test" "this better work gadahgit" (or nil "*notibox-2*"))
;; (get-buffer-create "*notibox-2*")
;; wait, we need to be actually basing the things on the buffers huh
(defvar notibox-current-posframes nil) (defvar notibox-current-posframes nil)
(cl-defun notibox--show (&key timeout &key depth) (cl-defun notibox--show (&key timeout &key depth &key buf)
"Show the notibox currently prepared, with optional TIMEOUT, at DEPTH." "Show the notibox currently prepared, with optional TIMEOUT, at DEPTH, in BUF."
(add-to-list 'notibox-current-posframes (add-to-list 'notibox-current-posframes
(posframe-show (get-buffer-create "*notibox*") (let ((buffer (get-buffer-create (or buf "*notibox*"))))
:position (notibox--get-position depth) (posframe-show buffer
:left-fringe 0 :position (notibox--get-position depth)
:right-fringe 0 :left-fringe 0
:max-width notibox-width :right-fringe 0
:max-height notibox-height :max-width notibox-width
:min-width notibox-width :max-height notibox-height
:min-height notibox-height :min-width notibox-width
:border-width 2 :min-height notibox-height
:border-color notibox-border-color :border-width 2
:timeout timeout)) :border-color notibox-border-color
:timeout timeout)))
nil) nil)
(defun notibox-alert (info) (defun notibox-alert (info)
@ -219,5 +223,66 @@ If the source is not obvious, use `current-buffer'."
(notibox-alert '(:title "five" :message "six"))) (notibox-alert '(:title "five" :message "six")))
;; (notibox-alert '(:title "一" :message "二" :timeout 5 :depth 0)) ;; (notibox-alert '(:title "一" :message "二" :timeout 5 :depth 0))
;; begin frame moving experiments. thought we already did this...
(setq test-frame (posframe-show "*Messages*"
:position '(800 . 50)
:width 30
:height 16))
(defun mir/move-frame (frame pos)
"Move FRAME to POS, a cons of (top . left)."
(modify-frame-parameters frame
`(
(top . ,(car pos))
(left . ,(cdr pos))
)))
;; (frame-parameters test-frame)
;; (mir/move-frame test-frame '(300 . 1200))
(defvar mir/framove-update-interval 0.05
"How many seconds to wait before updating incremental frame positions.")
(defun mir/framove-gradual (frame newpos duration)
"Move FRAME to NEWPOS ( a cons of top and left) over DURATION.
intermediate positions are calculated via `mir/framove-update-interval'."
(let* (
(how-many-steps (/ duration mir/framove-update-interval))
(updates-num-seq (number-sequence 1 how-many-steps))
(timestamps (--map (* mir/framove-update-interval it) updates-num-seq))
(beg-top (frame-parameter frame 'top))
(beg-left (frame-parameter frame 'left))
(end-top (car newpos))
(end-left (cdr newpos))
(top-diff (/ (- end-top beg-top) (float how-many-steps)))
(left-diff (/ (- end-left beg-left) (float how-many-steps)))
(tops (or (number-sequence beg-top end-top top-diff) 0))
(lefts (or (number-sequence beg-left end-left left-diff) 0))
(uhm
(--map (list
(or (elt timestamps it) duration)
(or (elt tops it) beg-top)
(or (elt lefts it) beg-left)
)
updates-num-seq
))
(timerfun (lambda (threelist)
(let ((timestamp (-first-item threelist))
(top (-second-item threelist))
(left (-third-item threelist)))
(if (and top left)
(run-with-timer timestamp nil ;no repeat
#'mir/move-frame
frame
(cons (round top) (round left))
)
;; (message "%s" threelist)
))))
)
(mapcar timerfun uhm)
)
nil
)
;; (mir/framove-gradual test-frame '(500 . 1400) 1)
;; (mir/move-frame test-frame '(500 . 500))
(provide 'notibox) (provide 'notibox)
;;; notibox.el ends here ;;; notibox.el ends here