emacs : use-package to straight, bookmark gpt dashboard dired

This commit is contained in:
2024-09-03 19:57:10 +09:00
parent fff61a9139
commit b1c8ba0421
6 changed files with 89 additions and 51 deletions

View File

@ -67,8 +67,8 @@ Otherwise the startup will be very slow. "
(require 'init-yasnippet) (require 'init-yasnippet)
;;(require 'init-bookmark) (require 'init-bookmark)
;;(require 'init-dashboard) (require 'init-dashboard)
;;(require 'init-dired) ;;(require 'init-dired)
;;(require 'init-highlight) ;;(require 'init-highlight)
;;(require 'init-ibuffer) ;;(require 'init-ibuffer)
@ -113,7 +113,7 @@ Otherwise the startup will be very slow. "
;;(require 'init-debug) ;;(require 'init-debug)
;; ;;
;;(require 'init-extra) ;;(require 'init-extra)
;;(require 'init-chatgpt) (require 'init-chatgpt)
;; ;;
;;(require 'init-copilot) ;;(require 'init-copilot)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

@ -1,7 +1,7 @@
;;; init-bookmark.el -*- lexical-binding: t -*- ;;; init-bookmark.el -*- lexical-binding: t -*-
;; Bookmark ;; Bookmark
(use-package bookmark (use-package bookmark
:ensure nil :ensure nil ; emacs built-in
:config :config
(with-no-warnings (with-no-warnings
;; Display icons for bookmarks ;; Display icons for bookmarks

View File

@ -1,8 +1,14 @@
;; init-chatgpt.el -*- lexical-binding: t -*- ;; init-chatgpt.el -*- lexical-binding: t -*-
(use-package chatgpt-shell (use-package chatgpt-shell
:straight t
:ensure t
:defer t
:config :config
(setq chatgpt-shell-openai-key custom-chatgpt-my-key)) (setq chatgpt-shell-openai-key custom-chatgpt-my-key))
(use-package dall-e-shell (use-package dall-e-shell
:straight t
:ensure t
:defer t
:config :config
(setq dall-e-shell-openai-key custom-chatgpt-my-key)) (setq dall-e-shell-openai-key custom-chatgpt-my-key))

View File

@ -2,6 +2,8 @@
(require 'init-funcs) (require 'init-funcs)
(use-package dashboard (use-package dashboard
:straight t
:ensure t
:diminish dashboard-mode :diminish dashboard-mode
:functions (nerd-icons-faicon :functions (nerd-icons-faicon
nerd-icons-mdicon nerd-icons-mdicon

View File

@ -4,7 +4,7 @@
;; Directory operations ;; Directory operations
(use-package dired (use-package dired
:ensure nil :ensure nil ; built-in
:general :general
(:keymaps 'dired-mode-map (:keymaps 'dired-mode-map
"C-c C-p" 'wdired-change-to-wdired-mode) "C-c C-p" 'wdired-change-to-wdired-mode)
@ -17,55 +17,69 @@
dired-recursive-copies 'always) dired-recursive-copies 'always)
;; Show directory first ;; Show directory first
(setq dired-listing-switches "-alh --group-directories-first") (setq dired-listing-switches "-alh --group-directories-first"))
;; Quick sort dired buffers via hydra ;; Quick sort dired buffers via hydra
(use-package dired-quick-sort (use-package dired-quick-sort
:hook (after-init . dired-quick-sort-setup) :straight t
:init :ensure t
(setq dired-quick-sort-suppress-setup-warning t) :defer t
:config :hook (after-init . dired-quick-sort-setup)
(evil-collection-define-key 'normal 'dired-mode-map :init
"s" 'hydra-dired-quick-sort/body)) (setq dired-quick-sort-suppress-setup-warning t)
:config
;; Show git info in dired
(use-package dired-git-info)
;; Allow rsync from dired buffers
(use-package dired-rsync
:bind (:map dired-mode-map
("C-c C-r" . dired-rsync)))
;; Colorful dired
(use-package diredfl
:hook (dired-mode . diredfl-mode))
;; Shows icons
(use-package nerd-icons-dired
:diminish
:commands nerd-icons-dired-mode
:custom-face
(nerd-icons-dired-dir-face ((t (:inherit nerd-icons-dsilver :foreground unspecified))))
:hook (dired-mode . nerd-icons-dired-mode))
;; Extra Dired functionality
(use-package dired-aux :ensure nil)
(use-package dired-single
:commands (dired dired-jump))
(use-package dired-hide-dotfiles
:hook (dired-mode) ;; hide default when dired-mode enabled.
:config
(evil-collection-define-key 'normal 'dired-mode-map
"H" 'dired-hide-dotfiles-mode))
(evil-collection-define-key 'normal 'dired-mode-map (evil-collection-define-key 'normal 'dired-mode-map
"h" 'dired-single-up-directory "s" 'hydra-dired-quick-sort/body))
"l" 'dired-single-buffer
")" 'dired-git-info-mode)) ;; Show git info in dired
(use-package dired-git-info
:straight t
:ensure t
:defer t)
;; Allow rsync from dired buffers
(use-package dired-rsync
:straight t
:ensure t
:defer t
:bind (:map dired-mode-map
("C-c C-r" . dired-rsync)))
;; Colorful dired
(use-package diredfl
:straight t
:ensure t
:defer t
:hook (dired-mode . diredfl-mode))
;; Shows icons
(use-package nerd-icons-dired
:straight t
:ensure t
:diminish
:commands nerd-icons-dired-mode
:custom-face
(nerd-icons-dired-dir-face ((t (:inherit nerd-icons-dsilver :foreground unspecified))))
:hook (dired-mode . nerd-icons-dired-mode))
;; Extra Dired functionality
(use-package dired-aux :ensure nil)
(use-package dired-single
:commands (dired dired-jump))
(use-package dired-hide-dotfiles
:hook (dired-mode) ;; hide default when dired-mode enabled.
:config
(evil-collection-define-key 'normal 'dired-mode-map
"H" 'dired-hide-dotfiles-mode))
(evil-collection-define-key 'normal 'dired-mode-map
"h" 'dired-single-up-directory
"l" 'dired-single-buffer
")" 'dired-git-info-mode)
;; `find-dired' alternative using `fd' ;; `find-dired' alternative using `fd'
(when (executable-find "fd") ;; (when (executable-find "fd")
(use-package fd-dired)) ;; (use-package fd-dired))
(provide 'init-dired) (provide 'init-dired)
;;; init-dired.el ends here ;;; init-dired.el ends here

View File

@ -8,6 +8,21 @@
(and (file-readable-p custom-file) (load custom-file)) (and (file-readable-p custom-file) (load custom-file))
; (when (version< emacs-version "28")
; (add-to-list 'package-archives '("nongnu" . "https://elpa.nongnu.org/nongnu/")))
; (add-to-list 'package-archives '("stable" . "https://stable.melpa.org/packages/"))
; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
; (customize-set-variable 'package-archive-priorities
; '(("gnu" . 99) ; prefer GNU packages
; ("nongnu" . 80) ; use non-gnu packages if
; ; not found in GNU elpa
; ("stable" . 70) ; prefer "released" versions
; ; from melpa
; ("melpa" . 0))) ; if all else fails, get it
; ; from melpa
(defvar bootstrap-version) (defvar bootstrap-version)
(let ((bootstrap-file (let ((bootstrap-file
(expand-file-name (expand-file-name
@ -29,7 +44,8 @@
; hide info in modeline ; hide info in modeline
(use-package diminish (use-package diminish
:straight t) :straight t
:ensure t)
(provide 'init-package) (provide 'init-package)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;