;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(defvar *window-text*)
(setq *window-text* nil)

(defun window-text (&optional win)
  (when-let* ((beg (window-start win))
              (end (window-end win)))
    (setq *window-text* (buffer-substring-no-properties beg end))))

(run-with-idle-timer 1.2 t #'window-text)

;; *window-text*

;; -----------------------------------------------------------------------------

(<- 'll-buffer-window)

;; -----------------------------------------------------------------------------