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

10
etherpad.el
View file

@ -5,7 +5,7 @@
;; Author: nik gaffney <nik@fo.am>
;; Created: 2020-08-08
;; 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
;; URL: https://github.com/zzkt/ethermacs
@ -48,10 +48,16 @@
(add-to-list 'load-path ".")
;; (require 'let-alist)
(require 'etherpad-esync)
(require 'let-alist)
(require 'websocket)
(require 'calc-bin)
(require 'request)
(require 'cl-lib)
(require 'parsec)
(require '0xc)
(require 's)
(defgroup etherpad nil
"Etherpad edits."