majiayu000 ;; cons_cell: Pair (cons 1 2) ; => (1 . 2)
;; list: Linked cons cells '(1 2 3)
;; vector: Fixed-size array [1 2 3]
;; hash-table: Key-value store (make-hash-table)
;; string: Text "hello"
;; number: Integer or float 42 3.14
(let* ((x 1) (y (+ x 1))) ; y can reference x y)
(when condition body-forms...)
(unless condition body-forms...)
(cond (condition1 result1) (condition2 result2) (t default-result))
(pcase value ('symbol (handle-symbol)) ((pred stringp) (handle-string)) (_ (handle-default)))
(dotimes (i 10) (process i))
(cl-loop for item in list collect (transform item))
(seq-map #'transform sequence) (seq-filter #'predicate sequence) (seq-reduce #'fn sequence initial)
(mapcar (lambda (x) (* x 2)) '(1 2 3))
;; Short form (Emacs 28+) (mapcar (lambda (x) (+ x 1)) list)
;;; Commentary: ;; Personal Emacs configuration
;;; Code:
;; Bootstrap package manager (require 'package) (setq package-archives '(("melpa" . "https://melpa.org/packages/") ("gnu" . "https://elpa.gnu.org/packages/") ("nongnu" . "https://elpa.nongnu.org/nongnu/"))) (package-initialize)
;; Install use-package if not present (unless (package-installed-p 'use-package) (package-refresh-contents) (package-install 'use-package))
(eval-when-compile (require 'use-package))
;; Configuration sections...
(provide 'init) ;;; init.el ends here
;; Mode-specific (define-key emacs-lisp-mode-map (kbd "C-c C-e") #'eval-last-sexp)
;; With use-package (use-package magit :bind (("C-x g" . magit-status) ("C-x M-g" . magit-dispatch)))
;; Keymap definition (defvar my-prefix-map (make-sparse-keymap) "Keymap for my custom commands.") (global-set-key (kbd "C-c m") my-prefix-map) (define-key my-prefix-map (kbd "f") #'find-file)
;; Remove function from hook (remove-hook 'prog-mode-hook #'display-line-numbers-mode)
;; Lambda in hook (discouraged for removability) (add-hook 'after-save-hook (lambda () (message "Saved!")))
;; With use-package (use-package flycheck :hook (prog-mode . flycheck-mode))
(advice-add 'save-buffer :around #'my-after-save-message)
;; Remove advice (advice-remove 'save-buffer #'my-after-save-message)
(defcustom my-package-option t "Enable my-package option." :type 'boolean :group 'my-package)
(defcustom my-package-list '("a" "b") "List of strings." :type '(repeat string) :group 'my-package)
(require 'package) (setq package-archives '(("melpa" . "https://melpa.org/packages/") ("gnu" . "https://elpa.gnu.org/packages/"))) (package-initialize)
;; Install a package (package-install 'magit)
;; Use with use-package (straight-use-package 'use-package) (setq straight-use-package-by-default t)
;; Install package (use-package magit :straight t)
;; Use with use-package (elpaca elpaca-use-package (elpaca-use-package-mode))
(use-package magit :ensure t)
;; Custom server configuration (add-to-list 'eglot-server-programs '(rust-mode . ("rust-analyzer")))
(use-package lsp-ui :ensure t :hook (lsp-mode . lsp-ui-mode) :custom (lsp-ui-doc-enable t) (lsp-ui-sideline-enable t))
;; With company (traditional) (use-package company :ensure t :hook (after-init . global-company-mode) :custom (company-idle-delay 0.2))
(use-package orderless :ensure t :custom (completion-styles '(orderless basic)))
(use-package marginalia :ensure t :init (marginalia-mode))
(use-package consult :ensure t :bind (("C-s" . consult-line) ("C-x b" . consult-buffer) ("M-g g" . consult-goto-line)))
;; Install grammars (mapc #'treesit-install-language-grammar (mapcar #'car treesit-language-source-alist))
;; Remap modes (setq major-mode-remap-alist '((python-mode . python-ts-mode) (javascript-mode . js-ts-mode)))