emacs : markdown, reader, docker, utils

.config/emacs/init.el

@@ -80,21 +80,20 @@ Otherwise the startup will be very slow. "
 (require 'init-eshell)
 
 ;;;; markdown
-;;(require 'init-markdown)
+(require 'init-markdown)
 ;;(require 'init-org)
-;;(require 'init-reader)
-;;
-;;;;
-;;(require 'init-dict)
-;;
-;;;; docker
-;;(when ON-LINUX
-;;  (require 'init-docker))
-;;;; utils
-;;(require 'init-utils)
+(require 'init-reader)
+
 ;;
 ;; (require 'init-dict) ;; will be removed
 
+;; docker
+(when ON-LINUX
+ (require 'init-docker))
+;; utils
+(require 'init-utils)
+
+;; Programming
 ;;(require 'init-vcs)
 ;;(require 'init-flycheck)
 ;;(require 'init-eglot)

.config/emacs/lisp/init-docker.el

@@ -1,11 +1,17 @@
 ;;; init-docker.el -*- lexical-binding: t -*-
 ;; Docker
 (use-package docker
+  :straight t
+  :ensure t
+  :defer t
   :defines docker-image-run-arguments
   :init (setq docker-image-run-arguments '("-i" "-t" "--rm")
               docker-container-shell-file-name "/bin/bash"))
-;;(use-package docker-tramp)
-(use-package dockerfile-mode)
+
+(use-package dockerfile-mode
+  :straight t
+  :ensure t
+  :defer t)
 
 (provide 'init-docker)
 ;;; init-docker.el ends here

.config/emacs/lisp/init-markdown.el

@@ -1,6 +1,9 @@
 ;;; init-markdown.el -*- lexical-binding: t -*-
 ;; using multimarkdown compiler, could be found at AUR
 (use-package markdown-mode
+  :straight t
+  :ensure t
+  :defer t
   :mode ("README\\.md\\'" . gfm-mode)
   :init (setq markdown-command "multimarkdown")
   (setq markdown-enable-wiki-links t
@@ -9,6 +12,15 @@
         markdown-make-gfm-checkboxes-buttons t
         markdown-gfm-uppercase-checkbox t
         markdown-fontify-code-blocks-natively t))
+
+(use-package grip-mode
+  :straight t
+  :ensure t
+  :defer t
+  ;; :config (setq grip-use-mdopen t) ;; to use `mdopen` instead of `grip`
+  :bind (:map markdown-mode-command-map
+         ("g" . grip-mode)))
+
 (provide 'init-markdown)
 
 ;;; init-markdown.el ends here

.config/emacs/lisp/init-persp.el

@@ -67,7 +67,7 @@
    :mode-restore-function (lambda (_) (shell))
    :save-vars '(major-mode default-directory)))
 
-;; Project integration
+;; Project.el integration
 (use-package persp-mode-project-bridge
   :straight t
   :ensure t

.config/emacs/lisp/init-reader.el

@@ -1,9 +1,20 @@
 ;;; init-reader.el -*- lexical-binding: t -*-
-(use-package pdf-view
-  :ensure pdf-tools
-  :diminish (pdf-view-themed-minor-mode
-             pdf-view-midnight-minor-mode
-             pdf-view-printer-minor-mode)
+
+;; Nice reading / writing
+(use-package olivetti
+  :straight t
+  :ensure t
+  :defer t
+  :diminish
+  :bind ("<f7>" . olivetti-mode)
+  :hook ((markdown-mode . olivetti-mode)
+         (org-mode . olivetti-mode))
+  :init (setq olivetti-body-width 0.62))
+
+(use-package pdf-tools
+  :straight t
+  :ensure t
+  :defer t
   :defines pdf-annot-activate-created-annotations
   :hook ((pdf-tools-enabled . pdf-view-auto-slice-minor-mode)
          (pdf-tools-enabled . pdf-isearch-minor-mode)
@@ -11,15 +22,12 @@
   :mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode)
   :magic ("%PDF" . pdf-view-mode)
   :bind (:map pdf-view-mode-map
-         ("C-s" . isearch-forward))
-  :init (setq pdf-view-use-scaling t
-              pdf-view-use-imagemagick nil
-              pdf-annot-activate-created-annotations t
-              pdf-view-display-size 'fit-page)
+              ("C-s" . isearch-forward))
+  :init
+  (pdf-tools-install)
   :config
-  ;; install manually
-  ;;(pdf-tools-install t nil t nil)
-  ;; my funtion
+  (setq-default pdf-view-display-size 'fit-page)
+  (setq-default pdf-view-resize-factor 1.1) ;; zoom in/out setting
   (defun my/pdf-view-open-in-zathura ()
     (interactive)
     (save-window-excursion
@@ -27,18 +35,23 @@
             (current-page (number-to-string (pdf-view-current-page))))
         (async-shell-command
          (format "zathura -P %s \"%s\"" current-page current-file))))
-    (message "Sent to zathura"))
-  ;; Recover last viewed position
-  (use-package pdf-view-restore
-    :defer t
-    :hook (pdf-view-mode . pdf-view-restore-mode)
-    :config
-    (setq pdf-view-restore-filename
-          (expand-file-name "pdf-view-restore" user-emacs-directory))))
+    (message "Sent to zathura")))
 
+;; Recover last viewed position
+(use-package pdf-view-restore
+  :straight t
+  :ensure t
+  :defer t
+  :hook (pdf-view-mode . pdf-view-restore-mode)
+  :config
+  (setq pdf-view-restore-filename
+        (expand-file-name "pdf-view-restore" user-emacs-directory)))
 
 ;; Epub reader
 (use-package nov
+  :straight t
+  :ensure t
+  :defer t
   :mode ("\\.epub\\'" . nov-mode)
   :hook (nov-mode . my-nov-setup)
   :init
@@ -66,9 +79,12 @@
                 process-coding-system-alist))))
 ;; Atom/RSS reader
 (use-package elfeed
+  :straight t
+  :ensure t
+  :defer t
   :pretty-hydra
   ((:title (pretty-hydra-title "Elfeed" 'faicon "nf-fa-rss_square" :face 'nerd-icons-orange)
-    :color amaranth :quit-key ("q" "C-g"))
+           :color amaranth :quit-key ("q" "C-g"))
    ("Search"
     (("c" elfeed-db-compact "compact db")
      ("g" elfeed-search-update--force "refresh")
@@ -99,11 +115,17 @@
   (push elfeed-db-directory recentf-exclude))
 
 (use-package elfeed-goodies
+  :straight t
+  :ensure t
+  :defer t
   :hook (after-init . elfeed-goodies/setup))
 (use-package elfeed-org
-  :hook (after-init . elfeed-org)
+  :straight t
+  :ensure t
+  :after elfeed
   :config
-  (setq rmh-elfeed-org-files (list (expand-file-name "elfeed.org" org-directory))))
+  (setq rmh-elfeed-org-files (list (expand-file-name "elfeed.org" org-directory)))
+  (elfeed-org))
 
 (provide 'init-reader)
 ;;; init-reader.el ends here

.config/emacs/lisp/init-utils.el

@@ -1,14 +1,14 @@
 ;;; init-utils.el -*- lexical-binding: t -*-
-(use-package rg)
-;; Nice writing
-(use-package olivetti
-  :diminish
-  :bind ("<f7>" . olivetti-mode)
-  :hook (org-mode markdown-mode)
-  :init (setq olivetti-body-width 0.62))
+(use-package rg
+  :straight t
+  :ensure t
+  :defer t)
 
 ;; text mode directory tree
 (use-package ztree
+  :straight t
+  :ensure t
+  :defer t
   :custom-face
   (ztreep-header-face ((t (:inherit diff-header))))
   (ztreep-arrow-face ((t (:inherit font-lock-comment-face))))
@@ -46,6 +46,9 @@
               ztree-show-number-of-children t))
 
 (use-package list-environment
+  :straight t
+  :ensure t
+  :defer t
   :hook (list-environment-mode . (lambda ()
                                    (setq tabulated-list-format
                                          (vconcat `(("" ,(if (icons-displayable-p) 2 0)))
@@ -69,9 +72,9 @@
               process-environment))
     (advice-add #'list-environment-entries :override #'my-list-environment-entries)))
 
-(unless ON-WINDOWS
-  (use-package daemons)                 ; system services/daemons
-  (use-package tldr))
+;; (unless ON-WINDOWS
+;;   (use-package daemons)                 ; system services/daemons
+;;   (use-package tldr))
 
 
 (provide 'init-utils)