From 08caaa60421c38b089bbebb749ce9c2acd4a0b13 Mon Sep 17 00:00:00 2001 From: JaeYoo-Im Date: Wed, 4 Sep 2024 14:21:39 +0900 Subject: [PATCH] emacs : markdown, reader, docker, utils --- .config/emacs/init.el | 21 +++++---- .config/emacs/lisp/init-docker.el | 10 ++++- .config/emacs/lisp/init-markdown.el | 12 +++++ .config/emacs/lisp/init-persp.el | 2 +- .config/emacs/lisp/init-reader.el | 70 +++++++++++++++++++---------- .config/emacs/lisp/init-utils.el | 23 +++++----- 6 files changed, 90 insertions(+), 48 deletions(-) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index bacbab1..7494e26 100644 --- a/.config/emacs/init.el +++ b/.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) diff --git a/.config/emacs/lisp/init-docker.el b/.config/emacs/lisp/init-docker.el index 0f1d4bc..7b30730 100644 --- a/.config/emacs/lisp/init-docker.el +++ b/.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 diff --git a/.config/emacs/lisp/init-markdown.el b/.config/emacs/lisp/init-markdown.el index ef0e8b2..03db165 100644 --- a/.config/emacs/lisp/init-markdown.el +++ b/.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 diff --git a/.config/emacs/lisp/init-persp.el b/.config/emacs/lisp/init-persp.el index 0672124..ef78ed2 100644 --- a/.config/emacs/lisp/init-persp.el +++ b/.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 diff --git a/.config/emacs/lisp/init-reader.el b/.config/emacs/lisp/init-reader.el index a493633..d687999 100644 --- a/.config/emacs/lisp/init-reader.el +++ b/.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 ("" . 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 diff --git a/.config/emacs/lisp/init-utils.el b/.config/emacs/lisp/init-utils.el index b35ed0c..1b02bf5 100644 --- a/.config/emacs/lisp/init-utils.el +++ b/.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 ("" . 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)