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)
|
||||
(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)
|
||||
|
||||
;;; 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