From 9a128f2ec906e687d25df0999165249f98788fe0 Mon Sep 17 00:00:00 2001
From: Grigory Shipunov <blame@oxapentane.com>
Date: Sun, 14 Jun 2020 17:03:58 +0200
Subject: [PATCH] disable docview for pdf, and some minor cleanups

---
 init.el | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 5b54d8c..4805c55 100644
--- a/init.el
+++ b/init.el
@@ -41,6 +41,7 @@
 ;; readline prevails
 (global-set-key "\C-w" 'backward-kill-word)
 (global-set-key "\C-x\C-k" 'kill-region)
+(global-set-key "\C-h" 'delete-backward-char)
 
 (defadvice term-handle-exit
     (after term-kill-buffer-on-exit activate)
@@ -54,7 +55,10 @@
 (add-hook 'prog-mode-hook #'my-whitespace-hook)
 (add-hook 'text-mode-hook #'my-whitespace-hook)
 
-;; let's try to fix the pile of burning garbage that emacs calls a tab
+;; let's try to fix the pile of burning garbage that emacs calls a
+;; tab. If anyone reading actually knows why mixing tabs and spaces or
+;; deleting the tab one space at a time is a good idea, please drop me
+;; an email. I want to know.
 (require 'whitespace)
 (setq whitespace-style '(face tabs tab-mark))
 (setq whitespace-display-mappings
@@ -81,6 +85,33 @@
 (add-hook 'scheme-mode-hook 'tabs-nay)
 (add-hook 'emacs-lisp-mode-hook 'tabs-nay)
 
+;; time to throw out this "DocView" abomination: full featured pdf
+;; viewer of antiquity, that emacs uses today!
+(defun ensc/mailcap-mime-data-filter (filter)
+  (mapcar (lambda(major)
+            (append (list (car major))
+                    (remove nil
+                            (mapcar (lambda(minor)
+                                      (when (funcall filter (car major) (car minor) (cdr minor))
+                                        minor))
+                                    (cdr major)))))
+          mailcap-mime-data))
+
+(defun ensc/no-pdf-doc-view-filter (major minor spec)
+  (if (and (string= major "application")
+           (string= minor "pdf")
+           (member '(viewer . doc-view-mode) spec))
+      nil
+    t))
+
+(eval-after-load 'mailcap
+  '(progn
+     (setq mailcap-mime-data
+           (ensc/mailcap-mime-data-filter 'ensc/no-pdf-doc-view-filter))))
+
+;; and this seems to make xdg-open work
+(setq process-connection-type nil)
+
 ;; highlight the parens
 (setq show-paren-delay 0)
 (show-paren-mode 1)