remove exec-path-from-shell, try to optimize load time

This commit is contained in:
tar 2025-09-30 18:44:39 +02:00
parent 5c20751813
commit 789b52ab71
2 changed files with 46 additions and 31 deletions

75
init.el
View File

@ -1,3 +1,4 @@
;; -*- lexical-binding: t; -*-
(setq gc-cons-threshold (* 100 1000 1000)) (setq gc-cons-threshold (* 100 1000 1000))
(add-hook 'after-init-hook #'(lambda () (add-hook 'after-init-hook #'(lambda ()
;; restore after startup ;; restore after startup
@ -68,31 +69,55 @@ Shows a message if no path is available."
"b99e334a4019a2caa71e1d6445fc346c6f074a05fcbb989800ecbe54474ae1b0" "b99e334a4019a2caa71e1d6445fc346c6f074a05fcbb989800ecbe54474ae1b0"
default)) default))
'(initial-frame-alist '((fullscreen . maximized))) '(initial-frame-alist '((fullscreen . maximized)))
'(package-selected-packages nil)) '(package-selected-packages nil)
'(warning-suppress-log-types
'((files missing-lexbind-cookie
"~/.emacs.d/elpa/gruber-darker-theme-20231026.2031/gruber-darker-theme.el"))))
(require 'package) (require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize) (package-initialize)
(use-package which-key (use-package dired
:ensure t
:config (which-key-mode))
(use-package vertico
:ensure t
:config :config
(add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy)) (put 'dired-find-alternate-file 'disabled nil)
(add-hook 'dired-mode-hook
(lambda ()
(define-key dired-mode-map (kbd "RET")
(lambda () (interactive) (find-alternate-file (dired-get-file-for-visit))))))
(setq delete-by-moving-to-trash t)
(setq dired-dwim-target t))
(use-package marginalia (use-package marginalia
:ensure t) :ensure t)
(use-package vertico
:ensure t
:defer t
:config
(add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy))
(use-package move-text
:ensure t
:defer t
:config
(global-set-key (kbd "<M-up>") 'move-text-up)
(global-set-key (kbd "<M-down>") 'move-text-down))
(use-package which-key
:ensure t
:defer t
:config (which-key-mode))
(require 'treesit) (require 'treesit)
(use-package docker-compose-mode (use-package docker-compose-mode
:ensure t) :ensure t
:defer t)
(use-package zig-mode (use-package zig-mode
:ensure t) :ensure t
:defer t)
(use-package dockerfile-mode (use-package dockerfile-mode
:ensure t :ensure t
@ -105,16 +130,6 @@ Shows a message if no path is available."
:defer t :defer t
:hook (prog-mode . flycheck-mode)) :hook (prog-mode . flycheck-mode))
(use-package dired
:config
(put 'dired-find-alternate-file 'disabled nil)
(add-hook 'dired-mode-hook
(lambda ()
(define-key dired-mode-map (kbd "RET")
(lambda () (interactive) (find-alternate-file (dired-get-file-for-visit))))))
(setq delete-by-moving-to-trash t)
(setq dired-dwim-target t))
(vertico-mode 1) (vertico-mode 1)
(marginalia-mode 1) (marginalia-mode 1)
@ -129,7 +144,7 @@ Shows a message if no path is available."
;; EnvyCodeR Nerd Font ;; EnvyCodeR Nerd Font
;; Binchotan_Sharp ;; Binchotan_Sharp
;; Ubuntu Mono ;; Ubuntu Mono
(set-face-attribute 'default nil :font "Binchotan_Sharp" :height 120) (set-face-attribute 'default nil :font "Binchotan_Sharp" :height 140)
;;(set-face-attribute 'default nil :height 110) ;;(set-face-attribute 'default nil :height 110)
;;(set-fontset-font t nil (font-spec :size 20 :name "VictorMono Nerd Font Mono")) ;;(set-fontset-font t nil (font-spec :size 20 :name "VictorMono Nerd Font Mono"))
@ -137,6 +152,9 @@ Shows a message if no path is available."
;;(setq x-antialiasing-factor nil) ;;(setq x-antialiasing-factor nil)
;; Example how to add a new dir to PATH
;; (add-to-list 'exec-path "/home/tar/.local/bin")
(set-default-coding-systems 'utf-8) (set-default-coding-systems 'utf-8)
(setq ring-bell-function 'ignore) (setq ring-bell-function 'ignore)
@ -177,14 +195,8 @@ Shows a message if no path is available."
;; (setq elpy-rpc-virtualenv-path 'current) ;; (setq elpy-rpc-virtualenv-path 'current)
(use-package exec-path-from-shell ;; (add-hook 'python-mode-hook
:ensure t ;; (lambda () (setq gud-pdb-command-name "python3 -m pdb")))
:config
(when (memq window-system '(mac ns x))
(exec-path-from-shell-initialize)))
(add-hook 'python-mode-hook
(lambda () (setq gud-pdb-command-name "python3 -m pdb")))
(use-package yasnippet (use-package yasnippet
:hook (prog-mode . yas-minor-mode) :hook (prog-mode . yas-minor-mode)
@ -194,7 +206,8 @@ Shows a message if no path is available."
(use-package meson-mode (use-package meson-mode
:ensure t) :ensure t
:defer t)
(use-package vala-mode (use-package vala-mode
:ensure t :ensure t
@ -416,11 +429,13 @@ ef-themes-variable-pitch-ui t)
(use-package lsp-mode (use-package lsp-mode
:ensure t :ensure t
:defer t
:config :config
(setq lsp-signature-render-documentation nil)) (setq lsp-signature-render-documentation nil))
(use-package dap-mode (use-package dap-mode
:ensure t :ensure t
:defer t
;;:custom (lsp-enable-dap-auto-configure nil) ;;:custom (lsp-enable-dap-auto-configure nil)
:commands dap-debug) :commands dap-debug)

View File

@ -1,4 +1,4 @@
;;; profile-dotemacs.el --- Profile your Emacs init file ;;; profile-dotemacs.el --- Profile your Emacs init file -*- lexical-binding: t; -*-
;; Copyright (C) 2010, 2012 David Engster ;; Copyright (C) 2010, 2012 David Engster