diff options
Diffstat (limited to 'emacs')
47 files changed, 0 insertions, 1830 deletions
diff --git a/emacs/custom/my-completion.el b/emacs/custom/my-completion.el deleted file mode 100644 index e66f0ce..0000000 --- a/emacs/custom/my-completion.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; my-completion.el --- Configure parts related to completion -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'cape) -(require 'consult) -(require 'corfu) -(require 'corfu-popupinfo) -(require 'orderless) -(require 'marginalia) -(require 'savehist) -(require 'vertico) - -;;; settings -;; save the mini buffer's history -(savehist-mode t) -(setq savehist-file (expand-file-name "var/history" user-emacs-directory)) - -(setq completion-styles '(orderless basic)) -(setq completion-category-defaults nil) - -(setq corfu-cycle t) ;; Enable cycling for `corfu-next/previous' -(setq corfu-auto t) ;; Enable auto completion -(setq corfu-max-width 80) ;; Default is 100 and is too wide - -(defun corfu-send-shell (&rest _) - "Send completion candidate when inside comint/eshell." - (cond - ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input)) - (eshell-send-input)) - ((and (derived-mode-p 'comint-mode) (fboundp 'comint-send-input)) - (comint-send-input)))) - -(advice-add #'corfu-insert :after #'corfu-send-shell) - -;; enable corfu popup mode -(corfu-popupinfo-mode t) - -;; transition quickly -(setq corfu-popupinfo-delay '(0.25 . 0.1)) - -;; don't hide the popup when -;; transitioning between candidates -(setq corfu-popupinfo-hide nil) - -;; Silence the pcomplete capf, no errors or messages! -(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent) - -;; Ensure that pcomplete does not write to the buffer -;; and behaves as a pure `completion-at-point-function'. -(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify) - -(vertico-mode t) ;; Enable vertico globally -(marginalia-mode t) ;; Enable marginalia globally -(global-corfu-mode) ;; Enable corfu globally - -(add-to-list 'completion-at-point-functions #'cape-file) -(add-to-list 'completion-at-point-functions #'cape-abbrev) -(add-to-list 'completion-at-point-functions #'cape-ispell) - -;;; bindings -(global-set-key (kbd "C-c m") 'consult-mode-command) -(global-set-key (kbd "C-x b") 'consult-buffer) -(global-set-key (kbd "C-x 4 b") 'consult-buffer-other-window) -(global-set-key (kbd "C-x r b") 'consult-bookmark) -(global-set-key (kbd "C-x p b") 'consult-project-buffer) -(global-set-key (kbd "C-c i") 'consult-imenu) -(global-set-key (kbd "C-c f") 'consult-git-grep) -(global-set-key (kbd "C-c /") 'consult-ripgrep) -(global-set-key (kbd "C-c r") 'consult-recent-file) -(global-set-key (kbd "M-y") 'consult-yank-pop) -(global-set-key (kbd "M-g e") 'consult-compile-error) -(global-set-key (kbd "M-g f") 'consult-flymake) -(global-set-key (kbd "M-g M-g") 'consult-goto-line) -(global-set-key (kbd "M-g O") 'consult-outline) -(global-set-key (kbd "M-g o") 'consult-org-heading) -(global-set-key (kbd "M-g m") 'consult-mark) -(global-set-key (kbd "M-g k") 'consult-global-mark) -(global-set-key (kbd "M-s l") 'consult-line) -(global-set-key (kbd "M-s L") 'consult-line-multi) - -;;; hooks - -(provide 'my-completion) - -;;; my-completion.el ends here diff --git a/emacs/custom/my-conf.el b/emacs/custom/my-conf.el deleted file mode 100644 index 7b1dd13..0000000 --- a/emacs/custom/my-conf.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; my-conf.el --- Configure modes related to configuration files -*- lexical-binding: t -*- - -;;; Commentary: -;; Provides configuration for modes that are related to configuration -;; files. - -;;; Code: - -(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)) -(add-to-list 'auto-mode-alist '("_SWARP10_METADATA\\'" . yaml-mode)) ;; roblox related -(add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode)) -(add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode)) -(add-to-list 'auto-mode-alist '("\\.tf\\'" . terraform-mode)) - -(customize-set-variable 'dockerfile-use-sudo t) -(customize-set-variable 'dockerfile-use-buildkit t) - -(customize-set-variable 'json-reformat:indent-width 2) -(customize-set-variable 'js-indent-level 2) -(customize-set-variable 'css-indent-offset 2) - -(add-hook 'terraform-mode-hook 'terraform-format-on-save-mode) - -(defun my/js-mode-hook () - "Hooks for `js-mode'." - ;; format the buffer with `jq' - (local-set-key (kbd "C-c C-f") 'jq-format-json-buffer)) - -(add-hook 'js-mode-hook 'my/js-mode-hook) - -(provide 'my-conf) -;;; my-conf.el ends here diff --git a/emacs/custom/my-dired.el b/emacs/custom/my-dired.el deleted file mode 100644 index 92ab5b0..0000000 --- a/emacs/custom/my-dired.el +++ /dev/null @@ -1,13 +0,0 @@ -;;; my-dired.el --- Configure `dired' - -;;; Commentary: - -;;; Code: - -(customize-set-variable 'dired-dwim-target t) -(customize-set-variable 'dired-listing-switches "-ahl --time-style=long-iso --group-directories-first") -(customize-set-variable 'dired-recursive-deletes 'always) -(customize-set-variable 'dired-recursive-copies 'always) - -(provide 'my-dired) -;;; my-dired.el ends here diff --git a/emacs/custom/my-edit.el b/emacs/custom/my-edit.el deleted file mode 100644 index 6a9911c..0000000 --- a/emacs/custom/my-edit.el +++ /dev/null @@ -1,40 +0,0 @@ -;;; my-edit.el --- Configure parts related to editing -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: -(require 'autorevert) - -;;; settings -(setq global-auto-revert-non-file-buffers t) -(setq auto-revert-verbose nil) - -(global-auto-revert-mode t) - -(setq show-paren-delay 0 - show-paren-highlight-openparen t - show-paren-when-point-inside-paren t - show-paren-when-point-in-periphery t) -(show-paren-mode 1) - -;; don't assume that sentences should have two spaces after period. -(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) - -;;; bindings -(global-set-key (kbd "M-j") 'join-line) - -;;; hooks -(defun my/whitespace-setup () - "Configure whitespace mode." - (setq-local show-trailing-whitespace t)) - -;; turn on my configuration for white spaces on a few modes -(dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook outline-mode-hook)) - (add-hook hook 'my/whitespace-setup)) - -(provide 'my-edit) -;;; my-edit.el ends here diff --git a/emacs/custom/my-eldoc.el b/emacs/custom/my-eldoc.el deleted file mode 100644 index ff3dc0c..0000000 --- a/emacs/custom/my-eldoc.el +++ /dev/null @@ -1,18 +0,0 @@ -;;; my-eldoc.el --- eldoc configuration -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(setq eldoc-idle-delay 1 - eldoc-documentation-strategy #'eldoc-documentation-default - eldoc-echo-area-prefer-doc-buffer 'maybe - eldoc-echo-area-use-multiline-p nil) - -(when (boundp eldoc-echo-area-display-truncation-message) - (setq eldoc-echo-area-display-truncation-message nil)) - -(provide 'my-eldoc) - -;;; my-eldoc.el ends here diff --git a/emacs/custom/my-elfeed.el b/emacs/custom/my-elfeed.el deleted file mode 100644 index a9ce043..0000000 --- a/emacs/custom/my-elfeed.el +++ /dev/null @@ -1,48 +0,0 @@ -;;; my-elfeed.el --- Configure elfeed -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'elfeed) -(require 'elfeed-org) - -(with-eval-after-load 'elfeed-search - '(define-key elfeed-search-mode-map (kbd "*") 'elfeed-toggle-star)) - -(add-hook 'after-init-hook 'elfeed-org) - -(customize-set-variable 'elfeed-search-filter "@1-month-ago +unread") -(customize-set-variable 'rmh-elfeed-org-files (list (expand-file-name "etc/elfeed.org" user-emacs-directory))) - -(defalias 'elfeed-toggle-star - (elfeed-expose #'elfeed-search-toggle-all 'star)) - -;; set colors for some specific tags -(defface elfeed-face-tag-mustread - '((t :foreground "#f00")) - "This is a custom font face for the `mustread' tag in Elfeed." - :group 'elfeed) - -(with-eval-after-load 'elfeed - (setq elfeed-search-face-alist - '((mustread elfeed-face-tag-mustread) - (unread elfeed-search-unread-title-face)))) - -(defun my/elfeed-show-visit-eww () - "Visit the current entry in eww." - (interactive) - (let ((link (elfeed-entry-link elfeed-show-entry))) - (when link - (eww link)))) - -;; disable proportional fonts when displaying HTML content. -(advice-add #'elfeed-insert-html - :around - (lambda (fun &rest r) - (let ((shr-use-fonts nil)) - (apply fun r)))) - -(provide 'my-elfeed) - -;;; my-elfeed.el ends here diff --git a/emacs/custom/my-eshell.el b/emacs/custom/my-eshell.el deleted file mode 100644 index 87179ec..0000000 --- a/emacs/custom/my-eshell.el +++ /dev/null @@ -1,112 +0,0 @@ -;;; my-eshell.el --- Configure eshell -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'cl-seq) -(require 'vc) -(require 'eshell) -(require 'esh-mode) -(require 'esh-module) - -(setq eshell-modules-list - '(eshell-alias - eshell-basic - eshell-cmpl - eshell-dirs - eshell-glob - eshell-hist - eshell-ls - eshell-pred - eshell-prompt - eshell-script - eshell-term - eshell-tramp - eshell-unix)) - -(require 'em-alias) -(require 'em-basic) -(require 'em-dirs) -(require 'em-glob) -(require 'em-hist) -(require 'em-term) -(require 'em-tramp) -(require 'em-prompt) - -(defun my/eshell-mode-setup () - "Configures various aliases for eshell." - (eshell/alias "e" "find-file $1") - (eshell/alias "emacs" "find-file $1") - (eshell/alias "ee" "find-file-other-window $1") - (eshell/alias "ll" "ls -l") - (eshell/alias "lla" "ls -la") - (eshell/alias "d" "dired $1") - (eshell/alias "gs" "vc-diff") - (eshell/alias "cal" "calendar") - (eshell/alias "agenda" "org-agenda")) - -(defvar-local my/eshell-output-buffer "*Exported eshell output*" - "Name of buffer with the last output of Eshell command.") - -(defvar-local my/eshell-output-delimiter "---" - "Delimiter for successive `prot-eshell-export' outputs.") - -(defun my/eshell--command-prompt-output () - "Capture last command prompt and its output." - (let ((beg (save-excursion - (goto-char (eshell-beginning-of-input)) - (goto-char (pos-bol))))) - (when (derived-mode-p 'eshell-mode) - (buffer-substring-no-properties beg (eshell-end-of-output))))) - -;; https://gitlab.com/protesilaos/dotfiles/-/blob/master/emacs/.emacs.d/prot-lisp/prot-eshell.el#L114 -(defun my/eshell-export () - "Produce a buffer with output of the last Eshell command. -If `my/eshell-output-buffer' does not exist, create it. Else -append to it, while separating multiple outputs with -`my/eshell-output-delimiter'." - (interactive) - (let ((eshell-output (my/eshell--command-prompt-output))) - (with-current-buffer (get-buffer-create my/eshell-output-buffer) - (goto-char (point-max)) - (unless (eq (point-min) (point-max)) - (insert (format "\n%s\n\n" my/eshell-output-delimiter))) - (goto-char (pos-bol)) - (insert eshell-output) - (switch-to-buffer-other-window (current-buffer))))) - -(defun my/short-pwd (path) - "Turn a PATH of the form /foo/bar/baz into /f/b/baz, like fish shell." - (let* ((home-path (replace-regexp-in-string (expand-file-name "~") - "~" - path)) - (current-dir (split-string home-path "/")) - (cdir (last current-dir)) - (head (butlast current-dir))) - (concat (mapconcat (lambda (s) - (if (string= "" s) nil - (substring s 0 1))) - head - "/") - (if head "/" nil) - (car cdir)))) - -(defmacro with-face (str &rest properties) - "Set the PROPERTIES for the given STR." - `(propertize ,str 'face (list ,@properties))) - -(define-key eshell-mode-map (kbd "C-c e e") 'my/eshell-export) - -(customize-set-variable 'eshell-scroll-to-bottom-on-input 'all) -(customize-set-variable 'eshell-hist-ignoredups t) -(customize-set-variable 'eshell-save-history-on-exit t) -(customize-set-variable 'eshell-cd-on-directory t) -(customize-set-variable 'eshell-prefer-lisp-functions t) -(customize-set-variable 'eshell-destroy-buffer-when-process-dies t) - -(add-hook 'eshell-mode-hook 'my/eshell-mode-setup) - -(provide 'my-eshell) - -;;; my-eshell.el ends here diff --git a/emacs/custom/my-flymake.el b/emacs/custom/my-flymake.el deleted file mode 100644 index 40f6ab9..0000000 --- a/emacs/custom/my-flymake.el +++ /dev/null @@ -1,25 +0,0 @@ -;;; my-flymake.el --- configure flymake -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'flymake) - -;;; settings -(setq flymake-start-on-save-buffer t) -(setq elisp-flymake-byte-compile-load-path load-path) - -;;; bindings -(define-key flymake-mode-map (kbd "C-c ! n") 'flymake-goto-next-error) -(define-key flymake-mode-map (kbd "C-c ! p") 'flymake-goto-prev-error) -(define-key flymake-mode-map (kbd "C-c ! d") 'flymake-show-diagnostics-buffer) - -;;; hooks -(dolist (hook '(prog-mode-hook conf-mode-hook)) - (add-hook hook 'flymake-mode)) - -(provide 'my-flymake) - -;;; my-flymake.el ends here diff --git a/emacs/custom/my-git.el b/emacs/custom/my-git.el deleted file mode 100644 index 2270f91..0000000 --- a/emacs/custom/my-git.el +++ /dev/null @@ -1,50 +0,0 @@ -;;; my-git --- configures git for emacs -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'magit) -(require 'git-link) - -;;; settings -(setq vc-follow-symlinks t) - -;; we're not barbarians -(setq git-commit-summary-max-length 70) - -;; open the link in the browser -(setq git-link-open-in-browser 't) - -;; I prefer to have the status buffer in full frame -(setq magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1) - -;; expand a number of sections with magit -(add-to-list 'magit-section-initial-visibility-alist '(untracked . show)) -(add-to-list 'magit-section-initial-visibility-alist '(unstaged . show)) -(add-to-list 'magit-section-initial-visibility-alist '(unpulled . show)) -(add-to-list 'magit-section-initial-visibility-alist '(unpushed . show)) - -(add-to-list 'auto-mode-alist '("\\.gitconfig\\'" . gitconfig-mode)) -(add-to-list 'auto-mode-alist '("\\.git/config\\'" . gitconfig-mode)) -(add-to-list 'auto-mode-alist '("\\.gitmodules\\'" . gitconfig-mode)) -(add-to-list 'auto-mode-alist '("\\.gitignore\\'" . gitconfig-mode)) -(add-to-list 'auto-mode-alist '("\\.dockerignore\\'" . gitconfig-mode)) -(add-to-list 'auto-mode-alist '("\\.gitattributes\\'" . gitattributes-mode)) - -;;; bindings -(global-set-key (kbd "C-x g") 'magit-status) -(global-set-key (kbd "C-c g l") 'git-link) -(global-set-key (kbd "C-c g c") 'git-link-commit) - -;;; hooks -(defun my/git-commit-auto-fill () - "Ensures that the commit body does not exceed 72 characters." - (setq-local fill-column 72) - (setq-local comment-auto-fill-only-comments nil)) - -(add-hook 'git-commit-mode-hook 'my/git-commit-auto-fill) - -(provide 'my-git) - -;;; my-git.el ends here diff --git a/emacs/custom/my-lang-go.el b/emacs/custom/my-lang-go.el deleted file mode 100644 index 7dde8c4..0000000 --- a/emacs/custom/my-lang-go.el +++ /dev/null @@ -1,25 +0,0 @@ -;;; my-lang-go.el --- configure emacs for go -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'go-mode) -(require 'gotest) -(require 'eglot) - -(add-hook 'go-mode-hook 'eglot-ensure) - -(add-hook 'go-mode-hook - (lambda () - (setq tab-width 4) - (setq compile-command "go build -v && go test -v && go vet"))) - -(add-hook 'go-mode-hook - (lambda() - (add-hook 'before-save-hook 'eglot-format-buffer nil t))) - -(provide 'my-lang-go) - -;;; my-lang-go.el ends here diff --git a/emacs/custom/my-lang-nix.el b/emacs/custom/my-lang-nix.el deleted file mode 100644 index 6e17ee3..0000000 --- a/emacs/custom/my-lang-nix.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; my-lang-nix.el --- configure emacs for nix -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'eglot) -(require 'nix-mode) - -(add-hook 'nix-mode-hook 'eglot-ensure) -(add-hook 'nix-mode-hook #'(lambda() (add-hook 'before-save-hook 'eglot-format-buffer nil t))) - -(provide 'my-lang-nix) - -;;; my-lang-nix.el ends here diff --git a/emacs/custom/my-lang-python.el b/emacs/custom/my-lang-python.el deleted file mode 100644 index 10c1cd9..0000000 --- a/emacs/custom/my-lang-python.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; my-lang-python.el --- Configures emacs for python -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'python) - -(setq python-interpreter "ipython3") -(setq python-shell-interpreter "python3") -(setq python-shell-interpreter-args "-i") - -;;; bindings -(define-key python-mode-map (kbd "C-h f") 'python-eldoc-at-point) - -;;; hooks -;; if black is present, enable it -(when (executable-find "black") - (require 'blacken) - (add-hook 'python-mode-hook 'blacken-mode)) - -(when (executable-find "pylsp") - (add-hook 'python-mode-hook 'eglot-ensure) - ;; https://github.com/python-lsp/python-lsp-server/blob/develop/CONFIGURATION.md - (setq-default eglot-workspace-configuration - '((pylsp (plugins (flake8 (enabled . :json-false)) - (pycodestyle (enabled . :json-false))))))) - -(provide 'my-lang-python) - -;;; my-lang-python.el ends here diff --git a/emacs/custom/my-lang-rust.el b/emacs/custom/my-lang-rust.el deleted file mode 100644 index b0d3904..0000000 --- a/emacs/custom/my-lang-rust.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; my-lang-rust.el --- configure emacs for rust -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'rustic) - -(setq rustic-format-on-save t) -(setq rustic-lsp-client 'eglot) -(setq rustic-lsp-server 'rust-analyzer) - -(provide 'my-lang-rust) - -;;; my-lang-rust.el ends here diff --git a/emacs/custom/my-lsp.el b/emacs/custom/my-lsp.el deleted file mode 100644 index 40ba785..0000000 --- a/emacs/custom/my-lsp.el +++ /dev/null @@ -1,23 +0,0 @@ -;;; my-lsp.el --- Configures emacs for LSP -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'eglot) - -;; settings related to performance -;; https://emacs-lsp.github.io/lsp-mode/page/performance/ -(setq read-process-output-max (* 1024 1024)) ;; 1mb -(setq gc-cons-threshold 100000000) ;; 100mb - -(global-set-key (kbd "C-c l e") #'eglot) -(define-key eglot-mode-map (kbd "C-c l s") #'eglot-shutdown) -(define-key eglot-mode-map (kbd "C-c l r") #'eglot-rename) -(define-key eglot-mode-map (kbd "C-c l a") #'eglot-code-actions) -(define-key eglot-mode-map (kbd "C-c l o") #'eglot-code-action-organize-imports) - -(provide 'my-lsp) - -;;; my-lsp.el ends here diff --git a/emacs/custom/my-navigation.el b/emacs/custom/my-navigation.el deleted file mode 100644 index 06de92e..0000000 --- a/emacs/custom/my-navigation.el +++ /dev/null @@ -1,56 +0,0 @@ -;;; my-navigation.el --- Configure parts related to navigation -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'bookmark) -(require 'project) -(require 'recentf) -(require 'rg) -(require 'transient) - -;;; settings -(setq help-window-select t) ;; select help window when opening it - -;; where to store the list of projects -(setq project-list-file (expand-file-name "var/projects" user-emacs-directory)) - -(setq project-switch-commands - '((?f "File" project-find-file) - (?d "Dired" project-dired) - (?b "Buffer" project-switch-to-buffer) - (?e "Eshell" project-eshell) - (?m "Magit status" magit-project-status) - (?r "Search" rg-project))) - -(setq bookmark-save-flag 1) -(setq bookmark-default-file (expand-file-name "var/bookmarks" user-emacs-directory)) - -(setq rg-group-result t) -(setq rg-show-columns t) -(setq rg-align-position-numbers t) -(setq rg-align-line-number-field-length 3) -(setq rg-align-column-number-field-length 3) -(setq rg-align-line-column-separator "#") -(setq rg-align-position-content-separator "|") - -;; where to store the list of recent files -(setq recentf-save-file (expand-file-name "var/recentf" user-emacs-directory)) -(setq recentf-max-saved-items 500) -(setq recentf-exclude '(".gz" ".xz" ".zip" "tmp/" "/ssh:")) - -;; where to store transient's history -(setq transient-history-file (expand-file-name "var/transient-history.el" user-emacs-directory)) - -;;; bindings -(global-set-key (kbd "C-x C-b") 'ibuffer) -(global-set-key (kbd "M-g i") 'imenu) - -;;; hooks -(add-hook 'after-init-hook 'recentf-mode) -(add-hook 'after-init-hook 'which-key-mode) - -(provide 'my-navigation) - -;;; my-navigation.el ends here diff --git a/emacs/custom/my-org.el b/emacs/custom/my-org.el deleted file mode 100644 index 85716d3..0000000 --- a/emacs/custom/my-org.el +++ /dev/null @@ -1,136 +0,0 @@ -;;; my-org.el --- Configure org-mode -*- lexical-binding: t -*- -;;; Commentary: -;;; Code: - -(require 'org) -(require 'org-agenda) -(require 'org-capture) -(require 'org-archive) -(require 'org-cliplink) -(require 'ox) -(require 'ox-md) - -(defvar my/org-directory - (if (memq window-system '(mac ns)) - (expand-file-name "~/workspace/notebooks/") - (expand-file-name "~/documents/notes/"))) - -(add-hook 'org-mode-hook 'org-indent-mode) -(add-hook 'org-mode-hook 'org-hide-block-all) -(add-hook 'org-mode-hook 'visual-line-mode) -(add-hook 'org-capture-after-finalize-hook 'org-save-all-org-buffers) -(add-hook 'org-capture-prepare-finalize-hook 'org-save-all-org-buffers) - -(global-set-key (kbd "C-c c") 'org-capture) -(global-set-key (kbd "C-c a") 'org-agenda) - -(defvar load-language-list '((emacs-lisp . t) - (python . t) - (shell . t))) - -(setq org-directory my/org-directory) -(setq org-hide-emphasis-markers t) ;; hide emphasis markup -(setq org-archive-subtree-add-inherited-tags t) ;; when archiving, inherit the tags from the parent -(setq org-pretty-entities t) ;; display unicode characters -(setq org-log-done 'time) ;; log the time of completion -(setq org-log-into-drawer t) ;; insert state change in the drawer -(setq org-cycle-separator-lines 0) -(setq org-startup-folded 'content) -(setq org-todo-keywords '((sequence "TODO" "WAITING" "|" "DONE" "CANCELED"))) - -(setq org-priority-start-cycle-with-default nil) ;; Start one over/under default value. -(setq org-highest-priority ?A) -(setq org-lowest-priority ?D) -(setq org-default-priority ?C) ;; Ensures unset tasks have low priority. - -(setq org-refile-use-cache nil) -(setq org-refile-targets `((,(expand-file-name "tasks.org" org-directory) :maxlevel . 1) - (,(expand-file-name "notes.org" org-directory) :maxlevel . 1))) -(setq org-refile-use-outline-path 'file) -(setq org-outline-path-complete-in-steps nil) -(setq org-refile-allow-creating-parent-nodes 'confirm) - -;; org babel related -(setq org-src-fontify-natively t) -(setq org-src-preserve-indentation t) ;; prevent the conversion of spaces into tabs (necessary for Python code exports) -(setq org-edit-src-content-indentation t) - -(setq org-return-follows-link t) ;; I want to follow links on RET - -;; some configurations for exporting document -(setq org-export-with-toc nil) -(setq org-export-with-section-numbers nil) - -;; a few abbreviations I use regularly -(setq org-link-abbrev-alist - '(("src" . "~/workspace/%s") - ("jira" . "https://jira.rbx.com/browse/%s") - ("go" . "http://go/%s"))) - -(setq org-blank-before-new-entry (quote ((heading . nil) (plain-list-item . nil)))) -(setq org-reverse-note-order t) - -(setq org-agenda-files `(,(expand-file-name "inbox.org" org-directory) - ,(expand-file-name "notes.org" org-directory) - ,(expand-file-name "tasks.org" org-directory) - ,(expand-file-name "bookmarks.org" org-directory) - ,(expand-file-name "journal.org" org-directory))) -(setq org-agenda-show-all-dates t) -(setq calendar-week-start-day 1) -(setq org-agenda-custom-commands nil) -(setq org-agenda-start-on-weekday 1) - -(add-to-list 'org-agenda-custom-commands - '("A" "Agenda for today" - ((agenda "" ((org-agenda-span 'day) - (org-agenda-start-day (org-today)))) - (todo "TODO" - ((org-agenda-overriding-header "To Refile") - (org-agenda-files `(,(expand-file-name "inbox.org" org-directory))))) - (todo "STARTED" - ((org-agenda-overriding-header "In Progress"))) - (todo "WAITING" - ((org-agenda-overriding-header "Blocked"))) - (todo "TODO" - ((org-agenda-overriding-header "Not yet started") - (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline 'scheduled))))))) - -(setq org-capture-templates -`(("t" "tasks" entry (file "inbox.org") - "* TODO [#D] %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n") - - ("T" "TIL" entry (file+headline "til.org" "Today I learned") - "* %^{title} :%^{tag}:\n:PROPERTIES:\n:CREATED: %U\n:END:\n%?\nSource: %^C") - - ("n" "note" entry (file "notes.org") - "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n") - - ("f" "feed" entry (file "inbox.org") - ,(concat "* TODO [#D] %:elfeed-entry-title :feed:\n" - ":PROPERTIES:\n:CREATED: %T\n:END:\n" - "%a\n")) - - ("b" "bookmark" entry (file "bookmarks.org") - ,(concat "* %(org-cliplink-capture) :%^{tag}:\n" - ":PROPERTIES:\n:CREATED: %T\n:END:%?\n") :prepend t :empty-lines 1) - - ("j" "journal" entry (file+olp+datetree "journal.org") - "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n" :tree-type day))) - -;; https://stackoverflow.com/questions/20164918/how-to-untick-checkboxes-in-org-mode-for-the-next-cyclic-repetitive-task -(defun my/org-reset-checkbox-state-maybe () - "Reset all checkboxes in an entry if the `RESET_CHECK_BOXES' property is set." - (interactive "*") - (if (org-entry-get (point) "RESET_CHECK_BOXES") - (org-reset-checkbox-state-subtree))) - -(defun my/org-reset-checkbox-when-done () - "Reset all checkboxes in an entry when the state is DONE." - (when (member org-state org-done-keywords) ;; org-state dynamically bound in org.el/org-todo - (my/org-reset-checkbox-state-maybe))) - -(add-hook 'org-after-todo-state-change-hook 'my/org-reset-checkbox-when-done) - -(provide 'my-org) - -;;; my-org.el ends here diff --git a/emacs/custom/my-packages.el b/emacs/custom/my-packages.el deleted file mode 100644 index 62cfac0..0000000 --- a/emacs/custom/my-packages.el +++ /dev/null @@ -1,108 +0,0 @@ -;;; my-packages.el --- List of packages to install -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'package) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) - -(defvar my/package-list - '(eglot - ;; python - blacken - python-docstring - python-mode - - ;; go - go-mode - gotest - - ;; nix - nix-mode - - ;; rust - rustic - - ;; various configuration formats - chef-mode - dockerfile-mode - fish-mode - hcl-mode - jq-format - protobuf-mode - systemd - terraform-doc - terraform-mode - toml-mode - yaml-mode - - ;; git - git-commit - git-link - git-modes - magit - - ;; elfeed - elfeed - elfeed-org - - ;; org-mode - org-cliplink - - ;; various text modes - markdown-mode - - ;; tree-sitter - tree-sitter - tree-sitter-langs - - ;; navigation - cape - consult - corfu - marginalia - orderless - vertico - which-key - yasnippet - - ;; themes - standard-themes - - ;; packages to interact with external tools - exec-path-from-shell - envrc - rg) - "List of packages to be installed.") - -(defun my/packages-installed-p () - "Check if all packages in `my/package-list' are installed." - (cl-every #'package-installed-p my/package-list)) - -(defun my/require-package (package) - "Install PACKAGE unless already installed." - (unless (memq package my/package-list) - (add-to-list 'my/package-list package)) - (unless (package-installed-p package) - (package-install package))) - -(defun my/require-packages (packages) - "Ensure PACKAGES are installed. -Missing packages are installed automatically." - (mapc #'my/require-package packages)) - -(defun my/install-packages () - "Install all packages listed in `my/package-list'." - (unless (my/packages-installed-p) - ;; check for new packages (package versions) - (message "%s" "Reloading packages DB...") - (package-refresh-contents) - (message "%s" " done.") - ;; install the missing packages - (my/require-packages my/package-list))) - -(provide 'my-packages) - -;;; my-packages.el ends here diff --git a/emacs/custom/my-prog.el b/emacs/custom/my-prog.el deleted file mode 100644 index 8314ab9..0000000 --- a/emacs/custom/my-prog.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; my-prog.el --- Configures emacs for various programming languages -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: -(customize-set-variable 'Man-notify-method 'aggressive) -(customize-set-variable 'Man-fontify-manpage-flag t) - -;; turn on `electric-pair-mode' on `prog-mode' and `conf-mode-hook' -(dolist (hook '(prog-mode-hook conf-mode-hook)) - (add-hook hook 'electric-pair-mode)) - -;; Skip over warnings and info messages in compilation -(customize-set-variable 'compilation-skip-threshold 2) -;; Don't freeze when process reads from stdin -(customize-set-variable 'compilation-disable-input t) -;; Show three lines of context around the current message -(customize-set-variable 'compilation-context-lines 3) -;; Jump to first error -(customize-set-variable 'compilation-scroll-output 'first-error) - -;; yasnippet is required to support place holders with eglot -(dolist (hook '(prog-mode-hook conf-mode-hook org-mode-hook)) - (add-hook hook 'yas-minor-mode)) - -;; where to wrap comments -(require 'newcomment) -(setq comment-fill-column 120) -(setq comment-auto-fill-only-comments t) - -(dolist (hook '(prog-mode-hook conf-mode-hook)) - (add-hook hook 'auto-fill-mode)) - -(defun my/sh-mode-hook () - "Hooks for `sh-mode'." - ;; shell scripts are made executable - (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p) - (customize-set-variable 'sh-indentation 2) - (customize-set-variable 'sh-basic-offset 2)) - -(add-hook 'sh-mode-hook 'my/sh-mode-hook) - -(defun my/makefile-mode-hook () - "Hooks for `makefile-mode'." - ;; I want small tabs when working in a Makefile - (setq tab-width 2)) - -(add-hook 'makefile-mode-hook 'my/makefile-mode-hook) - -(defun my/elisp-mode-hook () - "Hooks for `elisp-mode'." - (define-key emacs-lisp-mode-map (kbd "C-c C-e") 'eval-buffer) - (define-key emacs-lisp-mode-map (kbd "C-c C-r") 'eval-region)) - -(add-hook 'emacs-lisp-mode-hook 'my/elisp-mode-hook) - -(define-key prog-mode-map (kbd "C-c C-h") 'eldoc) -(dolist (hook '(prog-mode-hook conf-mode-hook)) - (add-hook hook 'turn-on-eldoc-mode)) - -(provide 'my-prog) - -;;; my-prog.el ends here diff --git a/emacs/custom/my-settings.el b/emacs/custom/my-settings.el deleted file mode 100644 index b17f4a6..0000000 --- a/emacs/custom/my-settings.el +++ /dev/null @@ -1,82 +0,0 @@ -;;; my-settings.el --- Sets a number of defaults -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'url-cookie) - -;; set utf-8 as the default encoding -(prefer-coding-system 'utf-8-unix) -(setq locale-coding-system 'utf-8) -(set-language-environment 'utf-8) -(set-terminal-coding-system 'utf-8) -(set-keyboard-coding-system 'utf-8) - -;; alias yes-or-no to y-or-n -(fset 'yes-or-no-p 'y-or-n-p) - -(setq auto-save-default nil) ;; don't auto save files -(setq auto-save-list-file-prefix nil) ;; no backups -(setq create-lockfiles nil) ;; don't use a lock file -(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs -(setq make-backup-files nil) ;; really no backups -(setq minibuffer-message-timeout 0.5) ;; How long to display an echo-area message -(setq next-screen-context-lines 5) ;; scroll 5 lines at a time -(setq require-final-newline t) ;; ensure newline exists at the end of the file -(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 column-number-mode t) ;; show column number in the mode line -(setq-default indent-tabs-mode nil) ;; turn off tab indentation -(setq-default cursor-type 'box) ;; cursor is a horizontal bar -(setq-default delete-by-moving-to-trash t) ;; delete files by moving them to the trash -(setq initial-scratch-message "") ;; empty scratch buffer -(setq garbage-collection-messages t) ;; log when the gc kicks in - -;; where to store cookies -(setq url-cookie-file (expand-file-name "var/url/cookies" user-emacs-directory)) - -(custom-set-variables - '(use-file-dialog nil) - '(use-dialog-box nil) - '(inhibit-startup-screen t) - '(inhibit-startup-message t) - '(inhibit-startup-echo-area-message t)) - -(setq user-full-name "Franck Cuny" - user-mail-address "franck@fcuny.net" - add-log-mailing-address "franck@fcuny.net") - -(customize-set-variable 'history-length 1000) -(customize-set-variable 'history-delete-duplicates t) - -(add-hook 'after-init-hook 'midnight-mode) - -(customize-set-variable 'save-place-forget-unreadable-files t) -(add-hook 'after-init-hook #'save-place-mode) - -(when (memq window-system '(mac ns)) - (require 'exec-path-from-shell) - (exec-path-from-shell-initialize)) - -(unless (and (fboundp 'server-running-p) - (server-running-p)) - (server-start)) - -(require 'yasnippet) - -;; I want the snippets under `etc' -(defvar my/yasnippets (expand-file-name "etc/snippets" user-emacs-directory)) - -(if (and (file-exists-p my/yasnippets) (not (member my/yasnippets yas-snippet-dirs))) - (setq yas--default-user-snippets-dir my/yasnippets)) - -;; the default (tab) conflicts with corfu for completion -(define-key yas-minor-mode-map (kbd "C-c y") #'yas-expand) - -(yas-global-mode 1) - -(provide 'my-settings) - -;;; my-settings.el ends here diff --git a/emacs/custom/my-text.el b/emacs/custom/my-text.el deleted file mode 100644 index 37f9773..0000000 --- a/emacs/custom/my-text.el +++ /dev/null @@ -1,53 +0,0 @@ -;;; my-text.el --- configures modes related to text -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - - -;; BUG: this is a work around for markdown-mode - without this, imenu -;; won't work in that mode, which is preventing efficient navigation. -;; The following link has more details: -;; https://github.com/jrblevin/markdown-mode/issues/578#issuecomment-1126380098 -(require 'comp) -(setq native-comp-deferred-compilation-deny-list '("markdown-mode\\.el$")) - -(require 'markdown-mode) -(require 'ispell) -(require 'abbrev) - -;;; settings -(setq ispell-program-name (executable-find "aspell")) -(setq ispell-dictionary "en_US") -(setq ispell-extra-args '("--camel-case")) - -(add-to-list 'auto-mode-alist - '("\\.\\(md\\|markdown\\)$" . markdown-mode) auto-mode-alist) - -;; use GitHub's markdown flavor for README files -(add-to-list 'auto-mode-alist '("README\\.md\\'" . gfm-mode)) - -(when (executable-find "pandoc") - (setq markdown-command "pandoc -f markdown -t html")) - -(setq only-global-abbrevs nil) -(setq abbrev-file-name (expand-file-name "var/abbrev_defs" user-emacs-directory)) -(let ((table text-mode-abbrev-table)) - (define-abbrev table "github" "GitHub") - (define-abbrev table "emacs" "Emacs")) - -;;; bindings - -;;; hooks -(add-hook 'text-mode-hook 'flyspell-mode) -(add-hook 'text-mode-hook 'goto-address-mode) - -(dolist (hook '(prog-mode-hook conf-mode-hook)) - (add-hook hook 'flyspell-prog-mode)) - -(dolist (hook '(text-mode-hook git-commit-mode-hook)) - (add-hook hook 'abbrev-mode)) - -(provide 'my-text) - -;;; my-text.el ends here diff --git a/emacs/custom/my-tramp.el b/emacs/custom/my-tramp.el deleted file mode 100644 index 897d48c..0000000 --- a/emacs/custom/my-tramp.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; my-tramp.el --- Configure tramp -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(customize-set-variable 'tramp-default-method "ssh") -(customize-set-variable 'tramp-histfile-override t) -(customize-set-variable 'tramp-ssh-controlmaster-options "-o ControlMaster=auto -o ControlPath='tramp.%%C'") - -(defcustom my/ssh-hosts '("192.168.0.1:9922" - "192.168.0.106") - "List of hosts I regularly connect to." - :type '(repeat string) - :group 'tramp) - -(defun my/ssh-cd-home () - "Prompt for an SSH host and open a DIRED buffer on that machine." - (interactive) - (let ((machine (completing-read "Machine: " my/ssh-hosts))) - (find-file (format "/ssh:%s:~" machine)))) - -(provide 'my-tramp) -;;; my-tramp.el ends here diff --git a/emacs/custom/my-tree-sitter.el b/emacs/custom/my-tree-sitter.el deleted file mode 100644 index d19362e..0000000 --- a/emacs/custom/my-tree-sitter.el +++ /dev/null @@ -1,21 +0,0 @@ -;;; my-tree-sitter.el --- configure emacs for tree-sitter -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;;; Code: - -(require 'tree-sitter) -(require 'tree-sitter-langs) - -;; enable tree-sitter mode for all supported major modes -(global-tree-sitter-mode) - -;; the minor mode tree-sitter-hl-mode provides the framework for syntax -;; highlighting. It overrides the regex-based highlighting provided by -;; font-lock-mode, using the syntax tree provided by tree-sitter-mode -(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode) - -(provide 'my-tree-sitter) - -;;; my-tree-sitter.el ends here diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el deleted file mode 100644 index 228baea..0000000 --- a/emacs/custom/my-ui.el +++ /dev/null @@ -1,94 +0,0 @@ -;;; my-ui.el --- configure UI elements -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -;; cleaning up the UI -(scroll-bar-mode -1) -(tool-bar-mode -1) -(menu-bar-mode -1) -(blink-cursor-mode -1) - -;;; no fringe on the right side -(set-fringe-mode '(8 . 0)) - -(when (memq window-system '(mac ns)) - (add-to-list 'default-frame-alist '(font . "Source Code Pro-15")) - (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))) - -(when (memq window-system '(x pgtk)) - (set-face-attribute 'default nil :font "Source Code Pro" :height 130) - ;; this is a fall back in the case we have Unicode characters. - ;; For example, with this settings, the following source is - ;; rendered correctly 😇 😀 and 🤢 - (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append)) - -(customize-set-variable 'display-time-24hr-format t) -(customize-set-variable 'display-time-day-and-date t) -(customize-set-variable 'display-time-format "%a %e %b, %H:%M") -(customize-set-variable 'display-time-interval 60) -(customize-set-variable 'display-time-default-load-average nil) -(customize-set-variable '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") - ("Asia/Calcutta" "Bangalore") - ("Asia/Tokyo" "Tokyo"))) - -;; the following setup only works with emacs >=28 I think -(when (boundp 'world-clock-list) - (setq world-clock-list t)) - -(when (boundp 'world-clock-time-format) - ;; UTC => 02:42 +0000 Wednesday 20 April - ;; Berkeley => 19:42 -0700 Tuesday 19 April - (setq world-clock-time-format "%R %z %A %d %B")) - -(when (boundp 'world-clock-timer-enable) - (setq world-clock-timer-enable t)) - -(when (boundp 'world-clock-timer-second) - (setq world-clock-timer-second 60)) - -;; Disable help mouse-overs for mode-line as they provide little to no benefits -(setq mode-line-default-help-echo nil - show-help-function nil) - -(setq display-buffer-alist - `( - ("\\*\\(.* # Help.*\\|Help\\|xref\\)\\*" ; See the hooks for `visual-line-mode' - (display-buffer-reuse-mode-window display-buffer-in-side-window) - (window-width . 0.35) - (side . left) - (slot . 0)) - ("\\*\\(Flymake diagnostics\\|Package-Lint\\).*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 0)) - ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|Flymake log\\|Async Shell Command\\)\\*" - (display-buffer-in-side-window) - (window-height . 0.16) - (side . top) - (slot . 2)) - ("\\*\\(wclock\\|slo-calculator\\).*" - (display-buffer-in-side-window) - (window-width . 0.35) - (side . left) - (slot . 0)))) - -(add-hook 'help-mode-hook 'visual-line-mode) - -(provide 'my-ui) -;;; my-ui.el ends here diff --git a/emacs/elisp/my-buffers.el b/emacs/elisp/my-buffers.el deleted file mode 100644 index 8c03905..0000000 --- a/emacs/elisp/my-buffers.el +++ /dev/null @@ -1,39 +0,0 @@ -;;; my-buffers.el --- Functions related to buffer manipulations -;;; Commentary: -;;; Code: - -(defun my/copy-whole-buffer () - "Select the buffer and copy it." - (interactive) - (save-excursion - (mark-whole-buffer) - (copy-region-as-kill 1 (buffer-size)))) - -(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)))))))) - -(defun my/uniquify-region-lines (beg end) - "Remove duplicate adjacent lines in region between BEG and END." - (interactive "*r") - (save-excursion - (goto-char beg) - (while (re-search-forward "^\\(.*\n\\)\\1+" end t) - (replace-match "\\1")))) - -(provide 'my-buffers) -;;; my-buffers.el ends here diff --git a/emacs/elisp/my-cheeseboard.el b/emacs/elisp/my-cheeseboard.el deleted file mode 100644 index 9713e14..0000000 --- a/emacs/elisp/my-cheeseboard.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; my-cheeseboard.el --- summary -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;; commentary: -;; As everybody knows, the best pizza in the world is at -;; cheeseboard[0]. I like to check during the week the pizzas for the -;; week and see if there are any we would like to have. This module -;; gets the list of pizzas for the week and display them in a buffer. -;; -;; [0] https://cheeseboardcollective.coop/ - -;;; Code: - -(require 'dom) - -(defconst my/cheeseboard-buffer "*cheeseboard-menu*" - "Name of the buffer for displaying the week's menu.") - -(defconst my/cheeseboard-url "https://cheeseboardcollective.coop/pizza/" - "URL to fetch to get the list of pizzas for the week.") - -(defun my/cheeseboard-menu () - "Display the list of pizzas for the week." - (interactive) - (let* ((dom (with-current-buffer (url-retrieve-synchronously my/cheeseboard-url) - (libxml-parse-html-region (point-min) (point-max)))) - ;; a class named `pizza-list' contains all the items for the - ;; week. they are wrapped in a `article' tag. - (menus (dom-by-tag (dom-by-class dom "pizza-list") 'article)) - (inhibit-read-only t) - (buffer-undo-list t)) - (pop-to-buffer my/cheeseboard-buffer) - (erase-buffer) - (insert (format "if you want to look at the menu on the website => %s\n\n" my/cheeseboard-url)) - (dolist (menu menus) - (my/pizza-of-the-day menu)) - (special-mode))) - -(defun my/pizza-of-the-day (menu) - "Print the pizzas for the day from the MENU." - (let* ((date (car (dom-strings (dom-by-tag (dom-by-class menu "date") 'p)))) - (pizza (dom-by-tag (dom-by-class menu "menu") 'p))) - (if (string= "The pizzeria is closed today." (nth 0 (dom-strings pizza))) - (insert (format "%s: cheeseboard is closed :(\n\n" (propertize date 'face 'italic))) - (insert (format "%s: 🍕 %s\n(note: %s, %s)\n\n" - (propertize date 'face 'italic) - (propertize (replace-regexp-in-string "\n" "" (nth 2 (dom-strings pizza))) 'face 'highlight) - (nth 0 (dom-strings pizza)) - (nth 1 (dom-strings pizza))))))) - -(provide 'my-cheeseboard) - -;;; my-cheeseboard.el ends here diff --git a/emacs/elisp/my-git-extra.el b/emacs/elisp/my-git-extra.el deleted file mode 100644 index 30fff78..0000000 --- a/emacs/elisp/my-git-extra.el +++ /dev/null @@ -1,50 +0,0 @@ -;;; my-git-extra.el --- Extra functions to work with git -;;; Commentary: -;;; Code: - -(require 'magit) -(require 'git-link) - -(defun my/clone-repo (url) - "Clone a repository in the workspace using URL." - (interactive "sURL:") - (let* ((repo-name (magit-clone--url-to-name url)) - (target-dir (concat "~/workspace/" repo-name))) - (magit-clone-regular url target-dir nil))) - -(defun my/sg-instance (hostname) - "Return the base URL for a sourcegraph instance based on HOSTNAME." - (cond ((string-match "cl\.fcuny\.net" hostname) (format "cs.fcuny.xyz/%s" hostname)) - (t (format "sourcegraph.rbx.com/%s" hostname)))) - -(defun my/git-link-sourcegraph (hostname dirname filename _branch commit start end) - "Create a link to sourcegraph given a HOSTNAME DIRNAME FILENAME _BRANCH COMMIT START and END." - (let ((sg-base-url (my/sg-instance hostname)) - ;; Use the default branch of the repository instead of the - ;; current one (we might be on a feature branch that is not - ;; available on the remote). - (main-branch (magit-main-branch)) - ;; repositories cloned with gerrit have a "a/" prefix which we - ;; need to remove, as it's not part of the repository name in - ;; sourcegraph. - (dirname (replace-regexp-in-string "a\/" "" dirname))) - (git-link-sourcegraph sg-base-url dirname filename main-branch commit start end))) - -(defun my/git-link-commit-sourcegraph (hostname dirname commit) - "Create the link to sourcegraph given a HOSTNAME DIRNAME and COMMIT." - (let ((sg-base-url (my/sg-instance hostname)) - (dirname (replace-regexp-in-string "a\/" "" dirname))) - (git-link-commit-sourcegraph sg-base-url dirname commit))) - -;; for work related repositories, open them in our instance of sourcegraph -(add-to-list 'git-link-remote-alist '("github\\.rbx\\.com" my/git-link-sourcegraph)) -(add-to-list 'git-link-commit-remote-alist '("github\\.rbx\\.com" my/git-link-work-sourcegraph)) - -;; for personal code I use cgit and gerrit -(add-to-list 'git-link-remote-alist '("git\\.fcuny\\.net" my/git-link-sourcegraph)) -(add-to-list 'git-link-remote-alist '("cl\\.fcuny\\.net" my/git-link-sourcegraph)) -(add-to-list 'git-link-commit-remote-alist '("git\\.fcuny\\.net" my/git-link-commit-sourcegraph)) -(add-to-list 'git-link-commit-remote-alist '("cl\\.fcuny\\.net" my/git-link-commit-sourcegraph)) - -(provide 'my-git-extra) -;;; my-git-extra.el ends here diff --git a/emacs/elisp/my-packages-extra.el b/emacs/elisp/my-packages-extra.el deleted file mode 100644 index de37752..0000000 --- a/emacs/elisp/my-packages-extra.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; my-packages-extra.el --- Provides additional functions related to -;;; packages - -;;; Commentary: - -;;; Code: - -(require 'package) - -;; Original idea: https://www.manueluberti.eu/emacs/2021/09/01/package-report/ -(defun my/package-report () - "Report total package counts grouped by archive." - (interactive) - (package-refresh-contents) - (my/display-package-report - (let* ((arch-pkgs (my/archive-packages)) - (counts (seq-sort-by #'cdr #'> (my/archive-counts arch-pkgs))) - (by-arch (seq-group-by #'car arch-pkgs))) - (concat - (format "Total packages: %s\n\n" (apply #'+ (mapcar #'cdr counts))) - (mapconcat - (lambda (archive) - (concat "• " - (format "%s (%s)" (car archive) (cdr archive)) - ": " - (mapconcat (lambda (ap-pair) (cdr ap-pair)) - (alist-get (car archive) by-arch) - ", "))) - counts - "\n\n"))))) - -(defun my/display-package-report (output) - "Display OUTPUT in a popup buffer." - (let ((buffer-name "*package-report*")) - (with-help-window buffer-name - (with-current-buffer buffer-name - (visual-line-mode 1) - (erase-buffer) - (insert output) - (goto-char (point-min)))))) - -(defun my/archive-packages () - "Return a list of (archive . package) cons cells." - (seq-reduce - (lambda (res package) - (let ((archive (package-desc-archive - (cadr (assq package package-archive-contents)))) - (pkg (symbol-name package))) - (push (cons archive pkg) res))) - (mapcar #'car package-alist) - nil)) - -(defun my/archive-counts (arch-pkgs) - "Return a list of cons cells from alist ARCH-PKGS. -The cars are package archives, the cdrs are the number of -packages installed from each archive." - (seq-reduce - (lambda (counts key) - (cons (cons key (+ 1 (or (cdr (assoc key counts)) 0))) - (assoc-delete-all key counts))) - (mapcar #'car arch-pkgs) - nil)) - -(provide 'my-packages-extra) -;;; my-packages-extra.el ends here diff --git a/emacs/elisp/my-strings.el b/emacs/elisp/my-strings.el deleted file mode 100644 index 40ad888..0000000 --- a/emacs/elisp/my-strings.el +++ /dev/null @@ -1,23 +0,0 @@ -;;; my-strings.el --- Functions related to strings manipulation -;;; Commentary: -;;; Code: - -(defun my/remove-sql-columns () - "Remove \"|\" from strings. -This is useful when I want to drop the column separator from some -text coming from a mysql query." - (interactive) - (while (search-forward-regexp "\s?|\s?") - (replace-match " "))) - -;; from https://karl-voit.at/2014/08/10/bookmarks-with-orgmode/ -(defun my/string-replace (this withthat in) - "Replace THIS with WITHTHAT' in the string IN." - (with-temp-buffer - (insert in) - (goto-char (point-min)) - (replace-string this withthat) - (buffer-substring (point-min) (point-max)))) - -(provide 'my-strings) -;;; my-strings.el ends here diff --git a/emacs/elisp/my-uptime.el b/emacs/elisp/my-uptime.el deleted file mode 100644 index 77c9957..0000000 --- a/emacs/elisp/my-uptime.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; my-uptime.el --- calculates uptime for SLOs - -;;; Commentary: - -;; Calculate how much downtime is allowed for different period of time -;; based on a given SLO. - -;;; Code: - -(defconst my-uptime/buffer-name "*slo-calculator*") - -(defconst my-uptime/seconds-per-hour 3600 - "Number of seconds in an hour.") -(defconst my-uptime/seconds-per-day (* my-uptime/seconds-per-hour 24) - "Number of seconds in a day.") -(defconst my-uptime/seconds-per-week (* my-uptime/seconds-per-day 7) - "Number of seconds in a week.") -(defconst my-uptime/seconds-per-month (* my-uptime/seconds-per-day 30) - "Number of seconds in a month.") -(defconst my-uptime/seconds-per-quarter (* my-uptime/seconds-per-month 3) - "Number of seconds in a quarter.") -(defconst my-uptime/seconds-per-year (* my-uptime/seconds-per-month 12) - "Number of seconds in a year.") - -(defun my/uptime-is (slo) - "Return the amount of allowed downtime for a given SLO." - (interactive "nSLO:") - (let* ((slo (cond ((< slo 0) 0) - ((> slo 100) 100) - (t slo))) - (allowed (/ (- (* 100 100) (* slo 100.0)) (* 100 100)))) - (my/uptime--message allowed slo))) - -(defun my/uptime--message (seconds slo) - "Insert buffer text with allowed downtime based on SECONDS (derived from SLO)." - (let ((inhibit-read-only t) - (buffer-undo-list t)) - (pop-to-buffer my-uptime/buffer-name) - (erase-buffer) - (insert (format "calculated allowed downtime for %s%% availability.\n" slo)) - (insert - (format "daily: %s\n" (format-seconds "%H %M %S" (seconds-to-time (* my-uptime/seconds-per-day seconds))))) - (insert - (format "weekly: %s\n" (format-seconds "%H %M %S" (seconds-to-time (* my-uptime/seconds-per-week seconds))))) - (insert - (format "monthly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-month seconds))))) - (insert - (format "quarterly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-quarter seconds))))) - (insert - (format "yearly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-year seconds)))))) - (special-mode)) - -(provide 'my-uptime) - -;;; my-uptime.el ends here diff --git a/emacs/elisp/my-web.el b/emacs/elisp/my-web.el deleted file mode 100644 index 4e86790..0000000 --- a/emacs/elisp/my-web.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; my-web.el --- Functions related to web interactions -;;; Commentary: -;;; Code: - -(require 'my-strings) - -(defun my/get-page-title (url) - "Make URL into an 'org-mode' link." - (let ((title)) - (with-current-buffer (url-retrieve-synchronously url) - (goto-char (point-min)) - (re-search-forward "<title>\\([^<]*\\)</title>" nil t 1) - (setq title (match-string 1)) - (goto-char (point-min)) - (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1) - (my/string-replace " " " " - (decode-coding-string title 'utf-8)) - (concat "[[" url "][" title "]]")))) - -(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?l=" language - "&type=code&q=" code)))) - -(provide 'my-web) -;;; my-web.el ends here diff --git a/emacs/elisp/my-work.el b/emacs/elisp/my-work.el deleted file mode 100644 index f0c59d8..0000000 --- a/emacs/elisp/my-work.el +++ /dev/null @@ -1,21 +0,0 @@ -;;; my-work.el --- Functions related to work -;;; Commentary: -;;; Code: - -(defun my/check-work-machine-p () - "Return t if this is a work machine." - (string-match "HQ\\.*" (system-name))) - -(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)))) - -(provide 'my-work) -;;; my-work.el ends here diff --git a/emacs/etc/elfeed.org b/emacs/etc/elfeed.org deleted file mode 100644 index a26b225..0000000 --- a/emacs/etc/elfeed.org +++ /dev/null @@ -1,93 +0,0 @@ -#+TITLE: list of feeds - -* Tools/Languages :elfeed:tech: -** entry-title: \(security\) :security:mustread: -** https://git.github.io/feed.xml -* Bay Area :elfeed:bayarea: -** https://48hills.org/feed/ -** https://oaklandside.org/feed/ -** https://www.berkeleyside.com/feed -** https://www.indybay.org/syn/generate_rss.php?include_posts=0&include_blurbs=1 -* Music :elfeed:music: -** https://southernlord.com/feed/ -** [[https://www.theredhandfiles.com/feed/]] -* Gaming :elfeed:games: -** https://www.rockpapershotgun.com/rss -* Bike :elfeed:bike: -** https://somafab.blogspot.com/feeds/posts/default -** https://bluelug.com/blog/feed/ -** https://theradavist.com/feed/ -** https://droppedchain.com/feed/ -* Aggregator :elfeed:news: -** entry-title: \(security\) :security:mustread: -** https://lwn.net/headlines/rss -** entry-title: \(emacs\|org-mode\) :emacs: -** https://lobste.rs/rss -* Blogs :elfeed:blog: -** entry-title: \(emacs\|org-mode\) :emacs: -** entry-title: \(security\) :security:mustread: -** https://0pointer.net/blog/index.rss20 :mustread: -** https://adamsimpson.net/rss.xml -** https://almad.blog/index.xml -** https://apenwarr.ca/log/rss.php :mustread: -** https://blog.benjojo.co.uk/rss.xml -** https://blog.filippo.io/rss/ -** https://latacora.micro.blog/feed.xml -** https://blog.fogus.me/feed/ -** https://blog.nelhage.com/atom.xml -** https://blog.separateconcerns.com/feed.atom -** https://brandur.org/articles.atom -** https://brooker.co.za/blog/rss.xml :mustread: -** https://bzg.fr/index.xml -** https://chrisdown.name/feed.xml -** https://christiantietze.de/feed.atom -** https://commaok.xyz/index.xml -** https://container42.com/atom.xml -** https://crawshaw.io/atom.xml -** https://danluu.com/atom.xml :mustread: -** https://danwang.co/feed/ -** https://eli.thegreenplace.net/feeds/all.atom.xml -** https://emacsredux.com/atom.xml -** https://endlessparentheses.com/atom.xml -** https://fabiensanglard.net/rss.xml -** https://fcuny.net/feed.xml -** https://ferd.ca/feed.rss -** https://gruchalski.com/rss.xml -** https://ianloic.com/feed/ -** https://jacobian.org/index.xml -** https://jvns.ca/atom.xml -** https://larlet.fr/david/log/ -** https://lars.ingebrigtsen.no/feed/ -** https://manueluberti.eu/feed.xml -** https://martinheinz.dev/rss/ -** https://matklad.github.io/feed -** https://matt-rickard.com/rss/ -** https://metaredux.com/feed.xml -** https://metebalci.com/index.xml -** https://michael.stapelberg.ch/feed.xml -** https://mjg59.dreamwidth.org/data/rss -** https://nedbatchelder.com/blog/rss.xml -** https://notes.eatonphil.com/rss.xml -** https://notes.neeasade.net/rss -** https://nullprogram.com/feed/ -** https://nwildner.com/index.xml -** https://oremacs.com/atom.xml -** https://research.swtch.com/feed.atom -** https://rjbs.cloud/feed.xml -** https://rm-rf.ca/index.xml -** https://sachachua.com/blog/category/emacs/feed -** https://scattered-thoughts.net/atom.xml -** https://spwhitton.name/blog/index.rss -** https://tonsky.me/blog/atom.xml -** https://tychoish.com/index.xml -** https://venam.nixers.net/blog/feed.xml -** https://vincent.bernat.ch/en/blog/atom.xml -** https://with-emacs.com/rss.xml -** https://www.brendangregg.com/blog/rss.xml :mustread: -** https://www.hillelwayne.com/index.xml -** https://www.masteringemacs.org/feed/ -** https://www.tbray.org/ongoing/ongoing.atom -** https://jack.wrenn.fyi/atom.xml -** https://www.tweag.io/rss.xml -* Reddit :elfeed:reddit: -* Mastodon :elfeed:mastodon: diff --git a/emacs/etc/interview.org b/emacs/etc/interview.org deleted file mode 100644 index dfb24b1..0000000 --- a/emacs/etc/interview.org +++ /dev/null @@ -1,11 +0,0 @@ -* %U %^{Candidate name} :interview: -:PROPERTIES: -:Created: %U -:PairingWith: %^{pairing with} -:Team: %^{which team} -:Position: %^{name of the position} -:END: -** Notes for the interview -** Feedback -** Concerns -** Outcome diff --git a/emacs/etc/new-project.org b/emacs/etc/new-project.org deleted file mode 100644 index 3d17d55..0000000 --- a/emacs/etc/new-project.org +++ /dev/null @@ -1,15 +0,0 @@ -* TODO %^{Project name} -DEADLINE: %^t -:PROPERTIES: -:STARTDATE: %u -:END: -%^{OUTCOME}p -%? -- [ ] Add project tags for context (e.g. work, personal) -- [ ] List specific tasks -- [ ] Schedule next actions from generated tasks -- [ ] Add links to wiki pages / tickets - -** Links -** Tasks -** Notes diff --git a/emacs/etc/snippets/emacs-lisp-mode/defun b/emacs/etc/snippets/emacs-lisp-mode/defun deleted file mode 100644 index 1c1282b..0000000 --- a/emacs/etc/snippets/emacs-lisp-mode/defun +++ /dev/null @@ -1,6 +0,0 @@ -# -*- mode: snippet -*- -# name: function -# key: d -# -- -(defun $1 ($2) -$0) \ No newline at end of file diff --git a/emacs/etc/snippets/emacs-lisp-mode/format b/emacs/etc/snippets/emacs-lisp-mode/format deleted file mode 100644 index 2bd648f..0000000 --- a/emacs/etc/snippets/emacs-lisp-mode/format +++ /dev/null @@ -1,5 +0,0 @@ -# -*- mode: snippet -*- -# name: format -# key: f -# -- -(format "$1" $0) \ No newline at end of file diff --git a/emacs/etc/snippets/emacs-lisp-mode/header b/emacs/etc/snippets/emacs-lisp-mode/header deleted file mode 100644 index b868f51..0000000 --- a/emacs/etc/snippets/emacs-lisp-mode/header +++ /dev/null @@ -1,18 +0,0 @@ -# -*- mode: snippet -*- -# name: header -# key: header -# -- -;;; `(file-name-nondirectory (buffer-file-name))` --- ${1:summary} -*- lexical-binding: t -*- -;; Author: Franck Cuny <franck@fcuny.net> - -;;; Commentary: - -;; ${2:commentary} - -;;; Code: - -${3:(message "Hello World!")} - -(provide '`(file-name-nondirectory (buffer-file-name))`) - -;;; `(file-name-nondirectory (buffer-file-name))` ends here \ No newline at end of file diff --git a/emacs/etc/snippets/go-mode/method b/emacs/etc/snippets/go-mode/method deleted file mode 100644 index 78e61fc..0000000 --- a/emacs/etc/snippets/go-mode/method +++ /dev/null @@ -1,8 +0,0 @@ -# -*- mode: snippet -*- -# name: method -# key: method -# -- -// $2 ${5:...} -func (${1:recv}) ${2:name}(${3:args}) $4 { - $0 -} \ No newline at end of file diff --git a/emacs/etc/snippets/go-mode/test b/emacs/etc/snippets/go-mode/test deleted file mode 100644 index 3140ec2..0000000 --- a/emacs/etc/snippets/go-mode/test +++ /dev/null @@ -1,7 +0,0 @@ -# -*- mode: snippet -*- -# name: test -# key: test -# -- -func Test$1(t *testing.T) { - $0 -} \ No newline at end of file diff --git a/emacs/etc/snippets/go-mode/type b/emacs/etc/snippets/go-mode/type deleted file mode 100644 index d8b2004..0000000 --- a/emacs/etc/snippets/go-mode/type +++ /dev/null @@ -1,8 +0,0 @@ -# -*- mode: snippet -*- -# name: type -# key: type -# -- -// $3 -type $1 $2 { - $0 -} \ No newline at end of file diff --git a/emacs/etc/snippets/markdown-mode/new-blog-entry b/emacs/etc/snippets/markdown-mode/new-blog-entry deleted file mode 100644 index ad6a53f..0000000 --- a/emacs/etc/snippets/markdown-mode/new-blog-entry +++ /dev/null @@ -1,12 +0,0 @@ -# -*- mode: snippet -*- -# name: blogtop -# key: blogtop -# -- ---- -title: ${1:Title} -date: `(format-time-string "%Y-%m-%d" nil nil)` -tags: - - $2 ---- - -$0 diff --git a/emacs/etc/snippets/org-mode/begin b/emacs/etc/snippets/org-mode/begin deleted file mode 100644 index 15d66d8..0000000 --- a/emacs/etc/snippets/org-mode/begin +++ /dev/null @@ -1,8 +0,0 @@ -# -*- mode: snippet -*- -# name: begin -# key: begin -# uuid: begin -# -- -#+begin_${1:type} ${2:options} -`%`$0 -#+end_$1 diff --git a/emacs/etc/snippets/org-mode/srcsh b/emacs/etc/snippets/org-mode/srcsh deleted file mode 100644 index 0ced1f6..0000000 --- a/emacs/etc/snippets/org-mode/srcsh +++ /dev/null @@ -1,7 +0,0 @@ -# -*- mode: snippet -*- -# name: srcsh -# key: <ssh -# -- -#+begin_src sh -$0 -#+end_src \ No newline at end of file diff --git a/emacs/etc/snippets/python-mode/function b/emacs/etc/snippets/python-mode/function deleted file mode 100644 index ffde801..0000000 --- a/emacs/etc/snippets/python-mode/function +++ /dev/null @@ -1,6 +0,0 @@ -# -*- mode: snippet -*- -# name: function -# key: fn -# -- -def $1($2): - $3 \ No newline at end of file diff --git a/emacs/etc/snippets/python-mode/main b/emacs/etc/snippets/python-mode/main deleted file mode 100644 index b1564a8..0000000 --- a/emacs/etc/snippets/python-mode/main +++ /dev/null @@ -1,9 +0,0 @@ -# -*- mode: snippet -*- -# name: main -# key: main -# -- -def main(): - pass - -if __name__ == "__main__": - main() \ No newline at end of file diff --git a/emacs/etc/weekly_review.org b/emacs/etc/weekly_review.org deleted file mode 100644 index a7d2581..0000000 --- a/emacs/etc/weekly_review.org +++ /dev/null @@ -1,40 +0,0 @@ -* %U Review :review: -** Get Clear [0/3] -- [ ] Collect Loose Papers and Materials. -- [ ] Get "IN" to Zero: - - [ ] Papers - - [ ] Physical Notebook - - [ ] Physical Objects - - [ ] Text Messages - - [ ] Email Inbox - - [ ] [[https://read.amazon.com/kp/notebook][Kindle highlights]] - - [ ] Browser Tabs - - [ ] [[file:~/Downloads][Downloads]] Folder - - [ ] [[file:~/Desktop][Desktop]] Folder -- [ ] Empty Your Head: New projects, tasks, waiting-fors, someday/maybes? -** Get Current [0/7] -- [ ] Review Action Lists -#+BEGIN_SRC emacs-lisp - (progn - (org-agenda nil "a") - (org-agenda-day-view)) -#+END_SRC -- [ ] Archive completed or inactive projects -- [ ] Review calendar data -- [ ] Review Upcoming Calendar -- [ ] Review Waiting For List -- [ ] Review Project (and Larger Outcome) Lists -- [ ] Review Stuck Projects -- [ ] Review Any Relevant Checklists -** Get Creative [0/2] -- [ ] Review Someday Maybe List -- [ ] Be Creative and Courageous -** Journal -*** How are you doing right now? -*** What went well this week? -*** What didn't go so well this week? -*** Did I learn anything important this week? -*** Is there anything I can tweak, simplify, or eliminate? -*** What is currently holding me back? -*** What urgent questions do I have? -*** What do I feel grateful for in my life and work/school? diff --git a/emacs/init.el b/emacs/init.el deleted file mode 100644 index 3a24cdc..0000000 --- a/emacs/init.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; init.el --- Initialize my Emacs configuration -;;; Commentary: - -;;; Code: - -;; store all the customizations into that file. if the file does not -;; exists, we create an empty file, and then we load it. -(setq custom-file (expand-file-name "var/custom.el" user-emacs-directory)) -(when (not (file-exists-p custom-file)) - (write-region "" nil custom-file)) -(load custom-file) - -(invert-face 'default) - -(setq gc-cons-threshold 64000000) - -;; configure straight to manage packages - -(add-to-list 'load-path (expand-file-name "custom/" user-emacs-directory)) -(add-to-list 'load-path (expand-file-name "elisp/" user-emacs-directory)) - -;; run package installation -(require 'my-packages) -(my/install-packages) - -(require 'envrc) -(envrc-global-mode) - -(require 'my-settings) -(require 'my-ui) -(require 'my-dired) -(require 'my-navigation) -(require 'my-completion) -(require 'my-edit) -(require 'my-text) -(require 'my-git) -(require 'my-org) -(require 'my-eshell) -(require 'my-tramp) -(require 'my-elfeed) - -(require 'my-flymake) -(require 'my-eldoc) -(require 'my-conf) -(require 'my-prog) -(require 'my-tree-sitter) -(require 'my-lsp) -(require 'my-lang-go) -(require 'my-lang-nix) -(require 'my-lang-python) -(require 'my-lang-rust) - -(require 'my-buffers) -(require 'my-git-extra) -(require 'my-strings) -(require 'my-web) -(require 'my-work) -(require 'my-uptime) -(require 'my-cheeseboard) -(require 'my-packages-extra) - -;;; init.el ends here |