Tweak ERC settings, including enabling logging

diff --git a/.emacs.d/lisp/bandali-erc.el b/.emacs.d/lisp/bandali-erc.el
index bc0657a..1670af6 100644 (file)
--- a/.emacs.d/lisp/bandali-erc.el
+++ b/.emacs.d/lisp/bandali-erc.el
@@ -32,10 +32,10 @@
   (csetq
    erc-auto-query 'bury
    erc-autojoin-domain-only nil
   (csetq
    erc-auto-query 'bury
    erc-autojoin-domain-only nil

-   erc-dcc-get-default-directory (b/var "erc/dcc/")
+   erc-dcc-get-default-directory (b/var "erc/dcc")
+   erc-email-userid "bandali"

    erc-format-nick-function 'erc-format-@nick
    erc-join-buffer 'bury
    erc-format-nick-function 'erc-format-@nick
    erc-join-buffer 'bury

-   erc-log-channels-directory (b/var "erc/log-channels/")

    erc-lurker-hide-list '("JOIN" "PART" "QUIT")
    erc-nick "bandali"
    erc-prompt "erc>"
    erc-lurker-hide-list '("JOIN" "PART" "QUIT")
    erc-nick "bandali"
    erc-prompt "erc>"


@@ -61,9 +61,10 @@
     "Deop myself from current channel."
     (erc-cmd-DEOP (format "%s" (erc-current-nick))))
   (add-to-list 'erc-modules 'keep-place)
     "Deop myself from current channel."
     (erc-cmd-DEOP (format "%s" (erc-current-nick))))
   (add-to-list 'erc-modules 'keep-place)

+  (add-to-list 'erc-modules 'log)

   (when (display-graphic-p)
   (when (display-graphic-p)

-    (add-to-list 'erc-modules 'notifications))
-  (add-to-list 'erc-modules 'smiley)
+    (add-to-list 'erc-modules 'notifications)
+    (add-to-list 'erc-modules 'smiley))

   (add-to-list 'erc-modules 'spelling)
   (declare-function erc-update-modules "erc")
   (erc-update-modules)
   (add-to-list 'erc-modules 'spelling)
   (declare-function erc-update-modules "erc")
   (erc-update-modules)


@@ -93,6 +94,17 @@
   ;; to disable:
   ;; (erc-fill-mode -1)
 
   ;; to disable:
   ;; (erc-fill-mode -1)
 

+  ;; erc-log
+  (csetq
+   ;; erc-enable-logging 'erc-log-all-but-server-buffers
+   erc-generate-log-file-name-function 'erc-generate-log-file-name-with-date
+   erc-log-channels-directory (b/var "erc/logs")
+   erc-log-file-coding-system 'utf-8
+   erc-log-write-after-insert t
+   erc-log-write-after-send t
+   erc-save-buffer-on-part nil
+   erc-save-queries-on-quit nil)
+

   ;; erc-match
   (csetq
    erc-pal-highlight-type 'nick
   ;; erc-match
   (csetq
    erc-pal-highlight-type 'nick