From 30b349d43c1483c7608a020460b535cc0fb29ec1 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Mon, 26 Jun 2023 16:02:49 +1000
Subject: Adding license files and updating readmes

* COPYING.agpl3: agpl3 license file
* README.org: added readme for the repo
* emacs/.emacs.d/init/ycp-editing.el: fix hook names
* emacs/.emacs.d/init/ycp-project.el: include `my-licenses' in local-config
* emacs/.emacs.d/lisp/my/my-editing.el: fix insert pair prompt
* emacs/README.org: Move acknowledgement to the main readme; fix
  verbatim to code. Add instruction on local-config generation
* manual/README.org: minor change
---
 emacs/.emacs.d/init/ycp-editing.el   | 2 +-
 emacs/.emacs.d/init/ycp-project.el   | 2 +-
 emacs/.emacs.d/lisp/my/my-editing.el | 7 ++++---
 3 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'emacs/.emacs.d')

diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el
index 7af3587..4bdeb32 100644
--- a/emacs/.emacs.d/init/ycp-editing.el
+++ b/emacs/.emacs.d/init/ycp-editing.el
@@ -132,7 +132,7 @@
 
 (add-hook 'text-mode-hook #'turn-on-auto-fill)
 
-(my-add-hooks #'my-non-special-modes-setup '(text-mode prog-mode))
+(my-add-hooks #'my-non-special-modes-setup '(text-mode-hook prog-mode-hook))
 
 (add-to-list
  'auto-mode-alist
diff --git a/emacs/.emacs.d/init/ycp-project.el b/emacs/.emacs.d/init/ycp-project.el
index 15c7fcc..d4c7dd9 100644
--- a/emacs/.emacs.d/init/ycp-project.el
+++ b/emacs/.emacs.d/init/ycp-project.el
@@ -29,7 +29,7 @@
 
 (my-package my-project
   (:delay 30)
-  (my-setq-from-local my-projects-root-dirs)
+  (my-setq-from-local my-projects-root-dirs my-licenses)
   (my-keybind global-map
     "\C-xpl" #'my-project-copy-license-file-to-project
     "\C-xpS" #'my-project-shell-at
diff --git a/emacs/.emacs.d/lisp/my/my-editing.el b/emacs/.emacs.d/lisp/my/my-editing.el
index 940a338..b420d89 100644
--- a/emacs/.emacs.d/lisp/my/my-editing.el
+++ b/emacs/.emacs.d/lisp/my/my-editing.el
@@ -251,9 +251,10 @@ Call the commands `my-escape-url-line' and
 (defun my--character-prompt (chars)
   "Helper of `my-insert-pair-completion' to read CHARS."
   (let ((def (car my--character-hist)))
-    (completing-read
-     (format "Select character [%s]: " def)
-     chars nil t nil 'my--character-hist def)))
+    (let ((electric-pair-mode nil))
+      (completing-read
+       (format "Select character [%s]: " def)
+       chars nil t nil 'my--character-hist def))))
 
 ;;;###autoload
 (defun my-insert-pair (pair &optional count)
-- 
cgit v1.2.3