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-bookmark)
;;(require 'init-dashboard)
(require 'init-bookmark)
(require 'init-dashboard)
;;(require 'init-dired)
;;(require 'init-highlight)
;;(require 'init-ibuffer)
@ -113,7 +113,7 @@ Otherwise the startup will be very slow. "
;;(require 'init-debug)
;;
;;(require 'init-extra)
;;(require 'init-chatgpt)
(require 'init-chatgpt)
;;
;;(require 'init-copilot)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

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

View File

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

View File

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

View File

@ -4,7 +4,7 @@
;; Directory operations
(use-package dired
:ensure nil
:ensure nil ; built-in
:general
(:keymaps 'dired-mode-map
"C-c C-p" 'wdired-change-to-wdired-mode)
@ -17,10 +17,13 @@
dired-recursive-copies 'always)
;; 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
(use-package dired-quick-sort
;; Quick sort dired buffers via hydra
(use-package dired-quick-sort
:straight t
:ensure t
:defer t
:hook (after-init . dired-quick-sort-setup)
:init
(setq dired-quick-sort-suppress-setup-warning t)
@ -28,44 +31,55 @@
(evil-collection-define-key 'normal 'dired-mode-map
"s" 'hydra-dired-quick-sort/body))
;; Show git info in dired
(use-package dired-git-info)
;; 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
;; 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
;; Colorful dired
(use-package diredfl
:straight t
:ensure t
:defer t
:hook (dired-mode . diredfl-mode))
;; Shows icons
(use-package nerd-icons-dired
;; 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)
;; Extra Dired functionality
(use-package dired-aux :ensure nil)
(use-package dired-single
(use-package dired-single
:commands (dired dired-jump))
(use-package dired-hide-dotfiles
(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
"l" 'dired-single-buffer
")" 'dired-git-info-mode))
")" 'dired-git-info-mode)
;; `find-dired' alternative using `fd'
(when (executable-find "fd")
(use-package fd-dired))
;; (when (executable-find "fd")
;; (use-package fd-dired))
(provide 'init-dired)
;;; init-dired.el ends here

View File

@ -8,6 +8,21 @@
(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)
(let ((bootstrap-file
(expand-file-name
@ -29,7 +44,8 @@
; hide info in modeline
(use-package diminish
:straight t)
:straight t
:ensure t)
(provide 'init-package)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;