diff options
Diffstat (limited to '')
37 files changed, 1489 insertions, 0 deletions
diff --git a/config/init-buffer.el b/config/init-buffer.el new file mode 100644 index 0000000..c8688c6 --- /dev/null +++ b/config/init-buffer.el @@ -0,0 +1,101 @@ +;;; init-buffer.el --- Configure buffer -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; buffer related configurations + +;;; Code: + +(require 'ibuffer) +(require 'ibuf-ext) + +(setq ibuffer-expert t) +(setq ibuffer-show-empty-filter-groups nil) +(setq ibuffer-jump-offer-only-visible-buffers t) +(setq ibuffer-maybe-show-predicates '("^\\*.*\\*$")) +(setq ibuffer-never-show-predicates '("^ ")) +(setq ibuffer-use-other-window t) + +(setq ibuffer-saved-filter-groups + '(("default" + ("Config" (or + (filename . "world/") + (filename . ".emacs/"))) + + ("Programming" (or + (mode . c++-mode) + (mode . c-mode) + (mode . cargo-mode) + (mode . emacs-lisp-mode) + (mode . go-mode) + (mode . java-mode) + (mode . lisp-mode) + (mode . nix-mode) + (mode . python-mode) + (mode . rust-mode) + (mode . sh-mode) + (name . "\\*Cargo") + (name . "\\*Python.*\\*"))) + + ("Writing" (or + (mode . plain-tex-mode) + (mode . rst-mode) + (mode . markdown-mode) + (mode . html-mode) + (mode . nxhtml-mode) + (mode . css-mode))) + + ("Org" (or + (mode . org-agenda-mode) + (mode . org-mode))) + + ("Dired" (mode . dired-mode)) + + ("Terminals" (mode . term-mode)) + + ("Shells" (or + (mode . eshell-mode) + (mode . shell-mode))) + + ("Magit" (or + (mode . magit-mode) + (name . "\\*magit-.*\\*"))) + + ("VC" (name . "\\*vc.*\\*")) + + ("Emacs" (name . "^\\*.*\\*$"))))) + +(add-hook 'ibuffer-mode-hook + (lambda () + (ibuffer-auto-mode 1) + (ibuffer-switch-to-saved-filter-groups "default"))) + +(require 'midnight) +(setq midnight-period (* 3600 6)) ; every 6 hours + +(setq clean-buffer-list-delay-general 2 ; every 2 day + clean-buffer-list-delay-special (* 3600 3)) ; every 3 hours + +(defun my/rename-this-buffer-and-file () + "Renames current buffer and file it is visiting." + (interactive) + (let ((name (buffer-name)) + (filename (buffer-file-name)) + (read-file-name-function 'read-file-name-default)) + (if (not (and filename (file-exists-p filename))) + (error "Buffer '%s' is not visiting a file!" name) + (let ((new-name (read-file-name "New name: " filename))) + (cond ((get-buffer new-name) + (error "A buffer named '%s' already exists!" new-name)) + (t + (rename-file filename new-name 1) + (rename-buffer new-name) + (set-visited-file-name new-name) + (set-buffer-modified-p nil) + (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) + + +(provide 'init-buffer) + +;;; init-buffer.el ends here diff --git a/config/init-completion.el b/config/init-completion.el new file mode 100644 index 0000000..5a3f785 --- /dev/null +++ b/config/init-completion.el @@ -0,0 +1,129 @@ +;;; init-completion.el --- Configure completion -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure completions + +;;; Code: + +(use-package consult + :ensure t + :bind (("C-c m" . consult-mode-command) + ("M-g o" . consult-org-heading) + ("C-x b" . consult-buffer) + ("C-x r b" . consult-bookmark) + ("C-x p b" . consult-project-buffer) + ("C-c i" . consult-imenu) + ("M-g e" . consult-compile-error) + ("M-g g" . consult-goto-line) + ("M-g M-g" . consult-goto-line) + ("M-g m" . consult-mark) + ("M-g k" . consult-global-mark))) + +(use-package corfu + :ensure t + :demand t + :bind (("M-/" . completion-at-point) + :map corfu-map + ("C-n" . corfu-next) + ("C-p" . corfu-previous) + ("<return>" . corfu-insert) + ("M-d" . corfu-info-documentation) + ("M-l" . corfu-info-location) + ("M-." . corfu-move-to-minibuffer)) + :custom + ;; Works with `indent-for-tab-command'. Make sure tab doesn't indent when you + ;; want to perform completion + (tab-always-indent 'complete) + (completion-cycle-threshold t) ; Always show candidates in menu + + (corfu-auto t) + (corfu-auto-prefix 2) + (corfu-auto-delay 0.25) + + (corfu-min-width 80) + (corfu-max-width corfu-min-width) ; Always have the same width + (corfu-cycle t) + + ;; `nil' means to ignore `corfu-separator' behavior, that is, use the older + ;; `corfu-quit-at-boundary' = nil behavior. Set this to separator if using + ;; `corfu-auto' = `t' workflow (in that case, make sure you also set up + ;; `corfu-separator' and a keybind for `corfu-insert-separator', which my + ;; configuration already has pre-prepared). Necessary for manual corfu usage with + ;; orderless, otherwise first component is ignored, unless `corfu-separator' + ;; is inserted. + (corfu-quit-at-boundary nil) + (corfu-separator ?\s) ; Use space + (corfu-quit-no-match 'separator) ; Don't quit if there is `corfu-separator' inserted + (corfu-preview-current 'insert) ; Preview first candidate. Insert on input if only one + (corfu-preselect-first t) ; Preselect first candidate? + + ;; Other + (corfu-echo-documentation nil) ; Already use corfu-popupinfo + + :init + ;; see https://github.com/minad/corfu#completing-in-the-eshell-or-shell + (add-hook 'eshell-mode-hook + (lambda () + (setq-local corfu-auto nil) + (corfu-mode))) + :config + (global-corfu-mode)) + +(use-package corfu-popupinfo + :after corfu + :hook (corfu-mode . corfu-popupinfo-mode) + :bind (:map corfu-map + ("M-n" . corfu-popupinfo-scroll-up) + ("M-p" . corfu-popupinfo-scroll-down) + ([remap corfu-show-documentation] . corfu-popupinfo-toggle)) + :custom + (corfu-popupinfo-delay 0.5) + (corfu-popupinfo-max-width 70) + (corfu-popupinfo-max-height 20) + ;; Also here to be extra-safe that this is set when `corfu-popupinfo' is + ;; loaded. I do not want documentation shown in both the echo area and in + ;; the `corfu-popupinfo' popup. + (corfu-echo-documentation nil)) + +(use-package cape + :demand t + :ensure t + :bind (("C-c . p" . completion-at-point) + ("C-c . h" . cape-history) + ("C-c . f" . cape-file) + ("C-c . a" . cape-abbrev) + ("C-c . l" . cape-line) + ("C-c . w" . cape-dict) + ("C-c . r" . cape-rfc1345)) + :init + ;; Add `completion-at-point-functions', used by `completion-at-point'. + (add-to-list 'completion-at-point-functions #'cape-file) + (add-to-list 'completion-at-point-functions #'cape-abbrev)) + +(use-package marginalia + :ensure t + ;; Either bind `marginalia-cycle' globally or only in the minibuffer + :bind (:map minibuffer-local-map + ("M-A" . marginalia-cycle)) + :init + ;; Must be in the :init section of use-package such that the mode gets + ;; enabled right away. Note that this forces loading the package. + (marginalia-mode)) + +(use-package orderless + :demand t + :ensure t + :custom + (completion-styles '(orderless basic)) + (completion-category-defaults nil)) + +(use-package vertico + :ensure t + :config + (vertico-mode)) + +(provide 'init-completion) + +;;; init-completion.el ends here diff --git a/config/init-dired.el b/config/init-dired.el new file mode 100644 index 0000000..160b86b --- /dev/null +++ b/config/init-dired.el @@ -0,0 +1,27 @@ +;;; init-dired.el --- Configure dired -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configuration for dired-mode + +;;; Code: + +(require 'dired) + +(setq dired-clean-up-buffers-too nil) +(setq dired-dwim-target t) +(setq dired-hide-details-hide-information-lines nil) +(setq dired-hide-details-hide-symlink-targets nil) +(setq dired-listing-switches "-lah") +(setq dired-recursive-copies 'always) +(setq dired-recursive-deletes 'always) + +(setq dired-no-confirm + '(byte-compile chgrp chmod chown copy hardlink symlink touch)) + +;; (dired-omit-mode nil t) + +(provide 'init-dired) + +;;; init-dired.el ends here diff --git a/config/init-docker.el b/config/init-docker.el new file mode 100644 index 0000000..4caeea3 --- /dev/null +++ b/config/init-docker.el @@ -0,0 +1,35 @@ +;;; init-docker.el --- Docker configuration -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure all things related to docker + +;;; Code: + +(use-package docker + :bind ("C-c d" . docker) + :diminish + :init + (use-package docker-image :commands docker-images) + (use-package docker-volume :commands docker-volumes) + (use-package docker-network :commands docker-containers) + (use-package docker-compose :commands docker-compose) + + (use-package docker-container + :commands docker-containers + :custom + (docker-containers-shell-file-name "/bin/bash") + (docker-containers-show-all nil))) + +(use-package docker-compose-mode + :ensure t + :mode "docker-compose.*\.yml\\'") + +(use-package dockerfile-mode + :ensure t + :mode "Dockerfile[a-zA-Z.-]*\\'") + +(provide 'init-docker) + +;;; init-docker.el ends here diff --git a/config/init-elisp.el b/config/init-elisp.el new file mode 100644 index 0000000..49f3ab4 --- /dev/null +++ b/config/init-elisp.el @@ -0,0 +1,19 @@ +;;; init-elisp.el --- Configure elisp -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure elisp + +;;; Code: + +(use-package emacs-lisp-mode + :bind (:map emacs-lisp-mode-map + ("C-c C-r" . eval-region) + ("C-c C-d" . eval-defun) + ("C-c C-b" . eval-buffer)) + :hook ((emacs-lisp-mode . flymake-mode))) + +(provide 'init-elisp) + +;;; init-elisp.el ends here diff --git a/config/init-eshell.el b/config/init-eshell.el new file mode 100644 index 0000000..3eb2175 --- /dev/null +++ b/config/init-eshell.el @@ -0,0 +1,52 @@ +;;; init-eshell.el --- configure eshell -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure eshell + +;;; Code: + +(use-package eshell + :commands (eshell eshell-command) + :custom + (eshell-directory-name (emacs-path "eshell")) + (eshell-hist-ignoredups t) + (eshell-history-size 50000) + (eshell-ls-dired-initial-args '("-h")) + (eshell-ls-exclude-regexp "~\\'") + (eshell-ls-initial-args "-h") + (eshell-modules-list + '(eshell-alias + eshell-basic + eshell-cmpl + eshell-dirs + eshell-glob + eshell-hist + eshell-ls + eshell-pred + eshell-prompt + eshell-rebind + eshell-script + eshell-term + eshell-unix + eshell-xtra)) + (eshell-prompt-function + (lambda nil + (concat (abbreviate-file-name (eshell/pwd)) + (if (= (user-uid) 0) + " # " " $ ")))) + (eshell-save-history-on-exit t) + (eshell-stringify-t nil) + (eshell-term-name "ansi") + + :preface + (defun eshell-initialize () + (add-hook 'eshell-expand-input-functions #'eshell-spawn-external-command) + + :init + (add-hook 'eshell-first-time-mode-hook #'eshell-initialize))) + +(provide 'init-eshell) + +;;; init-eshell.el ends here diff --git a/config/init-file.el b/config/init-file.el new file mode 100644 index 0000000..9c4e803 --- /dev/null +++ b/config/init-file.el @@ -0,0 +1,50 @@ +;;; init-file.el --- Configure things related to files -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure things related to files + +;;; Code: + +(require 'bookmark) + +(require 'init-util) + +(setq require-final-newline t) + +(setq bookmark-default-file (user-data "bookmarks")) + +;; Disable backup. +(setq backup-inhibited t) + +;; Disable auto save. +(setq auto-save-default nil) +(setq auto-save-list-file-prefix nil) + +;; Really, no backups +(setq make-backup-files nil) + +(require 'recentf) +(recentf-mode 1) + +(setq recentf-auto-cleanup 60) +(setq recentf-exclude + '("~\\'" "\\`out\\'" "\\.log\\'" "^/[^/]*:" "\\.el\\.gz\\'" "\\.gz\\'")) +(setq recentf-max-saved-items 2000) +(setq recentf-save-file (user-data "recentf")) + +(require 'tramp) +(setq tramp-default-method "ssh") +(setq tramp-auto-save-directory "~/.cache/emacs/backups") +(setq tramp-ssh-controlmaster-options "-o ControlMaster=auto -o ControlPath='tramp.%%C'") + +(use-package autorevert + :custom + (auto-revert-use-notify nil) + :config + (global-auto-revert-mode t)) + +(provide 'init-file) + +;;; init-file.el ends here diff --git a/config/init-flymake.el b/config/init-flymake.el new file mode 100644 index 0000000..2dc0550 --- /dev/null +++ b/config/init-flymake.el @@ -0,0 +1,21 @@ +;;; init-flymake.el --- Configure flymake -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure flymake + +;;; Code: + +(require 'flymake) + +(setq flymake-start-on-save-buffer t) +(setq flymake-fringe-indicator-position 'left-fringe) +(setq flymake-suppress-zero-counters t) +(setq flymake-proc-compilation-prevents-syntax-check t) +(setq elisp-flymake-byte-compile-load-path load-path) +(setq flymake-no-changes-timeout 9999) + +(provide 'init-flymake) + +;;; init-flymake.el ends here diff --git a/config/init-git.el b/config/init-git.el new file mode 100644 index 0000000..4741f35 --- /dev/null +++ b/config/init-git.el @@ -0,0 +1,97 @@ +;;; init-git.el --- configure git -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configuration for git + +;;; Code: + +(require 'init-util) + +(use-package magit + :defer t + :ensure t + :bind (("C-x g" . magit-status) + ("C-x G" . magit-status-with-prefix)) + :custom + (magit-diff-options nil) + (magit-diff-refine-hunk t) + (magit-fetch-arguments nil) + (magit-log-section-commit-count 10) + (magit-pre-refresh-hook nil) + (magit-process-popup-time 15) + (magit-clone-default-directory "~/workspace/") + (magit-section-initial-visibility-alist '((untracked . hide))) + :hook (magit-mode . hl-line-mode)) + +(use-package magit-commit + :defer t + :config + (use-package git-commit + :custom + (git-commit-major-mode 'markdown-mode) + (git-commit-setup-hook + '(git-commit-save-message + git-commit-turn-on-auto-fill + git-commit-turn-on-flyspell + bug-reference-mode)))) + +(use-package magit-status + :defer t + :config + (dolist (func '(magit-insert-unpushed-to-upstream-or-recent + magit-insert-unpulled-from-pushremote + magit-insert-unpulled-from-upstream)) + (remove-hook 'magit-status-sections-hook func)) + + (dolist (func '(magit-insert-diff-filter-header + magit-insert-tags-header)) + (remove-hook 'magit-status-headers-hook func))) + + +(use-package vc + :defer t + :custom + (vc-command-messages t) + (vc-follow-symlinks t)) + +(use-package git-link + :defines git-link-remote-alist + :ensure t + :bind ("C-c Y" . git-link) + :commands (git-link git-link-commit git-link-homepage) + + :custom + (git-link-open-in-browser t) + + :preface + (defun git-link-fcuny-net (hostname dirname filename branch commit start end) + (format "http://git.fcuny.net/%s/tree/%s?id=%s#n%s" + (replace-regexp-in-string "^r/\\(.*\\)" "\\1.git" dirname) + filename + commit + start)) + + (defun git-link-commit-fcuny-net (hostname dirname commit) + (format "http://git.fcuny.net/%s/commit/?id=%s" + (replace-regexp-in-string "^r/\\(.*\\)" "\\1.git" dirname) + commit)) + + :config + (add-to-list 'git-link-remote-alist '("git\\.fcuny\\.net" git-link-fcuny-net)) + (add-to-list 'git-link-commit-remote-alist '("git\\.fcuny\\.net" git-link-commit-fcuny-net)) + + ;; sets up roblox git enterprise as a git-link handler + (add-to-list 'git-link-remote-alist '("github\\.rblx\\.com" git-link-github)) + (add-to-list 'git-link-commit-remote-alist '("github\\.rblx\\.com" git-link-commit-github))) + +(use-package transient + :defer t + :custom + (transient-history-file (user-data "transient/history.el")) + (transient-values-file (user-data "transient/values.el"))) + +(provide 'init-git) + +;;; init-git.el ends here diff --git a/config/init-go.el b/config/init-go.el new file mode 100644 index 0000000..daabb2b --- /dev/null +++ b/config/init-go.el @@ -0,0 +1,28 @@ +;;; init-go.el --- Configure go related things -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; go-mode and friends + +;;; Code: + +(use-package go-mode + :ensure t + :defer t + :hook ((go-mode . tree-sitter-hl-mode) + (go-mode . eglot-ensure) + (go-mode . (lambda () (setq tab-width 4))) + (go-mode . (lambda () (add-hook 'before-save-hook 'eglot-format-buffer nil t)))) + :bind (:map go-mode-map + ("C-c C-c" . compile))) + +(use-package gotest + :ensure t + :after go-mode + :custom + (go-test-verbose t)) + +(provide 'init-go) + +;;; init-go.el ends here diff --git a/config/init-imenu.el b/config/init-imenu.el new file mode 100644 index 0000000..24f71f9 --- /dev/null +++ b/config/init-imenu.el @@ -0,0 +1,23 @@ +;;; init-imenu.el --- Configure imenu -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure imenu + +;;; Code: + +;;; imenu +(with-eval-after-load 'imenu + ;; Recenter buffer after jumping. + (add-hook + 'imenu-after-jump-hook + (lambda () (recenter (max scroll-margin (/ (window-height) 3))))) + + (setq-default imenu-auto-rescan t) + (setq-default imenu-auto-rescan-maxout (* 1024 1024)) + (setq-default imenu--rescan-item '("" . -99))) + +(provide 'init-imenu) + +;;; init-imenu.el ends here diff --git a/config/init-json.el b/config/init-json.el new file mode 100644 index 0000000..7f0cfcb --- /dev/null +++ b/config/init-json.el @@ -0,0 +1,23 @@ +;;; init-json.el --- Configure JSON -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure json-mode and jq-mode + +;;; Code: + +(use-package json-mode + :mode "\\.json\\'") + +(use-package json-reformat + :ensure t + :after json-mode) + +(use-package jq-mode + :ensure t + :mode "\\.jq\\'") + +(provide 'init-json) + +;;; init-json.el ends here diff --git a/config/init-keys.el b/config/init-keys.el new file mode 100644 index 0000000..a3686fe --- /dev/null +++ b/config/init-keys.el @@ -0,0 +1,19 @@ +;;; init-keys.el --- Configure key bindings -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure key bindings + +;;; Code: + +(use-package which-key + :demand t + :diminish + :ensure t + :config + (which-key-mode)) + +(provide 'init-keys) + +;;; init-keys.el ends here diff --git a/config/init-lsp.el b/config/init-lsp.el new file mode 100644 index 0000000..bad227d --- /dev/null +++ b/config/init-lsp.el @@ -0,0 +1,28 @@ +;;; init-lsp.el --- Configure LSP integration -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure LSP integration + +;;; Code: + +(use-package eglot + :ensure t + :after yasnippet + :bind (:map eglot-mode-map + ("C-c l a" . eglot-code-actions) + ("C-c l r" . eglot-rename)) + :config + (setq-default eglot-workspace-configuration + '((gopls + (usePlaceholders . t) + (staticcheck . t) + (completeUnimported . t)))) + + ;; uses https://github.com/oxalica/nil for the LSP server instead of rnix + (add-to-list 'eglot-server-programs '(nix-mode . ("nixd")))) + +(provide 'init-lsp) + +;;; init-lsp.el ends here diff --git a/config/init-markdown.el b/config/init-markdown.el new file mode 100644 index 0000000..07e927d --- /dev/null +++ b/config/init-markdown.el @@ -0,0 +1,32 @@ +;;; init-markdown.el --- Configure markdown -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configuration related to markdown + +;;; Code: + +(use-package markdown-mode + :mode (("\\`README\\.md\\'" . gfm-mode) + ("\\.md\\'" . markdown-mode) + ("\\.markdown\\'" . markdown-mode)) + :custom + (markdown-command "pandoc -f markdown_github+smart") + (markdown-command-needs-filename t) + (markdown-enable-math t) + (markdown-open-command "marked") + :init + (setq markdown-command "multimarkdown")) + +(use-package markdown-preview-mode + :ensure t + :after markdown-mode + :config + (setq markdown-preview-stylesheets + (list (concat "https://github.com/dmarcotte/github-markdown-preview/" + "blob/master/data/css/github.css")))) + +(provide 'init-markdown) + +;;; init-markdown.el ends here diff --git a/config/init-modeline.el b/config/init-modeline.el new file mode 100644 index 0000000..9d3c59a --- /dev/null +++ b/config/init-modeline.el @@ -0,0 +1,23 @@ +;;; init-modeline.el --- configure the modeline -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure the modeline + +;;; Code: + +(require 'diminish) +(require 'time) + +;; show column number in the mode line +(setq column-number-mode t) + +(setq display-time-24hr-format t + display-time-interval 60 + display-time-format "%H:%M %d.%m" + display-time-default-load-average nil) + +(provide 'init-modeline) + +;;; init-modeline.el ends here diff --git a/config/init-nix.el b/config/init-nix.el new file mode 100644 index 0000000..d0e50c7 --- /dev/null +++ b/config/init-nix.el @@ -0,0 +1,19 @@ +;;; init-nix.el --- Configure nix -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; All nix related things + +;;; Code: + +(use-package nix-mode + :ensure t + :hook ((nix-mode . eglot-ensure) + (nix-mode . (lambda () (add-hook 'before-save-hook 'eglot-format-buffer nil t)))) + :custom + (nix-indent-function 'nix-indent-line)) + +(provide 'init-nix) + +;;; init-nix.el ends here diff --git a/config/init-org.el b/config/init-org.el new file mode 100644 index 0000000..9f5c4a0 --- /dev/null +++ b/config/init-org.el @@ -0,0 +1,89 @@ +;;; init-org.el --- configure things related to org-mode -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure things related to org-mode + +;;; Code: + +(use-package org + :hook + (org-mode . turn-on-flyspell) + (org-mode . visual-line-mode) + (org-mode . org-indent-mode) + :custom + ;;; general settings + (org-startup-folded t) + (org-startup-indented t) + (org-hide-emphasis-markers t) + (org-hide-leading-stars t) + (org-pretty-entities t) + (org-return-follows-link t) + (org-startup-with-inline-images t) + (org-export-backends '(html md)) + (org-imenu-depth 4) + (org-insert-heading-respect-content t) + (org-outline-path-complete-in-steps nil) + (org-src-fontify-natively t) + (org-src-preserve-indentation t) + (org-src-tab-acts-natively t) + (org-src-window-setup 'current-window) + (org-yank-adjusted-subtrees t) + (org-structure-template-alist + '(("s" . "src") + ("E" . "src emacs-lisp") + ("p" . "src python") + ("e" . "example") + ("q" . "quote") + ("V" . "verbatim"))) + :config + (font-lock-add-keywords 'org-mode + '(("^ *\\(-\\) " + (0 (ignore (compose-region (match-beginning 1) (match-end 1) "•"))))))) + +(use-package org-bullets + :ensure t + :hook (org-mode . org-bullets-mode)) + +(use-package org-auto-tangle + :ensure t + :hook (org-mode . org-auto-tangle-mode)) + +(use-package org-babel + :no-require t + :after (org) + :config + (org-babel-do-load-languages + 'org-babel-load-languages + '((python . t) + (emacs-lisp . t) + (calc . t) + (shell . t) + (sql . t) + (dot . t))) + + (remove-hook 'kill-emacs-hook 'org-babel-remove-temporary-directory) + + (advice-add 'org-babel-edit-prep:emacs-lisp :after + #'(lambda (_info) (run-hooks 'emacs-lisp-mode-hook)))) + +(use-package ox-gfm + :ensure t + :after org) + +(use-package ox-md + :after org) + +(use-package ox-pandoc + :ensure t + :after org + :preface + (defun markdown-to-org-region (start end) + "Convert region from markdown to org, replacing selection" + (interactive "r") + (shell-command-on-region start end "pandoc -f markdown -t org" t t))) + +(provide 'init-org) + +;;; init-org.el ends here diff --git a/config/init-osx.el b/config/init-osx.el new file mode 100644 index 0000000..a9fe148 --- /dev/null +++ b/config/init-osx.el @@ -0,0 +1,28 @@ +;;; init-osx.el --- configure osx -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure osx + +;;; Code: + +(when (memq window-system '(mac ns)) + (add-to-list 'default-frame-alist '(fullscreen . maximized)) + (add-to-list 'default-frame-alist '(ns-appearance . nil)) + (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil)) + (when (boundp 'ns-use-native-fullscreen) + (setq ns-use-native-fullscreen nil)) + (when (boundp 'mac-allow-anti-aliasing) + (setq mac-allow-anti-aliasing t))) + +(use-package exec-path-from-shell + :ensure t + :demand t + :if (memq window-system '(mac ns)) + :config + (exec-path-from-shell-initialize)) + +(provide 'init-osx) + +;;; init-osx.el ends here diff --git a/config/init-programming.el b/config/init-programming.el new file mode 100644 index 0000000..984485b --- /dev/null +++ b/config/init-programming.el @@ -0,0 +1,100 @@ +;;; init-programming.el --- Configure things related to programming -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure things related to programming + +;;; Code: + +(require 'compile) +(setq compilation-always-kill t) +;; Don't freeze when process reads from stdin +(setq compilation-disable-input t) +(setq compilation-ask-about-save nil) +(setq compilation-context-lines 10) +(setq compilation-scroll-output 'first-error) +(setq compilation-skip-threshold 2) +(setq compilation-window-height 100) + +(use-package eldoc + :diminish + :hook ((c-mode-common emacs-lisp-mode) . eldoc-mode) + :custom + (eldoc-idle-delay 1) + (eldoc-documentation-strategy #'eldoc-documentation-default) + (eldoc-echo-area-use-multiline-p 3) + (eldoc-echo-area-prefer-doc-buffer 'maybe) + (eldoc-echo-area-display-truncation-message nil)) + +(use-package indent + :commands indent-according-to-mode + :custom + (tab-always-indent 'complete)) + +(use-package tree-sitter + :ensure t + :config + (global-tree-sitter-mode)) + +(use-package tree-sitter-langs + :after tree-sitter + :ensure t) + +(use-package direnv + :ensure t + :custom + (direnv-always-show-summary nil) + :config + (direnv-mode)) + +(use-package restclient + :ensure t + :mode ("\\.rest\\'" . restclient-mode)) + +(setq prettify-symbols-unprettify-at-point 'right-edge) + + +(defun my/github-code-search () + "Search code on github for a given language." + (interactive) + (let ((language (completing-read + "Language: " + '("Emacs Lisp" "Python" "Go" "Nix"))) + (code (read-string "Code: "))) + (browse-url + (concat "https://github.com/search?lang=" language + "&type=code&q=" code)))) + +(defun my/work-code-search () + "Search code on sourcegraph for a given language." + (interactive) + (let ((language (completing-read + "Language: " + '("Ruby" "Python" "Go"))) + (code (read-string "Code: "))) + (browse-url + (concat "https://sourcegraph.rbx.com/search?q=context:global+lang:" language + "+" code)))) + + +(require 'init-elisp) +(require 'init-lsp) +(require 'init-go) +(require 'init-nix) +(require 'init-python) +(require 'init-ruby) + +(require 'init-flymake) + +(require 'init-shell) +(require 'init-json) +(require 'init-terraform) +(require 'init-toml) +(require 'init-yaml) + +(require 'init-docker) + +(provide 'init-programming) + +;;; init-programming.el ends here diff --git a/config/init-project.el b/config/init-project.el new file mode 100644 index 0000000..34928c5 --- /dev/null +++ b/config/init-project.el @@ -0,0 +1,27 @@ +;;; init-project.el --- Configure project -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure project + +;;; Code: + +(require 'init-util) + +(require 'project) + +(with-eval-after-load 'project + (define-key project-prefix-map (kbd "v") 'magit-status)) + +(global-set-key (kbd "C-x p b") 'consult-project-buffer) + +(setq project-switch-commands + (append '((magit-status "Magit status")) + project-switch-commands)) + +(setq-default project-list-file (user-data "projects.eld")) + +(provide 'init-project) + +;;; init-project.el ends here diff --git a/config/init-protobuf.el b/config/init-protobuf.el new file mode 100644 index 0000000..1af464b --- /dev/null +++ b/config/init-protobuf.el @@ -0,0 +1,16 @@ +;;; init-protobuf.el --- configure protocol buffer -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure protobuf + +;;; Code: + +(use-package protobuf-mode + :ensure t + :mode "\\.proto\\'") + +(provide 'init-protobuf.el) + +;;; init-protobuf.el ends here diff --git a/config/init-python.el b/config/init-python.el new file mode 100644 index 0000000..0927dd2 --- /dev/null +++ b/config/init-python.el @@ -0,0 +1,28 @@ +;;; init-python.el --- Configure python -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; All python related things + +;;; Code: + +(use-package python-mode + :hook ((python-mode . tree-sitter-hl-mode) + (python-mode . eglot-ensure)) + :interpreter "python" + :bind (:map python-mode-map + ("C-c c") + ("C-c C-z" . python-shell))) + +(use-package blacken + :ensure t + :hook (python-mode . blacken-mode)) + +(use-package py-isort + :ensure t + :commands (py-isort-buffer py-isort-region)) + +(provide 'init-python) + +;;; init-python.el ends here diff --git a/config/init-rg.el b/config/init-rg.el new file mode 100644 index 0000000..df7cdfe --- /dev/null +++ b/config/init-rg.el @@ -0,0 +1,24 @@ +;;; init-rg.el --- configure ripgrep -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure ripgrep + +;;; Code: + +(use-package rg + :ensure t + :custom ((rg-group-result t) + (rg-show-columns t) + (rg-align-line-number-field-length 3) + (rg-align-column-number-field-length 3) + (rg-align-line-column-separator "#") + (rg-align-position-content-separator "|") + (rg-hide-command nil) + (rg-align-position-numbers t) + (rg-command-line-flags '("--follow")))) + +(provide 'init-rg) + +;;; init-rg.el ends here diff --git a/config/init-ruby.el b/config/init-ruby.el new file mode 100644 index 0000000..fc33a48 --- /dev/null +++ b/config/init-ruby.el @@ -0,0 +1,24 @@ +;;; init-ruby.el --- configure ruby -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure ruby + +;;; Code: + +(use-package ruby-mode + :mode "\\.rb\\'" + :interpreter "ruby" + :bind (:map ruby-mode-map + ("<return>" . my-ruby-smart-return)) + :preface + (defun my-ruby-smart-return () + (interactive) + (when (memq (char-after) '(?\| ?\" ?\')) + (forward-char)) + (call-interactively 'newline-and-indent))) + +(provide 'init-ruby) + +;;; init-ruby.el ends here diff --git a/config/init-session.el b/config/init-session.el new file mode 100644 index 0000000..56f8b9b --- /dev/null +++ b/config/init-session.el @@ -0,0 +1,94 @@ +;;; init-session.el --- configure session -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure sesson + +;;; Code: + +(require 'init-util) + +(setq create-lockfiles nil) ;; don't use a lock file +(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs +(setq minibuffer-message-timeout 0.5) ;; How long to display an echo-area message + +(setq ring-bell-function 'ignore) ;; really no bell +(setq tab-always-indent 'complete) ;; when using TAB, always indent +(setq visible-bell nil) ;; no bell + +(setq electric-pair-mode 1) ;; matches parens and brackets +(setq indent-tabs-mode nil) ;; turn off tab indentation + +(setq delete-by-moving-to-trash t) ;; delete files by moving them to the trash + +;; bytecomp.el +(setq byte-compile-verbose nil) + +;; startup.el +(setq initial-buffer-choice t) +(setq initial-major-mode 'fundamental-mode) +(setq initial-scratch-message "") + +(setq user-full-name "Franck Cuny") +(setq user-mail-address "franck@fcuny.net") +(setq add-log-mailing-address "franck@fcuny.net") + +(setq history-length 200) +(setq history-delete-duplicates t) +(setq completion-ignored-extensions + '(".class" + ".cp" + ".elc" + ".fmt" + ".git/" + ".pyc" + ".so" + "~")) + +;; paragraphs.el +(setq sentence-end-double-space nil) + +;; switch to view-mode whenever you are in a read-only buffer (e.g. +;; switched to it using C-x C-q). +(setq view-read-only t) + +;; window.el +(setq switch-to-buffer-preserve-window-point t) + +;; warnings.el +(setq warning-minimum-log-level :error) + +(use-package savehist + :unless noninteractive + :custom + (savehist-additional-variables + '(file-name-history + kmacro-ring + compile-history + compile-command)) + (savehist-autosave-interval 60) + (savehist-file (user-data "history")) + (savehist-ignored-variables + '(load-history + flyspell-auto-correct-ring + org-roam-node-history + magit-revision-history + org-read-date-history + query-replace-history + yes-or-no-p-history + kill-ring)) + (savehist-mode t) + :config + (savehist-mode 1)) + +(use-package saveplace + :unless noninteractive + :custom + (save-place-file (user-data "places")) + :config + (save-place-mode 1)) + +(provide 'init-session) + +;;; init-session.el ends here diff --git a/config/init-shell.el b/config/init-shell.el new file mode 100644 index 0000000..643877b --- /dev/null +++ b/config/init-shell.el @@ -0,0 +1,29 @@ +;;; init-shell.el --- configure shell -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure shell + +;;; Code: + +(use-package sh-script + :defer t + :preface + (defvar sh-script-initialized nil) + + (defun initialize-sh-script () + (unless sh-script-initialized + (setq sh-script-initialized t) + (info-lookup-add-help :mode 'shell-script-mode + :regexp ".*" + :doc-spec '(("(bash)Index"))))) + :init + (add-hook 'shell-mode-hook #'initialize-sh-script)) + +(add-hook 'after-save-hook + #'executable-make-buffer-file-executable-if-script-p) + +(provide 'init-shell) + +;;; init-shell.el ends here diff --git a/config/init-snippets.el b/config/init-snippets.el new file mode 100644 index 0000000..7c6a83e --- /dev/null +++ b/config/init-snippets.el @@ -0,0 +1,20 @@ +;;; init-snippets.el --- configure snippets -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure snippets + +;;; Code: + +(use-package yasnippet + :ensure t + :defer t + :diminish + :hook ((prog-mode . yas-minor-mode)) + :config + (yas-reload-all)) + +(provide 'init-snippets) + +;;; init-snippets.el ends here diff --git a/config/init-terraform.el b/config/init-terraform.el new file mode 100644 index 0000000..4012f0c --- /dev/null +++ b/config/init-terraform.el @@ -0,0 +1,20 @@ +;;; init-terraform.el --- Configure terraform -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; terraform and related formats + +;;; Code: + +(use-package terraform-mode + :ensure t + :mode "\.tf\\'") + +(use-package hcl-mode + :ensure t + :mode "\.nomad\\'") + +(provide 'init-terraform) + +;;; init-terraform.el ends here diff --git a/config/init-theme.el b/config/init-theme.el new file mode 100644 index 0000000..5c938e7 --- /dev/null +++ b/config/init-theme.el @@ -0,0 +1,66 @@ +;;; init-theme.el --- configure the theme -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure the theme + +;;; Code: + +;; use various monaspace fonts +;; https://monaspace.githubnext.com +(set-face-attribute 'default nil + :font "Monaspace Neon" + :height 150) + +(set-face-attribute 'fixed-pitch nil + :font "Monaspace Neon" + :height 150) + +(set-face-attribute 'variable-pitch nil + :font "Monaspace Radon" + :height 150) + +(custom-set-faces ' + (font-lock-comment-face ((t (:font "Monaspace Radon" :italic t :height 1.0))))) + +(use-package modus-themes + :ensure t + :custom + ;; Syntax Highlighting + (modus-themes-bold-constructs t) + (modus-operandi-palette-overrides '((comment red-faint) + (string "#101010") + (bg-main "#FFFCF6"))) + + (modus-themes-italic-constructs t) + + ;; Use mixed fonts + (modus-themes-mixed-fonts t) + (modus-themes-variable-pitch-ui t) + + ;; Enhance minibuffer completions + (modus-themes-prompts '(italic bold)) + (modus-themes-completions '((matches . (extrabold)) + (selection . (semibold italic text-also)))) + + ;; Org Mode + ;;; Make headings in org files more distinct + (modus-themes-headings '((t . (background bold rainbow 1)))) + ;;; Tint the background of code blocks in org files + (modus-themes-org-blocks 'tinted-background) + ;;; Make tags less colorful and tables look the same as + ;;; the default foreground. + (prose-done cyan-cooler) + (prose-tag fg-dim) + (prose-table fg-main) + + ;; Make the fringe more intense + (modus-themes-common-palette-overrides '((fringe bg-active))) + + :config + (load-theme 'modus-operandi t)) + +(provide 'init-theme) + +;;; init-theme.el ends here diff --git a/config/init-time.el b/config/init-time.el new file mode 100644 index 0000000..a6932aa --- /dev/null +++ b/config/init-time.el @@ -0,0 +1,38 @@ +;;; init-time.el --- configure time -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure time + +;;; Code: + +(require 'time) + +(setq display-time-mode t) +(setq display-time-24hr-format t) +(setq display-time-day-and-date t) +(setq display-time-default-load-average nil) +(setq world-clock-list t) +(setq world-clock-timer-enable t) +(setq world-clock-timer-second 60) +;; UTC => 02:42 +0000 Wednesday 20 April +;; Berkeley => 19:42 -0700 Tuesday 19 April +(setq world-clock-time-format "%R %z %A %d %B") +(setq zoneinfo-style-world-list '(("UTC" "UTC") + ("America/Los_Angeles" "Berkeley") + ("America/Denver" "Mountain Time") + ("America/Chicago" "Central Time") + ("America/New_York" "New York") + ("Europe/London" "London") + ("Europe/Paris" "Paris"))) + +(add-to-list 'display-buffer-alist '("\\*wclock\\*" + (display-buffer-in-side-window) + (side . left) + (slot . 0) + (window-width . 0.35))) + +(provide 'init-time) + +;;; init-time.el ends here diff --git a/config/init-toml.el b/config/init-toml.el new file mode 100644 index 0000000..28b56db --- /dev/null +++ b/config/init-toml.el @@ -0,0 +1,16 @@ +;;; init-toml.el --- Configure TOML related things -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; For TOML + +;;; Code: + +(use-package toml-mode + :defer t + :ensure t) + +(provide 'init-toml) + +;;; init-toml.el ends here diff --git a/config/init-ui.el b/config/init-ui.el new file mode 100644 index 0000000..04ab67f --- /dev/null +++ b/config/init-ui.el @@ -0,0 +1,53 @@ +;;; init-ui.el --- User interface config. -*- lexical-binding: t -*- + +;;; Commentary: + +;; User interface settings. + +;;; Code: + +;; Don't say anything on mode-line mouseover. +(setq mode-line-default-help-echo nil) + +;; Keep cursors and highlights in current window only. +(setq cursor-in-non-selected-windows nil) + +;; Don't highlight inactive windows. +(setq highlight-nonselected-windows nil) + +;; Use y-or-n +(setq use-short-answers t) + +;; Use UTF-8 everywhere +(prefer-coding-system 'utf-8) +(set-default-coding-systems 'utf-8) +(set-terminal-coding-system 'utf-8) +(set-keyboard-coding-system 'utf-8) + +(show-paren-mode 1) +(setq show-paren-delay 0) +(setq show-paren-highlight-openparen t) +(setq show-paren-when-point-inside-paren t) +(setq show-paren-when-point-in-periphery t) + +(require 'fringe) +;; no fringe on the right side +(set-fringe-mode '(8 . 0)) + +;; Disable bidirectional text support for slight performance bonus. +(setq bidi-display-reordering nil) + +(setq window-divider-default-bottom-width 1) +(setq window-divider-default-places 'bottom-only) + +;; empty scratch buffer +(setq initial-scratch-message "") + +;; scroll 5 lines at a time +(setq next-screen-context-lines 5) + +;; cursor is a horizontal bar +(setq cursor-type 'box) + +(provide 'init-ui) +;;; init-ui.el ends here diff --git a/config/init-util.el b/config/init-util.el new file mode 100644 index 0000000..71b862e --- /dev/null +++ b/config/init-util.el @@ -0,0 +1,23 @@ +;;; init-util.el --- Util functions and variables -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; util functions and variables + +;;; Code: + +(defsubst emacs-path (path) + "The PATH where Emacs configuration is loaded from." + (expand-file-name path user-emacs-directory)) + +(defconst user-data-directory + (emacs-path "data")) + +(defun user-data (dir) + "Concat DIR under the user's directory." + (expand-file-name dir user-data-directory)) + +(provide 'init-util) + +;;; init-util.el ends here diff --git a/config/init-whitespace.el b/config/init-whitespace.el new file mode 100644 index 0000000..14533ad --- /dev/null +++ b/config/init-whitespace.el @@ -0,0 +1,33 @@ +;;; init-whitespace.el --- configure whitespace -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; configure whitespace + +;;; Code: + +(use-package whitespace + :diminish (global-whitespace-mode + whitespace-mode + whitespace-newline-mode) + :commands (whitespace-buffer + whitespace-cleanup + whitespace-mode + whitespace-turn-off) + :init + (dolist (hook '(prog-mode-hook text-mode-hook)) + (add-hook hook #'whitespace-mode)) + :custom + (whitespace-auto-cleanup t t) + (whitespace-rescan-timer-time nil t) + (whitespace-silent t t) + (whitespace-style '(face trailing space-before-tab)) + :defines + (whitespace-auto-cleanup + whitespace-rescan-timer-time + whitespace-silent)) + +(provide 'init-whitespace) + +;;; init-whitespace.el ends here diff --git a/config/init-writing.el b/config/init-writing.el new file mode 100644 index 0000000..e60f030 --- /dev/null +++ b/config/init-writing.el @@ -0,0 +1,19 @@ +;;; init-writing.el --- Configure things related to writing -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; Configure things related to writing + +;;; Code: + +(require 'init-markdown) + +(require 'ispell) +(setq ispell-program-name (executable-find "aspell")) +(setq ispell-dictionary "en_US") +(setq ispell-extra-args '("--camel-case")) + +(provide 'init-writing) + +;;; init-writing.el ends here diff --git a/config/init-yaml.el b/config/init-yaml.el new file mode 100644 index 0000000..0a460e6 --- /dev/null +++ b/config/init-yaml.el @@ -0,0 +1,16 @@ +;;; init-yaml.el --- Configure YAML -*- lexical-binding: t -*- +;; Author: Franck Cuny <franck@fcuny.net> + +;;; Commentary: + +;; YAML related configurations + +;;; Code: + +(use-package yaml-mode + :ensure t + :mode "\\.ya?ml\\'") + +(provide 'init-yaml) + +;;; init-yaml.el ends here |