2 کامیت‌ها 8939d51d33 ... 3bf4b1852a

نویسنده SHA1 پیام تاریخ
  Emilia L.K. Blåsten 3bf4b1852a Make gnus reading mode smooth 2 ماه پیش
  Emilia L.K. Blåsten 81958de4ca Defer loading of several packages for faster startup 2 ماه پیش
2فایلهای تغییر یافته به همراه19 افزوده شده و 6 حذف شده
  1. 12 1
      emacs
  2. 7 5
      gnus.el

+ 12 - 1
emacs

@@ -308,21 +308,25 @@ Group number 1 should be the prefix itself."
 
 (use-package slime ; SLIME (Common LISP)
   :ensure t
+  :defer
   :custom
   (inferior-lisp-program "clisp")
   :config
   (slime-setup '(slime-fancy)))
 (use-package slime-company
   :ensure t
+  :defer
   :after (slime company)
   :custom
   (slime-company-completion 'fuzzy)
   :config
   (slime-setup '(slime-company)))
 (use-package geiser-chez ; For Chez Scheme, start M-x run-geiser
-  :ensure t)
+  :ensure t
+  :defer)
 (use-package markdown-mode
   :ensure t
+  :defer
   :mode ("README\\.md\\'" . gfm-mode)
   :custom
   (markdown-command "pandoc"))
@@ -343,10 +347,12 @@ Group number 1 should be the prefix itself."
     (progn
       (use-package pdf-tools
         :ensure t
+        :defer
         :config
         (pdf-tools-install :no-query))
       (use-package org-noter
         :ensure t
+        :defer
         :after (pdf-tools)
         :custom
         (org-noter-notes-search-path (list bibliography-notes)))))
@@ -431,6 +437,7 @@ Group number 1 should be the prefix itself."
   )
 (use-package org-ref ; Includes doi-utils
   :ensure t
+  :defer
   :custom
   ;; Words which shouldn't be capitalized in titles
   (org-ref-lower-case-words '("a" "an" "at" "on" "and" "for" "the" "of" "in"))
@@ -444,6 +451,7 @@ Group number 1 should be the prefix itself."
 (use-package emacsql :ensure t)
 (use-package org-roam
   :ensure t
+  :defer
   :after emacsql
   :init
   (setq org-roam-database-connector 'sqlite-builtin)
@@ -461,6 +469,7 @@ Group number 1 should be the prefix itself."
   (org-roam-db-autosync-mode 1))
 (use-package org-roam-bibtex
   :ensure t
+  :defer
   :custom
   (orb-preformat-keywords '("citekey" "title" "url" "author-or-editor" "keywords" "file")) ; customisation for notes, org-noter integration
   (orb-process-file-keyword t)
@@ -479,6 +488,7 @@ Group number 1 should be the prefix itself."
   (org-roam-ui-open-on-start t))
 (use-package scihub
   :ensure t
+  :after helm-bibtex
   :custom
   (scihub-download-directory (car bibtex-completion-library-path))
   (scihub-open-after-download nil)
@@ -582,6 +592,7 @@ Group number 1 should be the prefix itself."
   (add-to-list 'helm-completing-read-handlers-alist '(org-set-tags . helm-org-completing-read-tags)))
 (use-package suomalainen-kalenteri
   :ensure t
+  :after org
   :config
   (set-face-attribute 'org-agenda-calendar-sexp nil
                       :inherit 'org-level-2)

+ 7 - 5
gnus.el

@@ -4,7 +4,7 @@
 (setq auth-source-xoauth2-creds 'my-xoauth2-get-secrets)
 (add-to-list 'smtpmail-auth-supported 'xoauth2)
 (auth-source-xoauth2-enable)
-
+(setq gnus-asynchronous t)
 
 
 ;;; Sending related stuff
@@ -77,12 +77,14 @@
 ;;           'gnus-summary-mark-unread-as-read)
 (add-hook 'gnus-summary-mode-hook 'my-alter-summary-map)
 (defun my-alter-summary-map ()
-  (keymap-local-set "E" 'gnus-summary-put-mark-as-expirable)
+  ;;  (keymap-local-set "E" 'gnus-summary-put-mark-as-expirable)
+  ;; ^ it's better to move one down after pressing E.
+;;  (keymap-local-set "d" 'gnus-summary-mark-as-read-forward)
   (keymap-local-set "?" 'gnus-summary-put-mark-as-dormant)
   (keymap-local-set "!" 'gnus-summary-put-mark-as-ticked)
-  (keymap-local-set "M-u" 'gnus-summary-put-mark-as-unread)
-  (keymap-local-set "d" 'gnus-summary-put-mark-as-read))
-
+  (keymap-local-set "M-u" 'gnus-summary-put-mark-as-unread))
+(setq gnus-summary-goto-unread 'never) ;; go to next article (using
+                                       ;; 'n' even it it's read)