 
 (use-package quail
   :defer t
-  :config (progn
-            (defun db/add-symbols-to-TeX-input-method ()
-              (when (string= current-input-method "TeX")
-                (let ((quail-current-package (assoc "TeX" quail-package-alist)))
-                  (quail-define-rules
-                   ((append . t))
-                   ("\\land" ?∧)
-                   ("\\lor" ?∨)
-                   ("\\lnot" ?¬)
-                   ("\\implies" ?⇒)
-                   ("\\powerset" ?𝔓)
-                   ("\\mathbbK" ?𝕂)
-                   ("\\mathbbR" ?ℝ)
-                   ("\\mathbbN" ?ℕ)
-                   ("\\mathbbZ" ?ℤ)
-                   ("\\mathbbP" ?ℙ)
-                   ("\\mathcalA" ?𝒜)
-                   ("\\mathcalB" ?ℬ)
-                   ("\\mathcalC" ?𝒞)
-                   ("\\mathcalD" ?𝒟)
-                   ("\\mathcalE" ?ℰ)
-                   ("\\mathcalH" ?ℋ)
-                   ("\\mathcalI" ?ℐ)
-                   ("\\mathcalJ" ?𝒥)
-                   ("\\mathcalK" ?𝒦)
-                   ("\\mathcalL" ?ℒ)
-                   ("\\mathcalM" ?ℳ)
-                   ("\\mathcalR" ?ℛ)
-                   ("\\mathcalQ" ?𝒬)
-                   ("\\mathcalS" ?𝒮)
-                   ("\\mathfrakP" ?𝔓)))))
-            (add-hook 'input-method-activate-hook
-                      #'db/add-symbols-to-TeX-input-method)))
+  :config (add-hook 'input-method-activate-hook
+                    #'db/add-symbols-to-TeX-input-method))
+
+(defun db/add-symbols-to-TeX-input-method ()
+  "Add some new symbols to TeX input method."
+  (when (string= current-input-method "TeX")
+    (let ((quail-current-package (assoc "TeX" quail-package-alist)))
+      (quail-define-rules
+       ((append . t))
+       ("\\land" ?∧)
+       ("\\lor" ?∨)
+       ("\\lnot" ?¬)
+       ("\\implies" ?⇒)
+       ("\\powerset" ?𝔓)
+       ("\\mathbbK" ?𝕂)
+       ("\\mathbbR" ?ℝ)
+       ("\\mathbbN" ?ℕ)
+       ("\\mathbbZ" ?ℤ)
+       ("\\mathbbP" ?ℙ)
+       ("\\mathcalA" ?𝒜)
+       ("\\mathcalB" ?ℬ)
+       ("\\mathcalC" ?𝒞)
+       ("\\mathcalD" ?𝒟)
+       ("\\mathcalE" ?ℰ)
+       ("\\mathcalH" ?ℋ)
+       ("\\mathcalI" ?ℐ)
+       ("\\mathcalJ" ?𝒥)
+       ("\\mathcalK" ?𝒦)
+       ("\\mathcalL" ?ℒ)
+       ("\\mathcalM" ?ℳ)
+       ("\\mathcalR" ?ℛ)
+       ("\\mathcalQ" ?𝒬)
+       ("\\mathcalS" ?𝒮)
+       ("\\mathfrakP" ?𝔓)))))
 
 (use-package server
   :commands (server-running-p server-start))

(use-package find-dired
  :commands (find-dired)
  :config (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))



            (when on-windows
              (setq ls-lisp-use-insert-directory-program t))
            (dired-quick-sort-setup)

            (bind-key [remap beginning-of-buffer]
                      #'dired-back-to-top dired-mode-map)
