diff options
Diffstat (limited to 'emacs/init.el')
| -rw-r--r-- | emacs/init.el | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/emacs/init.el b/emacs/init.el index 92eeca6..f8d1a95 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -4,15 +4,17 @@ (setq garbage-collection-messages t) (add-hook 'emacs-startup-hook - #'(lambda () - (message (format "Initialised in %s seconds with %s garbage collections." (emacs-init-time) gcs-done)) - ;;; reset garbage collector - (setq - gc-cons-threshold 800000 - gc-cons-percentage 0.2))) + #'(lambda () + (message (format "Initialised in %s seconds with %s garbage collections." (emacs-init-time) gcs-done)) + ;;; reset garbage collector + (setq + gc-cons-threshold 800000 + gc-cons-percentage 0.2))) (setopt user-mail-address "noa@gaiwan.org") +(setopt indent-tabs-mode nil) + ;; properly distinguish these chords from their ascii legacy (define-key input-decode-map [?\C-m] [C-m]) @@ -109,10 +111,9 @@ (use-package jabber :ensure t :init - (setq noa/jabber-activity-dont-show '( - "#tildetown%town@irc.hmm.st" - "#meta%tilde.chat@irc.hmm.st" - "hmm@conference.hmm.st")) + (setq noa/jabber-activity-dont-show '("#tildetown%town@irc.hmm.st" + "#meta%tilde.chat@irc.hmm.st" + "hmm@conference.hmm.st")) (defun noa/jabber-activity-show-p (jid) "Return non-nil if JID should be hidden. A JID should be hidden when there is an invisible buffer for JID, @@ -120,13 +121,13 @@ when JID is not in `noa/jabber-activity-dont-show', and when JID is not in `jabber-activity-banned'." (let ((buffer (jabber-activity-find-buffer-name jid))) (and (buffer-live-p buffer) - (not (get-buffer-window buffer 'visible)) - (not (cl-dolist (entry jabber-activity-banned) - (when (string-match entry jid) - (cl-return t)))) - (not (cl-dolist (entry noa/jabber-activity-dont-show) - (when (string-match entry jid) - (cl-return t))))))) + (not (get-buffer-window buffer 'visible)) + (not (cl-dolist (entry jabber-activity-banned) + (when (string-match entry jid) + (cl-return t)))) + (not (cl-dolist (entry noa/jabber-activity-dont-show) + (when (string-match entry jid) + (cl-return t))))))) :custom (jabber-history-enabled t) (jabber-account-list '(("noa@hmm.st"))) |