zzkt/ethermacs
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

Sikunang, This Desert & IBM 6400 Accounting Machine.

Browse source
This commit is contained in:
nik gaffney 2023-05-30 14:36:42 +02:00
parent 21b3ab255a
commit 12b2748dd6
Signed by: nik
GPG key ID: 989F5E6EDB478160
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
etherpad-esync.el
View file

@ -47,12 +47,12 @@
;;; Code: ;;; Code:
;; (require 'websocket) (require 'websocket)
;; (require 'let-alist) (require 'let-alist)
;; (require 'calc-bin) (require 'calc-bin)
;; (require 'parsec) (require 'parsec)
;; (require '0xc) (require '0xc)
;; (require 's) (require 's)
;; debug details ;; debug details
;; (setq websocket-debug t) ;; (setq websocket-debug t)
@ -199,10 +199,9 @@
(defun etherpad-esync--encode-changeset (length change-size ops chars) (defun etherpad-esync--encode-changeset (length change-size ops chars)
"Create a changeset from some buffer activity. LENGTH CHANGE-SIZE OPS CHARS." "Create a changeset from some buffer activity. LENGTH CHANGE-SIZE OPS CHARS."
(cl-flet ((n-36 (number) (cl-labels ((n-36 (n)
;; Convert a decimal NUMBER to base-36 as string.
(let ((calc-number-radix 36)) (let ((calc-number-radix 36))
(downcase (math-format-radix number))))) (downcase (math-format-radix n)))))
(message "encoding: o:%s (%s) cs:%s op:%s ch:%s" (message "encoding: o:%s (%s) cs:%s op:%s ch:%s"
length (n-36 length) length (n-36 length)
change-size ops chars) change-size ops chars)