From f87cf6b7e22e042ba9cfe317a52dc2be2e3246db Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 7 Oct 2021 01:23:32 +0100
Subject: nits

---
 init.org | 50 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/init.org b/init.org
index 7f23382..6fe8d21 100644
--- a/init.org
+++ b/init.org
@@ -332,7 +332,7 @@
       #+end_src
 ***** nobreak char display
       #+begin_src emacs-lisp
-        (setq nobreak-char-display nil)
+        ;; (setq nobreak-char-display nil)
       #+end_src
 ***** list-fonts-display
       #+begin_src emacs-lisp
@@ -1044,7 +1044,7 @@
               (set-window-buffer (selected-window) next-win)
               (set-window-buffer (funcall selector) this-win)
               (select-window (funcall selector)))
-            (setq arg (if (plusp arg) (1- arg) (1+ arg))))))
+            (setq arg (if (> arg 0) (1- arg) (1+ arg))))))
 
       (define-key ctl-x-4-map (kbd "t") #'jao-transpose-windows)
       (global-set-key (kbd "M-O") #'jao-transpose-windows)
@@ -1580,27 +1580,26 @@
                     ("S" . jao-doc-view-save-session)
                     ("u" . jao-doc-view-visit-url)))
 
-      (use-package pdf-tools
-        :disabled t
-        :ensure t
-        :demand t
-        :config
-        (pdf-tools-install)
+      ;; (use-package pdf-tools
+      ;;   :ensure t
+      ;;   :demand t
+      ;;   :config
+      ;;   (pdf-tools-install)
 
-        (dolist (f '(pdf-view-scroll-up-or-next-page
-                     pdf-view-scroll-down-or-previous-page
-                     pdf-view-previous-line-or-previous-page
-                     pdf-view-next-line-or-next-page))
-          (advice-add f :after #'jao--refresh))
+      ;;   (dolist (f '(pdf-view-scroll-up-or-next-page
+      ;;                pdf-view-scroll-down-or-previous-page
+      ;;                pdf-view-previous-line-or-previous-page
+      ;;                pdf-view-next-line-or-next-page))
+      ;;     (advice-add f :after #'jao--refresh))
 
-        :diminish ((pdf-view-midnight-minor-mode . ""))
+      ;;   :diminish ((pdf-view-midnight-minor-mode . ""))
 
-        :bind (:map pdf-view-mode-map
-                    (("C-c C-d" . pdf-view-midnight-minor-mode)
-                     ("j" . pdf-view-next-line-or-next-page)
-                     ("J" . pdf-view-scroll-up-or-next-page)
-                     ("k" . pdf-view-previous-line-or-previous-page)
-                     ("K" . pdf-view-scroll-down-or-previous-page))))
+      ;;   :bind (:map pdf-view-mode-map
+      ;;               (("C-c C-d" . pdf-view-midnight-minor-mode)
+      ;;                ("j" . pdf-view-next-line-or-next-page)
+      ;;                ("J" . pdf-view-scroll-up-or-next-page)
+      ;;                ("k" . pdf-view-previous-line-or-previous-page)
+      ;;                ("K" . pdf-view-scroll-down-or-previous-page))))
 
       (use-package saveplace-pdf-view
         :ensure t
@@ -2125,7 +2124,9 @@
         :after outline
         :bind (:map outline-minor-mode-map
                     ("C-<tab>" . bicycle-cycle)
-                    ("S-<tab>" . bicycle-cycle-global)))
+                    ("S-<tab>" . bicycle-cycle-global))
+        :diminish ((hs-minor-mode . "")
+                   (outline-minor-mode . "")))
 
       (use-package prog-mode
         :config
@@ -2503,12 +2504,11 @@
     #+begin_src emacs-lisp
       (use-package tramp)
       (defun jao-tramp-hosts ()
-        (remove-duplicates
+        (seq-uniq
          (mapcan (lambda (x)
-                   (remove* nil
-                            (mapcar 'cadr (apply (car x) (cdr x)))))
+                   (remove nil (mapcar 'cadr (apply (car x) (cdr x)))))
                  (tramp-get-completion-function "ssh"))
-         :test #'string=))
+         #'string=))
 
       (defun jao-ssh ()
         (interactive)
-- 
cgit v1.2.3