Added Orderless completion Emacs
This commit is contained in:
23
emacs/.emacs.d/early-init.el
Normal file
23
emacs/.emacs.d/early-init.el
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
;;=====================================================================================
|
||||||
|
;; Define loader functions
|
||||||
|
;;=====================================================================================
|
||||||
|
(defconst fscotto/modules-dir
|
||||||
|
(expand-file-name "lisp" user-emacs-directory))
|
||||||
|
|
||||||
|
(defun fscotto/load-module (module)
|
||||||
|
"Load a MODULE from symbol."
|
||||||
|
(let* ((module-name (symbol-name module))
|
||||||
|
(path (expand-file-name
|
||||||
|
(concat (replace-regexp-in-string "/" "/" module-name)
|
||||||
|
".el")
|
||||||
|
fscotto/modules-dir)))
|
||||||
|
(unless (file-exists-p path)
|
||||||
|
(error "Module not found: %s" path))
|
||||||
|
(load path nil 'nomessage)))
|
||||||
|
|
||||||
|
(defun fscotto/load-modules (&rest modules)
|
||||||
|
"Load MODULES."
|
||||||
|
(mapc #'fscotto/load-module modules))
|
||||||
|
|
||||||
|
(defvar fscotto/emacs-profile
|
||||||
|
(or (getenv "EMACS_PROFILE") "full"))
|
||||||
17
emacs/.emacs.d/lisp/misc/dashboard.el
Normal file
17
emacs/.emacs.d/lisp/misc/dashboard.el
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
;;; dashboard.el --- Startup dashboard -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(use-package dashboard
|
||||||
|
:ensure t
|
||||||
|
:init
|
||||||
|
(setq dashboard-startup-banner 'logo
|
||||||
|
dashboard-center-content t
|
||||||
|
dashboard-set-heading-icons t
|
||||||
|
dashboard-set-file-icons t
|
||||||
|
dashboard-items '((recents . 8)
|
||||||
|
(projects . 5)))
|
||||||
|
:config
|
||||||
|
(dashboard-setup-startup-hook))
|
||||||
|
|
||||||
|
(provide 'dashboard)
|
||||||
|
|
||||||
|
;;; misc-dashboard.el ends here
|
||||||
@@ -35,6 +35,29 @@
|
|||||||
(list "~/.emacs.d/snippets") yas-indent-line 'fixed)
|
(list "~/.emacs.d/snippets") yas-indent-line 'fixed)
|
||||||
(yas-global-mode))
|
(yas-global-mode))
|
||||||
|
|
||||||
|
(use-package orderless
|
||||||
|
:ensure t
|
||||||
|
:custom
|
||||||
|
(completion-styles '(orderless basic))
|
||||||
|
(completion-category-overrides '((file (styles partial-completion))))
|
||||||
|
(completion-pcm-leading-wildcard t)
|
||||||
|
:config
|
||||||
|
(setq ivy-re-builders-alist '((t . orderless-ivy-re-builder)))
|
||||||
|
(add-to-list 'ivy-highlight-functions-alist '(orderless-ivy-re-builder . orderless-ivy-highlight)))
|
||||||
|
|
||||||
|
(defun just-one-face (fn &rest args)
|
||||||
|
(let ((orderless-match-faces [completions-common-part]))
|
||||||
|
(apply fn args)))
|
||||||
|
|
||||||
|
(advice-add 'company-capf--candidates :around #'just-one-face)
|
||||||
|
|
||||||
|
(use-package smartparens
|
||||||
|
:ensure smartparens ;; install the package
|
||||||
|
:hook (prog-mode text-mode markdown-mode) ;; add `smartparens-mode` to these hooks
|
||||||
|
:config
|
||||||
|
;; load default config
|
||||||
|
(require 'smartparens-config))
|
||||||
|
|
||||||
(provide 'completion)
|
(provide 'completion)
|
||||||
|
|
||||||
;;; completion.el ends here
|
;;; completion.el ends here
|
||||||
|
|||||||
10
emacs/.emacs.d/recentf
Normal file
10
emacs/.emacs.d/recentf
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
;;; Automatically generated by ‘recentf’ on Fri Jan 2 14:42:01 2026.
|
||||||
|
|
||||||
|
(setq recentf-list 'nil)
|
||||||
|
|
||||||
|
(setq recentf-filter-changer-current 'nil)
|
||||||
|
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; coding: utf-8-emacs
|
||||||
|
;; End:
|
||||||
Reference in New Issue
Block a user