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

Tuber oregonense, Vysotsky (skyscraper) & Nomina Villarum

Browse source
This commit is contained in:
nik gaffney 2023-05-30 14:48:22 +02:00
parent e5d4b0a6b1
commit 29409bf9ff
Signed by: nik
GPG key ID: 989F5E6EDB478160
1 changed files with 57 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
etherpad-esync.el
View file

@ -5,7 +5,6 @@
;; Author: nik gaffney <nik@fo.am> ;; Author: nik gaffney <nik@fo.am>
;; Created: 2020-12-12 ;; Created: 2020-12-12
;; Version: 0.1 ;; Version: 0.1
;; Package-Requires: ((emacs "27.1") (request "0.3") (websocket "1.12") (parsec "0.1") (0xc "0.1"))
;; Keywords: comm, etherpad, collaborative editing ;; Keywords: comm, etherpad, collaborative editing
;; URL: https://github.com/zzkt/ethermacs ;; URL: https://github.com/zzkt/ethermacs
@ -47,12 +46,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)
@ -277,7 +276,8 @@
pair should just be omitted." pair should just be omitted."
(let* ((changes (let* ((changes
(parsec-with-input cs (parsec-with-input
cs
;; a letter Z (the "magic character" and format version identifier) ;; a letter Z (the "magic character" and format version identifier)
(parsec-str "Z") (parsec-str "Z")
(parsec-collect* (parsec-collect*
@ -381,6 +381,7 @@ Numeric offsets are calculated from the beginning of the buffer."
(insert chars)))) (insert chars))))
(defun etherpad-esync-try-changeset (cs) (defun etherpad-esync-try-changeset (cs)
"Try changeset CS."
(let* ((changes (let* ((changes
(etherpad-esync-parse-changeset cs)) (etherpad-esync-parse-changeset cs))
(len (nth 0 changes)) (len (nth 0 changes))