X-Git-Url: https://plomlompom.com/repos/berlin_corona.txt?a=blobdiff_plain;f=buster%2Fhome_files%2Fuser%2F.emacs.d%2Finit.el;h=fbec98087ddf9dd8813ec5e6f132217a17f53bb8;hb=e3d9358bad40db3dc93ddad5a88a9a43026f7e78;hp=31a4dcba29e16a2cb2a8fa6d04789f6bf5dcd3af;hpb=72d0c7ff45225d7e122f752a95b24a126d5545ff;p=config

diff --git a/buster/home_files/user/.emacs.d/init.el b/buster/home_files/user/.emacs.d/init.el
index 31a4dcb..fbec980 100644
--- a/buster/home_files/user/.emacs.d/init.el
+++ b/buster/home_files/user/.emacs.d/init.el
@@ -29,6 +29,8 @@
 ;; use as default browser what XDG offers
 (setq-default browse-url-browser-function 'browse-url-xdg-open)
 
+
+
 ;; general keybindings
 ;; ===================
 
@@ -55,6 +57,7 @@
 (setq shr-map (make-sparse-keymap))  ; got annoying in elfeed-show on URLs
 
 
+
 ;; minibuffer
 ;; ==========
 
@@ -87,7 +90,6 @@
       delete-old-versions 1)  ;; neither t nor nil: never delete
 
 
-
 ;; package management
 ;; ==================
 
@@ -118,13 +120,30 @@
 ;; ==========
 
 (setq send-mail-function 'smtpmail-send-it)
-(setq smtpmail-smtp-server "core.plomlompom.com")
+(setq smtpmail-smtp-server "mail.plomlompom.com")
 (setq smtpmail-smtp-service 465)
 (setq smtpmail-stream-type 'ssl)
 (setq smtpmail-smtp-user "plom")
 (setq mml-secure-openpgp-encrypt-to-self t)
 (add-hook 'message-setup-hook 'mml-secure-sign-pgpmime)
 
+;(setq gnutls-log-level 0)
+
+;; if we don't set this, we get this warning:
+;;   gnutls.c: [1] Note that the security level of the Diffie-Hellman key exchange
+;;   has been lowered to 256 bits and this may allow decryption of the session data
+(setq gnutls-min-prime-bits 1024)
+
+;; there is a WEIRD bug somewhere in /network-stream-open-tls/ that disappears the
+;; stream process, seemingly unless the /message/ function is called at the right
+;; place (earliest in /nsm-verify-connection/ right before the "cond" there, latest
+;; in /network-stream-get-response/ right after "(goto-char start)"; this works
+;; unless /inhibit_message/ is set, indicating that writing to the *Messages*
+;; buffer is not relevant, but maybe writing to the echo area is); activing the
+;; gnutls logging is just a hack to achieve such calls to /message/ in the
+;; /network-stream-open-tls/ flow.
+(setq gnutls-log-level 1) ; miraculously makes smtpmail work
+
 ;; constructs From: domain if mail composer directly called (from without
 ;; notmuch), but we don't actually intend to do that
 ;(setq mail-host-address "plomlompom.com")
@@ -139,6 +158,18 @@
 ;; in the message ID
 (setq mail-host-address "plomlompom.com")
 
+;; notmuch saved searches
+(setq notmuch-saved-searches
+      '((:name "inbox" :query "tag:unread and folder:inbox")
+        (:name "all" :query "tag:unread not folder:maildir/Trash")
+        (:name "plomlompom.de" :query "tag:unread and folder:maildir/plomlompom.de")
+        (:name "nebenan" :query "tag:unread and folder:maildir/nebenan")
+        (:name "reflect-info" :query "tag:unread and folder:maildir/reflect-info")
+        (:name "gmail" :query "tag:unread and folder:maildir/gmail.com")
+        (:name "mutter" :query "tag:unread and folder:maildir/mutter")))
+
+
+
 ;; org mode
 ;; ========
 
@@ -151,6 +182,9 @@
     (define-key org-mode-map (kbd "TAB") 'org-cycle)
     (define-key org-mode-map (kbd "<backtab>") 'org-shifttab))
 
+;; don't truncate lines by default
+(setq org-startup-truncated nil)
+
 ;; basic org-capture config
 (setq org-capture-templates
       '(("x" "test" plain (file "~/org/notes.org") "%T: %?")))
@@ -207,14 +241,6 @@
 
 
 
-;;; plomvi mode
-;;; ===========
-(load "~/public_repos/plomvi.el/plomvi.el")
-(global-set-key (kbd "C-c") 'plomvi-activate)
-(plomvi-global-mode 1)
-
-
-
 ;;; Info mode
 ;;; =========
 
@@ -228,6 +254,8 @@
 (define-key Info-mode-map (kbd "I") 'Info-goto-node)
 (define-key Info-mode-map (kbd "i") 'Info-index)
 
+
+
 ;; help mode
 ;; =========
 
@@ -236,6 +264,8 @@
 (define-key help-mode-map (kbd "RET") 'help-follow)
 (define-key help-mode-map (kbd "<backtab>") 'backward-button)
 
+
+
 ;; elfeed
 ;; ======
 
@@ -265,6 +295,8 @@
 (define-key elfeed-show-mode-map (kbd "y") 'shr-copy-url)
 (define-key elfeed-show-mode-map (kbd "RET") 'shr-browse-url)
 
+
+
 ;; eww
 ;; ===
 
@@ -274,16 +306,18 @@
 (define-key eww-mode-map (kbd "H") 'eww-back-url)
 (define-key eww-mode-map (kbd "L") 'eww-forward-url)
 
+
+
 ;; ledger
 ;; ======
 (setq ledger-mode-map (make-sparse-keymap))
 (define-key ledger-mode-map (kbd "TAB") 'ledger-magic-tab)
 
 
-;; unset other maps so they don't disturb C-c keybinding
-;; =====================================================
-;; TODO: saner solution would be a default-activated minor mode that binds
-;; C-c
-(setq conf-mode-map (make-sparse-keymap))
-(setq sh-mode-map (make-sparse-keymap))
-(setq python-mode-map (make-sparse-keymap))
+
+;;; plomvi mode
+;;; ===========
+
+(defvar plomvi-return-combo (kbd "C-c"))
+(load "~/public_repos/plomvi.el/plomvi.el")
+(plomvi-global-mode 1)