materus
/
nixos-config
mirror of https://github.com/materusPL/nixos-config
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

configurations: emacs tests

This commit is contained in:
Mateusz Słodkowicz 2024-11-10 13:12:20 +01:00
parent cecc49700e
commit 9652b3877f
Signed by: materus
GPG Key ID: 28D140BCA60B4FD1
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extraFiles/config/emacs/emacs-materus-config.org
View File

File diff suppressed because one or more lines are too long

26
extraFiles/config/emacs/etc/materus/emacs-config.el
View File

@ -82,7 +82,7 @@
right-click-context right-click-context
dracula-theme dracula-theme
doom-themes doom-themes
doom-modeline doom-modeline
orderless orderless
popper popper
undo-tree undo-tree
@ -106,7 +106,7 @@
toc-org toc-org
eshell-vterm eshell-vterm
empv empv
volatile-highlights volatile-highlights
) )
"A list of packages to ensure are installed at launch.") "A list of packages to ensure are installed at launch.")
@ -117,10 +117,10 @@
(defun materus/install-packages () (defun materus/install-packages ()
(unless (materus/packages-installed-p) (unless (materus/packages-installed-p)
(package-refresh-contents) (package-refresh-contents)
(dolist (p materus/packages) (dolist (p materus/packages)
(when (not (package-installed-p p)) (when (not (package-installed-p p))
(package-install p))))) (package-install p)))))
(materus/install-packages) (materus/install-packages)
(require 'recentf) (require 'recentf)
@ -174,10 +174,10 @@
;; Theme ;; Theme
(use-package dracula-theme :config (use-package dracula-theme :config
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
(with-selected-frame frame (load-theme 'dracula t)))) (with-selected-frame frame (load-theme 'dracula t))))
(load-theme 'dracula t))) (load-theme 'dracula t)))
(defun startup-screen-advice (orig-fun &rest args) (defun startup-screen-advice (orig-fun &rest args)
(when (= (seq-count #'buffer-file-name (buffer-list)) 0) (when (= (seq-count #'buffer-file-name (buffer-list)) 0)
@ -193,7 +193,7 @@
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)
(when (daemonp) (when (daemonp)
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*"))) ; Show dashboard when emacs is running as daemon (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*"))) ; Show dashboard when emacs is running as daemon
) )
) )
(use-package doom-modeline (use-package doom-modeline
@ -245,11 +245,11 @@
:after (consult marginalia) :after (consult marginalia)
:config :config
(setq completion-in-region-function (setq completion-in-region-function
(lambda (&rest args) (lambda (&rest args)
(apply (if vertico-mode (apply (if vertico-mode
#'consult-completion-in-region #'consult-completion-in-region
#'completion--in-region) #'completion--in-region)
args))) args)))
(vertico-mode 1) (vertico-mode 1)
(marginalia-mode 1)) (marginalia-mode 1))