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:
;; (require 'websocket)
;; (require 'let-alist)
;; (require 'calc-bin)
;; (require 'parsec)
;; (require '0xc)
;; (require 's)
(require 'websocket)
(require 'let-alist)
(require 'calc-bin)
(require 'parsec)
(require '0xc)
(require 's)
;; debug details
;; (setq websocket-debug t)
@ -199,10 +199,9 @@
(defun etherpad-esync--encode-changeset (length change-size ops chars)
"Create a changeset from some buffer activity. LENGTH CHANGE-SIZE OPS CHARS."
(cl-flet ((n-36 (number)
;; Convert a decimal NUMBER to base-36 as string.
(cl-labels ((n-36 (n)
(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"
length (n-36 length)
change-size ops chars)