emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/crdt 8be5ff7 78/80: Replace define-minor-mode positiona


From: ELPA Syncer
Subject: [elpa] externals/crdt 8be5ff7 78/80: Replace define-minor-mode positional arguments with keywords
Date: Sat, 28 Aug 2021 10:57:46 -0400 (EDT)

branch: externals/crdt
commit 8be5ff7c5ba21f4aa35afad824dccb5f69cc7713
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    Replace define-minor-mode positional arguments with keywords
---
 crdt.el | 41 ++++++++++++++++++++++-------------------
 1 file changed, 22 insertions(+), 19 deletions(-)

diff --git a/crdt.el b/crdt.el
index 57a9423..2e4a00f 100644
--- a/crdt.el
+++ b/crdt.el
@@ -384,17 +384,18 @@ Also set CRDT--PSEUDO-CURSOR-TABLE to NIL."
 (add-hook 'after-change-major-mode-hook #'crdt--after-change-major-mode)
 
 (define-minor-mode crdt-mode
-    "CRDT mode" nil " CRDT" nil
-    (if crdt-mode
-        (progn
-          (unless crdt--pseudo-cursor-table
-            (setq crdt--pseudo-cursor-table (make-hash-table)))
-          (unless crdt--overlay-table
-            (setq crdt--overlay-table (make-hash-table :test 'equal)))
-          (crdt--install-hooks))
-      (crdt--uninstall-hooks)
-      (crdt--clear-pseudo-cursor-table)
-      (setq crdt--overlay-table nil)))
+  "Mode for source collaborative buffers."
+  :lighter " CRDT"
+  (if crdt-mode
+      (progn
+        (unless crdt--pseudo-cursor-table
+          (setq crdt--pseudo-cursor-table (make-hash-table)))
+        (unless crdt--overlay-table
+          (setq crdt--overlay-table (make-hash-table :test 'equal)))
+        (crdt--install-hooks))
+    (crdt--uninstall-hooks)
+    (crdt--clear-pseudo-cursor-table)
+    (setq crdt--overlay-table nil)))
 
 ;;; Author visualization
 
@@ -412,12 +413,13 @@ Also set CRDT--PSEUDO-CURSOR-TABLE to NIL."
          (setq pos prev-pos))))))
 
 (define-minor-mode crdt-visualize-author-mode
-    "" nil " CRDT-VAuthor" nil
-    (if crdt-visualize-author-mode
-        (crdt--visualize-author)
-      (save-restriction
-        (widen)
-        (remove-list-of-text-properties (point-min) (point-max) 
'(font-lock-face)))))
+  "Minor mode to visualize who wrote what."
+  :lighter " CRDT-VAuthor"
+  (if crdt-visualize-author-mode
+      (crdt--visualize-author)
+    (save-restriction
+      (widen)
+      (remove-list-of-text-properties (point-min) (point-max) 
'(font-lock-face)))))
 
 ;;; Shared buffer utils
 
@@ -1975,8 +1977,9 @@ Join with DISPLAY-NAME."
 
 ;;; Org integration
 
-(define-minor-mode crdt-org-sync-overlay-mode ""
-  nil " Sync Org Overlay" nil
+(define-minor-mode crdt-org-sync-overlay-mode
+  "Minor mode to synchronize hidden `org-mode' subtrees."
+  :lighter " Sync Org Overlay"
   (if crdt-org-sync-overlay-mode
       (progn
         (save-excursion



reply via email to

[Prev in Thread] Current Thread [Next in Thread]