52 lines
1.5 KiB
EmacsLisp
52 lines
1.5 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
;; (ekp-clear-caches)
|
|
;; (ekp-pixel-init 6 2 1 4 2 1 0 1 0)
|
|
;; (ekp-param-fmtstr)
|
|
;; (ekp-text-cache ekp-test-str1)
|
|
;; (ekp-param-cache ekp-test-str1)
|
|
;; (ekp-dp-cache ekp-test-str1 888)
|
|
;; (ekp-dp-cache ekp-test-str1 888)
|
|
;; (ekp-total-cost ekp-test-str1 888)
|
|
;; (ekp-line-breaks ekp-test-str1 444)
|
|
;; (ekp-line-glues ekp-test-str1 888)
|
|
|
|
(progn
|
|
(defvar ekp-string-1
|
|
(propertize (file-content "./text1.txt")
|
|
'face 'ekp-latin-face))
|
|
;; (ekp-clear-caches)
|
|
;; (ekp-pixel-init 6 2 1 4 2 1 0 1 0)
|
|
(pop-buffer-do 25
|
|
(let ((cons (ekp-pixel-range-justify ekp-string-1 100 1500)))
|
|
(insert (car cons)))))
|
|
|
|
;; "Cascadia Next SC"
|
|
(defvar ekp-string-1
|
|
(propertize (file-content "./text1.txt")
|
|
'face '(:family "Cascadia Next SC")
|
|
;; 'face 'ekp-latin-face
|
|
))
|
|
|
|
(ekp-param-fmtstr)
|
|
(progn
|
|
(setq elog-level nil)
|
|
;; (elog-log-clear)
|
|
;; (ekp-clear-caches)
|
|
;; (ekp-param-set 6 2 6 4 3 1 0 1 0)
|
|
;; (ekp-param-set-default ekp-string-1)
|
|
(pop-buffer-do 25
|
|
(benchmark-progn
|
|
(let ((str (ekp-pixel-justify ekp-string-1 277)))
|
|
(insert str)))))
|
|
|
|
(defun ekp-test-justify ()
|
|
(interactive)
|
|
(let ((buf (get-buffer-create "ekp-test")))
|
|
(switch-to-buffer buf)
|
|
(with-current-buffer buf
|
|
(dotimes (i 1200)
|
|
(erase-buffer)
|
|
(elog-log-clear)
|
|
(insert (ekp-pixel-justify ekp-string-1 (+ i 200)))
|
|
(sit-for 0.000001)))))
|