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

E8 lattice, Matilda Lotz & Municipality of Gorje.

Browse source
This commit is contained in:
nik gaffney 2023-05-30 13:58:08 +02:00
parent 0832dbc780
commit 21b3ab255a
Signed by: nik
GPG key ID: 989F5E6EDB478160
2 changed files with 21 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
etherpad-esync.el
View file

@ -47,15 +47,15 @@
;;; 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)
;; local and buffer local variables ;; local and buffer local variables
(defvar-local etherpad-esync--pre-buffer-length 0) (defvar-local etherpad-esync--pre-buffer-length 0)
@ -136,12 +136,12 @@
(message "setting up buffer change hooks") (message "setting up buffer change hooks")
(with-current-buffer etherpad-esync-buffer (with-current-buffer etherpad-esync-buffer
(add-hook 'before-change-functions (add-hook 'before-change-functions
'etherpad-esync--before-buffer-changes nil t) #'etherpad-esync--before-buffer-changes nil t)
;; ordering is important... ;; ordering is important...
(add-hook 'after-change-functions (add-hook 'after-change-functions
'etherpad-esync--after-buffer-changes 22 t) #'etherpad-esync--after-buffer-changes 22 t)
(add-hook 'after-change-functions (add-hook 'after-change-functions
'etherpad-esync--send-changes 23 t))) #'etherpad-esync--send-changes 23 t)))
(defun etherpad-esync--remove-change-hooks () (defun etherpad-esync--remove-change-hooks ()
"Remove predefined change hooks." "Remove predefined change hooks."
@ -149,11 +149,11 @@
(message "removing buffer change hooks") (message "removing buffer change hooks")
(with-current-buffer etherpad-esync-buffer (with-current-buffer etherpad-esync-buffer
(remove-hook 'before-change-functions (remove-hook 'before-change-functions
'etherpad-esync--before-buffer-changes t) #'etherpad-esync--before-buffer-changes t)
(remove-hook 'after-change-functions (remove-hook 'after-change-functions
'etherpad-esync--after-buffer-changes t) #'etherpad-esync--after-buffer-changes t)
(remove-hook 'after-change-functions (remove-hook 'after-change-functions
'etherpad-esync--send-changes t))) #'etherpad-esync--send-changes t)))
(defun etherpad-esync--before-buffer-changes (begin end) (defun etherpad-esync--before-buffer-changes (begin end)

10
etherpad.el
View file

@ -5,7 +5,7 @@
;; Author: nik gaffney <nik@fo.am> ;; Author: nik gaffney <nik@fo.am>
;; Created: 2020-08-08 ;; Created: 2020-08-08
;; Version: 0.1 ;; Version: 0.1
;; Package-Requires: ((emacs "26.3") (request "0.3") (let-alist "0.0") (websocket "1.12") (parsec "0.1") (0xc "0.1")) ;; Package-Requires: ((emacs "27.1") (request "0.3") (let-alist "0.0") (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
@ -48,10 +48,16 @@
(add-to-list 'load-path ".") (add-to-list 'load-path ".")
;; (require 'let-alist)
(require 'etherpad-esync) (require 'etherpad-esync)
(require 'let-alist)
(require 'websocket)
(require 'calc-bin)
(require 'request) (require 'request)
(require 'cl-lib) (require 'cl-lib)
(require 'parsec)
(require '0xc)
(require 's)
(defgroup etherpad nil (defgroup etherpad nil
"Etherpad edits." "Etherpad edits."