Added Orderless completion Emacs

This commit is contained in:
Fabio Scotto di Santolo
2026-01-02 14:44:06 +01:00
parent 83212ea9f2
commit a4b8af382a
4 changed files with 73 additions and 0 deletions

View 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"))

View 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

View File

@@ -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
View 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: