The .emacs file in home directory should only contain
(load-file "~/emacs-config/bootstrap.el")where the path to bootstrap.el is adjusted to wherever you cloned this repo. This will also automatically pull the latest version of the config on startup, unless you forbid it with
(setq config-no-auto-update t)(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
(package-initialize)Inspired by ogbe.net and Your Text Editor Is Malware.
(setq tls-checktrust t)
(setq gnutls-verify-error t)(defmacro k-time (&rest body)
"Measure and return the time it takes evaluating BODY."
`(let ((time (current-time)))
,@body
(float-time (time-since time))))
;; When idle for 30sec run the GC no matter what.
(defvar k-gc-timer
(run-with-idle-timer 30 t
(lambda ()
(message "Garbage Collector has run for %.06fsec"
(k-time (garbage-collect))))))
;; Set garbage collection threshold to 1GB.
(setq gc-cons-threshold #x40000000)
;; Set garbage collection to 20% of heap
(setq gc-cons-percentage 0.2)And its dependencies if needed.
(mapc
(lambda (package)
(if (not (package-installed-p package))
(progn
(package-refresh-contents)
(package-install package))))
'(use-package diminish bind-key))And force the install of missing packages.
(eval-when-compile
(require 'use-package))
(require 'diminish)
(require 'bind-key)
(setq use-package-always-ensure t)(use-package vertico
:custom
(vertico-count 30) ;; Show more candidates
:init
(vertico-mode))
(define-key vertico-map (kbd "C-l") 'vertico-directory-delete-word)(use-package recentf
:init (recentf-mode))(use-package orderless
:custom
(completion-styles '(orderless basic))
(completion-category-defaults nil)
(completion-category-overrides '((file (styles partial-completion)))))(defun ab/select-n-words-forward (n)
(save-excursion
(let ((start (point))
(end))
(forward-word n)
(setq end (point))
(buffer-substring-no-properties start end))))
(defun ab/consult-candidates ()
(list (word-at-point)
(ab/select-n-words-forward 2)
(ab/select-n-words-forward 3)))
(use-package consult
:bind (("C-x r l" . consult-bookmark)
("C-c s" . consult-line)
("C-x b" . consult-buffer)
("C-c C-i" . consult-imenu))
:config
(consult-customize
consult-line
:history nil
:add-history (ab/consult-candidates)))(use-package marginalia
:bind (:map minibuffer-local-map
("M-A" . marginalia-cycle))
:init
(marginalia-mode))For now it’s just git, but can add more systems as necessary.
Best git client
(use-package magit
:bind (("C-x g" . magit-status)
("C-c g" . magit-file-dispatch)))For interactions with github.
(use-package forge)(use-package git-timemachine)For CircleCI integration
(use-package magit-circleci
:config (magit-circleci-mode))(setq user-full-name "Adrien Brochard"
calendar-latitude 40.7
calendar-longitude -73.98
calendar-location-name "New York, NY")(defun generate-scratch-buffer ()
"Create and switch to a temporary scratch buffer with a random
name."
(interactive)
(switch-to-buffer (make-temp-name "scratch-")))(defun sudo ()
"Use TRAMP to `sudo' the current buffer"
(interactive)
(when buffer-file-name
(find-alternate-file
(concat "/sudo:root@localhost:"
buffer-file-name))))This is regexp based
(defun replace-token (token)
"Replace JSON web token for requests"
(interactive "sEnter the new token: ")
(save-excursion
(goto-char (point-min))
(while (re-search-forward "Bearer .*\"" nil t)
(replace-match (concat "Bearer " token "\"")))))I like this better than the one in dired+
(eval-after-load "dired"
'(progn
(define-key dired-mode-map "F" 'my-dired-find-file)
(defun my-dired-find-file (&optional arg)
"Open each of the marked files, or the file under the point, or when prefix arg, the next N files "
(interactive "P")
(let* ((fn-list (dired-get-marked-files nil arg)))
(mapc 'find-file fn-list)))))Thanks to https://github.com/purcell/emacs.d/blob/master/lisp/init-utils.el#L78
(defun browse-current-file ()
"Open the current file as a URL using `browse-url'."
(interactive)
(let ((file-name (buffer-file-name)))
(if (and (fboundp 'tramp-tramp-file-p)
(tramp-tramp-file-p file-name))
(error "Cannot open tramp file")
(browse-url (concat "file://" file-name)))))This works well on short text, too much and it can block the system
(use-package sgml-mode)
(defun reformat-xml ()
(interactive)
(save-excursion
(sgml-pretty-print (point-min) (point-max))
(indent-region (point-min) (point-max))))(defun refill-paragraphs ()
"fill individual paragraphs with large fill column"
(interactive)
(let ((fill-column 100000))
(fill-individual-paragraphs (point-min) (point-max))))Thanks to http://emacsredux.com/blog/2013/03/27/copy-filename-to-the-clipboard/
(defun copy-filename ()
"Copy the current buffer file name to the clipboard."
(interactive)
(let ((filename (if (equal major-mode 'dired-mode)
default-directory
(buffer-file-name))))
(when filename
(kill-new filename)
(message "Copied buffer file name '%s' to the clipboard." filename))))I put a double space in between what I want to align and call this:
(defun align-docstring ()
"Align lines by double space"
(interactive)
(align-regexp (region-beginning) (region-end) "\\(\\s-*\\) " 1 1 t))(defun rename-local-var (name)
(interactive "sEnter new name: ")
(let ((var (word-at-point)))
(mark-defun)
(replace-string var name nil (region-beginning) (region-end))))I miss that from Vim
(defun increment-number-at-point ()
(interactive)
(skip-chars-backward "0-9")
(or (looking-at "[0-9]+")
(error "No number at point"))
(replace-match (number-to-string (1+ (string-to-number (match-string 0))))))
(defun decrement-number-at-point ()
(interactive)
(skip-chars-backward "0-9")
(or (looking-at "[0-9]+")
(error "No number at point"))
(replace-match (number-to-string (- (string-to-number (match-string 0)) 1))))Before Emacs 25.1
(defun comment-line ()
(interactive)
(save-excursion
(end-of-line)
(set-mark (point))
(beginning-of-line)
(if (comment-only-p (region-beginning) (region-end))
(uncomment-region (region-beginning) (region-end))
(comment-region (region-beginning) (region-end)))))(defun edit-config-file ()
(interactive)
(find-file (concat config-load-path "configuration.org")))This uses mutt.
(defun email-selection ()
(interactive)
(copy-region-as-kill (region-beginning) (region-end))
(let ((tmp-file (concat "/tmp/" (buffer-name (current-buffer))))
(recipient (read-string "Enter a recipient: "))
(subject (read-string "Enter a subject: ")))
(find-file tmp-file)
(yank)
(save-buffer)
(kill-buffer (current-buffer))
(shell-command (concat "mutt -s \"" subject "\" " recipient " < " tmp-file))
(shell-command (concat "rm -f " tmp-file)))
(message "Sent!"))(defun move-file ()
"Write this file to a new location, and delete the old one."
(interactive)
(let ((old-location (buffer-file-name)))
(call-interactively #'write-file)
(when old-location
(delete-file old-location))))(defun insert-filename ()
(interactive)
(insert (read-file-name "File:")))(defun insert-relative-filename ()
(interactive)
(insert (file-relative-name (read-file-name "File: "))))(defun format-function-parameters ()
"Turn the list of function parameters into multiline."
(interactive)
(beginning-of-line)
(search-forward "(" (line-end-position))
(newline-and-indent)
(while (search-forward "," (line-end-position) t)
(newline-and-indent))
(end-of-line)
(c-hungry-delete-forward)
(insert " ")
(search-backward ")")
(newline-and-indent))Thanks to Howard https://github.com/howardabrams/dot-files/blob/master/emacs-eshell.org
(defun eshell-here ()
"Opens up a new shell in the directory associated with the
current buffer's file. The eshell is renamed to match that
directory to make multiple eshell windows easier."
(interactive)
(let* ((height (/ (window-total-height) 3)))
(split-window-vertically (- height))
(other-window 1)
(eshell "new")
(insert (concat "ls"))
(eshell-send-input)))
(bind-key "C-!" 'eshell-here)And copy to clipboard
(defun relative-pwd ()
(interactive)
(let* ((prj (cdr (project-current)))
(current-file buffer-file-truename)
(prj-name (file-name-as-directory (file-name-nondirectory (directory-file-name prj))))
(output (concat prj-name (file-relative-name current-file prj))))
(kill-new output)
(message output)))(add-hook 'git-commit-setup-hook
'(lambda ()
(let ((has-ticket-title (string-match "^[A-Z]+-[0-9]+"
(magit-get-current-branch)))
(words (s-split-words (magit-get-current-branch))))
(if has-ticket-title
(insert (format "[%s-%s] " (car words) (car (cdr words))))))))(defun what-is-my-ip ()
(interactive)
(message "IP: %s"
(with-current-buffer (url-retrieve-synchronously "https://api.ipify.org")
(buffer-substring (+ 1 url-http-end-of-headers) (point-max)))))Thanks to whatthecommit.com
(defun what-the-commit ()
(interactive)
(insert
(with-current-buffer
(url-retrieve-synchronously "http://whatthecommit.com")
(re-search-backward "<p>\\([^<]+\\)\n<\/p>")
(match-string 1))))(defun insta-kill-buffer ()
(interactive)
(kill-buffer))
(global-set-key (kbd "C-z") 'insta-kill-buffer)(defun toggle-presentation ()
"Toggle presentation features, like font increase."
(interactive)
(let ((regular-fontsize 140)
(presentation-fontsize 240))
(if (equal (face-attribute 'default :height) regular-fontsize)
(set-face-attribute 'default nil :height presentation-fontsize)
(set-face-attribute 'default nil :height regular-fontsize))))Taken from Jonathan Arkell
(defun flip-table ()
"(╯°□°）╯︵ ┻━┻ "
(interactive)
(message "( °_°） ┬──┬ ")
(sleep-for 0 500)
(message "(╯°□°）╯︵ ┻━━┻ ")
(kill-new "(╯°□°）╯︵ ┻━━┻ "))(defun mac-run-applescript (script)
"Run SCRIPT in applescript."
(shell-command (format "osascript -e '%s'" script)))
(defun mac-notify (body &optional title)
"Show notification for BODY with TITLE."
(mac-run-applescript (format "display notification \"%s\" with title \"%s\""
body (or title "Notification"))))
;; (mac-notify "test body")
(defun mac-switch-theme ()
"Switch mac to dark/light theme on toggle."
(interactive)
(mac-run-applescript "tell application \"System Events\"
tell appearance preferences
set dark mode to not dark mode
end tell
end tell"))(defun markdown-toc ()
(interactive)
(save-excursion
(beginning-of-buffer)
(let ((output ""))
(while (re-search-forward "^\\(#\\{2,\\}\\) \\(.*\\)" (max-char) t)
(setq output
(concat output
(format "%s- [%s](#%s)\n"
(replace-regexp-in-string "#" " " (substring (match-string 1) 2))
(match-string 2)
(replace-regexp-in-string "_" "-" (s-snake-case (match-string 2)))))))
(kill-new output))))
(defun org-toc ()
(interactive)
(save-excursion
(beginning-of-buffer)
(let ((output "")
(i 1))
(while (re-search-forward "* \\(.*\\)" (max-char) t)
(setq output
(concat output
(format "%s. [[#%s][%s]]\n" i (replace-regexp-in-string " " "-" (downcase (match-string 1))) (match-string 1))))
(setq i (+ 1 i)))
(kill-new output))))Useful if file changed on disk
(define-key global-map (kbd "C-c r") 'revert-buffer)(define-key global-map (kbd "C-c x") 'eval-buffer)
(define-key global-map (kbd "C-c X") 'eval-region)(global-set-key (kbd "<home>") 'beginning-of-buffer)
(global-set-key (kbd "<end>") 'end-of-buffer)(global-set-key (kbd "C-c q") 'auto-fill-mode)(global-set-key (kbd "C-c d") 'c-hungry-delete-forward)(global-set-key (kbd "C-c +") 'increment-number-at-point)
(global-set-key (kbd "C-c -") 'decrement-number-at-point)(global-set-key (kbd "C-x C-;") 'comment-line)(use-package f)
(use-package org)
(setq org-directory "~/org/")
(setq org-agenda-files '("~/org"))(defun org-file-path (filename)
"Return the absolute address of an org file, given its relative name."
(concat (file-name-as-directory org-directory) filename))
(defun org-find-file ()
"Quickly open any org files."
(interactive)
(find-file (org-file-path (completing-read "Select your org file: " (directory-files org-directory nil "\.org$")))))
(defun org-eng-notebook ()
"Quickly open my engineering notebook and scan the headlines."
(interactive)
(let ((notebook (org-file-path "eng-notebook.org"))
(entries '()))
(find-file-other-window notebook)
(setq entries (org-element-map (org-element-parse-buffer) 'headline
(lambda (headline)
(cons (org-element-property :raw-value headline) (org-element-property :begin headline)))))
(goto-char (assoc-default (completing-read "Eng entry: " entries) entries))
(org-show-subtree)))(setq org-src-fontify-natively t)(setq org-src-window-setup 'split-window-right)(require 'color)
(if (display-graphic-p)
(set-face-attribute 'org-block nil :background
(color-darken-name
(face-attribute 'default :background) 3)))(define-key org-mode-map (kbd "C-c a") 'org-agenda)(setq org-default-notes-file (concat org-directory "/notes.org"))
(define-key global-map "\C-cc" 'org-capture)(setq org-todo-keywords
'((sequence "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c@)")))
(setq org-todo-keyword-faces
'(("WAIT" . "yellow")
("CANCELED" . (:foreground "blue" :weight bold))))(add-hook 'org-mode-hook 'flyspell-mode)
(add-hook 'text-mode-hook 'flyspell-mode)Get additional languages? Load them all
(require 'ob-js)
(org-babel-do-load-languages
(quote org-babel-load-languages)
(quote ((emacs-lisp . t)
(dot . t)
(plantuml . t)
(python . t)
(gnuplot . t)
(shell . t)
(org . t)
(latex . t)
(haskell . t)
(js .t))))Make org files a bit more readable
(use-package org-bullets
:config (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))(setq org-startup-with-inline-images t)(require 'ox-md)(global-set-key (kbd "<f5>") 'org-find-file)(use-package org-journal
:custom (org-journal-dir "~/org/journal" "Set journal location"))(setq org-catch-invisible-edits 'show-and-error)Thanks to emacs 29
(with-eval-after-load 'org
(setq yank-media--registered-handlers '(("image/.*" . #'org-mode--image-yank-handler))))
(yank-media-handler "image/.*" #'org-mode--image-yank-handler)
(defun org-mode--image-yank-handler (type image)
(let ((file (read-file-name (format "Save %s image to: " type))))
(when (file-directory-p file)
(user-error "%s is a directory"))
(when (and (file-exists-p file)
(not (yes-or-no-p (format "%s exists; overwrite?" file))))
(user-error "%s exists"))
(with-temp-buffer
(set-buffer-multibyte nil)
(insert image)
(write-region (point-min) (point-max) file))
(insert (format "[[file:%s]]\n" (file-relative-name file)))))Uses elfeed and elfeed-org
(use-package elfeed
:bind ("C-x w" . elfeed))
(use-package elfeed-org
:config
(setq rmh-elfeed-org-files (list (concat config-load-path "elfeed.org")))
(elfeed-org))The last line uses the elfeed.org file to register the feeds.
(toggle-frame-maximized)(tool-bar-mode -1)
(menu-bar-mode -1)(scroll-bar-mode -1)And set it in emacs-lisp mode
(setq inhibit-startup-message t)
(setq initial-major-mode 'emacs-lisp-mode)(setq initial-scratch-message nil)Aweful atrocious noise on Windows
(setq visible-bell nil)(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time
(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
(setq auto-window-vscroll nil)(setq confirm-kill-emacs 'y-or-n-p)(when window-system
(global-hl-line-mode))(global-set-key [mouse-8] 'switch-to-prev-buffer)
(global-set-key [mouse-9] 'switch-to-next-buffer)Inspired from https://github.com/technomancy/better-defaults
(use-package dabbrev
:diminish abbrev-mode)
(global-set-key (kbd "M-/") 'hippie-expand)(global-set-key (kbd "C-s") 'isearch-forward-regexp)
(global-set-key (kbd "C-r") 'isearch-backward-regexp)
(global-set-key (kbd "C-M-s") 'isearch-forward)
(global-set-key (kbd "C-M-r") 'isearch-backward)(setq backup-directory-alist `(("." . ,(concat user-emacs-directory
"backups"))))(fset 'yes-or-no-p 'y-or-n-p)(setq tags-revert-without-query 1)(put 'narrow-to-region 'disabled nil)(setq mac-command-modifier 'control)From https://zck.org/hide-emacs-customize
(setq custom-file "~/.emacs.d/custom.el")
(when (file-exists-p custom-file)
(load custom-file))Customized light and dark themes. Load light by default.
(use-package flatui-theme)
(use-package dracula-theme)
(defun disable-all-themes ()
"Disable all enabled custom themes."
(mapc #'disable-theme custom-enabled-themes))
(defun load-light-theme ()
"Load light theme."
(interactive)
(disable-all-themes)
(load-theme 'flatui t)
;; Mode-line customization
(set-face-background 'mode-line "medium purple")
(set-face-background 'mode-line-inactive "#212020")
(custom-set-faces
'(mode-line ((t (:background "medium purple" :foreground "white"))))
'(mode-line-buffer-id ((t (:foreground "white"))))
'(mode-line-inactive ((t (:background "dark grey" :foreground "medium purple"))))))
(defun load-dark-theme ()
"Load dark theme."
(interactive)
(disable-all-themes)
(load-theme 'dracula t)
;; Mode-line Customization
(set-face-background 'mode-line "#510370")
(set-face-background 'mode-line-inactive "#212020")
(custom-set-faces
'(mode-line ((t (:background "#510370" :foreground "white"))))))
(load-light-theme)(setq-default mode-line-format '("%e"
mode-line-front-space
" "
mode-line-modified
" "
"%[" mode-line-buffer-identification "%]"
" "
"L%l"
" "
mode-line-modes
mode-line-misc-info
projectile-mode-line
" "
(:propertize " " display ((space :align-to (- right 14)))) ;; push to the right side
(vc-mode vc-mode)
mode-line-end-spaces))(use-package minions
:config (minions-mode 1))Use the Hack font from chrissimpkins
(if (condition-case nil
(x-list-fonts "Hack")
(error nil))
(progn
(add-to-list 'default-frame-alist '(font . "Hack"))
(set-face-attribute 'default nil :font "Hack")))Trying to make it adapt to the OS. There is surely a better way to do this.
(if (eq system-type 'windows-nt)
(progn
(setenv "PATH" (concat "C:\\cygwin64\\bin\\"
path-separator
(getenv "PATH")))
)
(progn
(use-package exec-path-from-shell
:config (exec-path-from-shell-copy-env "PATH"))
)
)Because Windows sucks I have to do this to use flyspell
(if (eq system-type 'windows-nt)
(progn
(add-to-list 'exec-path "C:/Aspell/bin/")
(setq ispell-program-name "aspell")
(require 'ispell)))I use yasnippet a lot.
(use-package yasnippet
:diminish yas-minor-mode
:config (yas-global-mode 1))And also my package org-sync-snippets to keep my snippets into a single file under version control
(use-package org-sync-snippets
:config (setq org-sync-snippets-org-snippets-file
(concat (file-name-as-directory config-load-path) "snippets.org")))Auto-yasnippet really comes in handy at times.
(use-package auto-yasnippet)
(global-set-key (kbd "C-c e") #'aya-expand)(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq tab-width 4)(setq require-final-newline t)(add-hook 'before-save-hook 'delete-trailing-whitespace)(setq-default buffer-file-coding-system 'utf-8-unix)
(setq-default default-buffer-file-coding-system 'utf-8-unix)
(set-default-coding-systems 'utf-8-unix)
(prefer-coding-system 'utf-8-unix)Thanks to magnars
(defvar yank-indent-modes '(php-mode js2-mode)
"Modes in which to indent regions that are yanked (or yank-popped)")
(defvar yank-advised-indent-threshold 1000
"Threshold (# chars) over which indentation does not automatically occur.")
(defun yank-advised-indent-function (beg end)
"Do indentation, as long as the region isn't too large."
(if (<= (- end beg) yank-advised-indent-threshold)
(indent-region beg end nil)))
(defadvice yank (after yank-indent activate)
"If current mode is one of 'yank-indent-modes, indent yanked text (with prefix arg don't indent)."
(if (and (not (ad-get-arg 0))
(--any? (derived-mode-p it) yank-indent-modes))
(let ((transient-mark-mode nil))
(yank-advised-indent-function (region-beginning) (region-end)))))
(defadvice yank-pop (after yank-pop-indent activate)
"If current mode is one of 'yank-indent-modes, indent yanked text (with prefix arg don't indent)."
(if (and (not (ad-get-arg 0))
(member major-mode yank-indent-modes))
(let ((transient-mark-mode nil))
(yank-advised-indent-function (region-beginning) (region-end)))))
(defun yank-unindented ()
(interactive)
(yank 1))(setq comment-start "#")So I can comment code from an org-mode buffer
(use-package poporg
:bind (("C-c '" . poporg-dwim)))(use-package prog-fill
:bind (("M-q" . prog-fill)))(show-paren-mode 1)
(electric-pair-mode 1)(use-package paradox
:custom
(paradox-execute-asynchronously t)
:config
(paradox-enable))(use-package helpful
:bind (("C-h f" . helpful-callable)
("C-h v" . helpful-variable)
("C-h k" . helpful-key)
("C-h F" . helpful-function)
("C-h C" . helpful-command)))(use-package elisp-demos
:config (advice-add 'helpful-update
:after #'elisp-demos-advice-helpful-update))(use-package avy
:bind (("C-c SPC" . avy-goto-char-2)
("M-g f" . avy-goto-line)
("M-g w" . avy-goto-word-1)))Super nice to switch between frames and buffers
(use-package win-switch
:bind ("C-x o" . win-switch-dispatch)
:config
(setq win-switch-provide-visual-feedback t)
(setq win-switch-feedback-background-color "purple")
(setq win-switch-feedback-foreground-color "white")
(win-switch-setup-keys-default))Very nice if you don’t have a cheat sheet at hand
(use-package which-key
:diminish which-key-mode
:config (which-key-mode 1))(winner-mode 1)But with a margin of 5
(use-package smooth-scrolling
:config
(smooth-scrolling-mode 1)
(setq smooth-scroll-margin 5))(use-package neotree)(use-package ibuffer-vc)
(use-package ibuffer-git)
(define-key global-map (kbd "C-x C-b") 'ibuffer)Not all the time, but handy.
(use-package minimap
:config
(setq minimap-window-location "right")
(setq minimap-major-modes '(prog-mode org-mode)))(use-package rotate
:config (global-set-key (kbd "C-|") 'rotate-layout))(use-package anzu
:config (global-anzu-mode +1)
(setq anzu-mode-lighter ""))(use-package hamburger-menu
:config (setq mode-line-front-space 'hamburger-menu-mode-line))Great to fold text
(use-package origami
:config
(global-set-key (kbd "C-c n o") 'origami-open-node)
(global-set-key (kbd "C-c n c") 'origami-close-node)
(global-set-key (kbd "C-c n a") 'origami-open-all-nodes)
(global-set-key (kbd "C-c n u") 'origami-undo)
(global-set-key (kbd "C-c n n") 'origami-show-only-node)
(global-set-key (kbd "C-c n TAB") 'origami-recursively-toggle-node))To manage window configuration
(use-package eyebrowse
:config (eyebrowse-mode t))Useful to edit multiple similar lines
(use-package multiple-cursors
:bind (("C-S-c C-S-c" . mc/edit-lines)
("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-c C-<" . mc/mark-all-like-this)
("C-S-<mouse-1>" . mc/add-cursor-on-click)))(use-package zzz-to-char
:bind ("M-z" . zzz-up-to-char))(use-package whole-line-or-region
:diminish whole-line-or-region-global-mode
:config (whole-line-or-region-global-mode t))And add my personal twist to it.
(use-package viking-mode
:diminish viking-mode
:config
(viking-global-mode)
(setq viking-greedy-kill nil)
(setq viking-enable-region-kill t)
(setq viking-kill-functions (list '(lambda()
(if (region-active-p)
(kill-region (region-beginning) (region-end))
(delete-char 1 t)))
'(lambda()
(insert (pop kill-ring)) ;; insert the char back
(kill-new "") ;; start a new entry in the kill-ring
(viking-kill-word)
(kill-append " " nil)) ;; append the extra space
'viking-kill-line-from-point
'viking-kill-line
'viking-kill-paragraph
'viking-kill-buffer)))(use-package undo-tree
:diminish undo-tree-mode
:config
(global-undo-tree-mode t)
(setq undo-tree-visualizer-diff t)
(setq undo-tree-history-directory-alist `(("." . ,(concat user-emacs-directory "undo-history")))))Sweet minor mode for providing visual feedback
(use-package volatile-highlights
:diminish volatile-highlights-mode
:config
(vhl/define-extension 'undo-tree 'undo-tree-yank 'undo-tree-move)
(vhl/install-extension 'undo-tree)
(volatile-highlights-mode t))(use-package ciel
:bind (("C-c i" . ciel-ci)
("C-c o" . ciel-co)))And use it to replace normal narrowing functions
(use-package fancy-narrow
:diminish fancy-narrow-mode)(use-package visual-replace
:defer nil
:config
(visual-replace-global-mode 1)
(setq visual-replace-default-to-full-scope t))(use-package lsp-mode
:ensure t
:commands (lsp lsp-deferred)
:hook (go-mode . lsp-deferred)
:config (progn
;; use flycheck, not flymake
(setq lsp-prefer-flymake nil))
:bind (("C-c M-." . lsp-find-type-definition)))
(use-package lsp-ui
:ensure t
:commands lsp-ui-mode)(use-package ag)
(use-package consult-ag
:bind (("C-c C-v" . consult-ag))
:config (consult-customize
consult-ag
:add-history (ab/consult-candidates)))(use-package project
:bind (("C-c v" . project-find-file)
("C-c w" . project-switch-project)))(use-package company
:diminish company-mode
:config
(add-hook 'after-init-hook 'global-company-mode)
(setq company-minimum-prefix-length 1)
(setq company-idle-delay 0.3)
(setq company-dabbrev-downcase nil)
(bind-keys :map company-active-map
("C-d" . company-show-doc-buffer)
("C-l" . company-show-location)
("C-n" . company-select-next)
("C-p" . company-select-previous)
("C-t" . company-select-next)
("C-s" . company-select-previous)
("TAB" . company-complete)))
(use-package flycheck
:diminish flycheck-mode
:config (flycheck-mode 1)
(add-hook 'python-mode-hook 'flycheck-mode)
;; (add-hook 'emacs-lisp-mode-hook 'flycheck-mode)
(add-hook 'json-mode-hook 'flycheck-mode)
(add-hook 'rjsx-mode-hook 'flycheck-mode))Add a little consult twist to it
(use-package consult-flycheck
:bind ("C-c f" . consult-flycheck))(use-package electric-operator)Great package to jump to definition
(use-package dumb-jump
:config
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
(setq xref-show-definitions-function #'xref-show-definitions-completing-read))Make numbers in source code more noticeable
(use-package highlight-numbers
:config (add-hook 'prog-mode-hook 'highlight-numbers-mode))(use-package eldoc
:diminish eldoc-mode
:config (add-hook 'emacs-lisp-mode-hook 'eldoc-mode))
But only for emacs-lisp
(use-package rainbow-delimiters
:config
(add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode))(use-package paredit
:config
(add-hook 'emacs-lisp-mode-hook 'paredit-mode))(use-package eros
:config (add-hook 'emacs-lisp-mode-hook 'eros-mode))(use-package simple-call-tree)(use-package suggest)(require 'sql)
(sql-set-product "mysql")(use-package sqlup-mode
:config (add-hook 'sql-mode-hook 'sqlup-mode))I love this package
(use-package mysql-to-org
:config
(add-hook 'sql-mode-hook 'mysql-to-org-mode))but sometimes it needs a little kick
(defun mysql-to-org--start-process ()
(when (not (get-process "mysql-to-org"))
(make-comint "mysql-to-org" "mysql" nil
(concat "-u" mysql-to-org-mysql-user))
(mysql-to-org--load-completion-candidates)))
(defun mysql-to-org-kick ()
"Start the mysql to org mysql process."
(interactive)
(let ((pwd (read-passwd "mysql passwd: ")))
(kill-process "mysql-to-org")
(if (equal pwd "")
(make-comint "mysql-to-org" "mysql" nil
(concat "-u" mysql-to-org-mysql-user))
(make-comint "mysql-to-org" "mysql" nil
(concat "-u" mysql-to-org-mysql-user)
(concat "-p" pwd)))
(mysql-to-org--load-completion-candidates)))(defvar docker-mysql-secret "secret")
(defvar docker-mysql-dbname "dbname")
(defconst docker-mysql-proc-name "*docker-mysql*")
(defconst docker-mysql-proc-buffer "*docker-mysql*")
(defvar docker-mysql-proc nil)
(defun docker-mysql-start ()
"Start mysql docker."
(interactive)
(setq docker-mysql-proc
(start-process docker-mysql-proc-name docker-mysql-proc-buffer
"docker" "run" "-it" "--rm" "-p" "3306:3306"
"-e" (concat "MYSQL_ROOT_PASSWORD=" docker-mysql-secret)
"-e" (concat "MYSQL_DATABASE=" docker-mysql-dbname)
"mysql:5.6"))
(docker-mysql-logs))
(defun docker-mysql-logs ()
"Switch buffer to docker logs."
(interactive)
(switch-to-buffer docker-mysql-proc-buffer)
(view-mode))
;; (kill-process docker-mysql-proc)
(defun docker-mysql-stop ()
"Kill the docker container."
(interactive)
(let ((docker-id
(s-trim (shell-command-to-string "docker ps | grep mysql | awk '{ print $1 }'"))))
(shell-command (concat "docker kill " docker-id))
(message "Docker mysql stopped")))
(defun docker-mysql-copy-connect-cmd ()
(interactive)
(kill-new (format "mysql --protocol=tcp -u root -p%s" docker-mysql-secret)))So much better than html-mode
(use-package web-mode
:mode "\\.phtml\\'"
:mode "\\.volt\\'"
:mode "\\.html\\'"
:mode "\\.svelte\\'"
:config
(setq web-mode-markup-indent-offset 2)
(setq web-mode-code-indent-offset 2)
(setq web-mode-css-indent-offset 2))Adding the necessary hooks
(use-package emmet-mode
:config
(add-hook 'sgml-mode-hook 'emmet-mode) ;; Auto-start on any markup modes
(add-hook 'css-mode-hook 'emmet-mode) ;; enable Emmet's css abbreviation.
)(use-package js2-mode
:mode "\\.js\\'"
:config
(add-hook 'js2-mode-hook 'electric-operator-mode)
(add-hook 'js2-mode-hook 'flycheck-mode)
(setq js2-basic-offset 2))(use-package js2-refactor
:diminish js2-refactor-mode
:defer t
:config
(add-hook 'js2-mode-hook #'js2-refactor-mode)
(js2r-add-keybindings-with-prefix "C-c C-m"))(use-package js-doc)Useful for React
(use-package rjsx-mode)(use-package npm-mode
:defer t
:hook
(js2-mode-hook . npm-mode)
(rjsx-mode-hook . npm-mode))(use-package tide)
(defun setup-tide-mode ()
(interactive)
(tide-setup)
(flycheck-mode +1)
(setq flycheck-check-syntax-automatically '(save mode-enabled))
(setq typescript-indent-level 2)
(eldoc-mode +1)
(tide-hl-identifier-mode +1)
(company-mode +1))
;; formats the buffer before saving
(add-hook 'before-save-hook 'tide-format-before-save)
(add-hook 'typescript-mode-hook #'setup-tide-mode)(use-package web-mode)
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . web-mode))
(add-hook 'web-mode-hook
(lambda ()
(when (string-equal "tsx" (file-name-extension buffer-file-name))
(setup-tide-mode))))
;; enable typescript-tslint checker
(flycheck-add-mode 'typescript-tslint 'web-mode)A lot of the config is based on gopls, godef, goimports and gotags packages that you should install separately.
go install golang.org/x/tools/gopls@latest
go install github.com/rogpeppe/godef@latest
go install golang.org/x/tools/cmd/goimports@latest
go install github.com/jstemmer/gotags@latest
go install github.com/matryer/moq@latest(setenv "GO111MODULE" "on")Absolutely necessary for working in Go
(use-package go-mode
:config
;; (add-hook 'before-save-hook #'gofmt-before-save)
(add-hook 'go-mode-hook 'flycheck-mode)
(add-hook 'go-mode-hook 'dumb-jump-mode)
(setq go-packages-function 'go-packages-go-list))(defun lsp-go-install-save-hooks ()
(add-hook 'before-save-hook #'lsp-format-buffer t t)
(add-hook 'before-save-hook #'lsp-organize-imports t t))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)(use-package go-stacktracer)(use-package go-add-tags)(use-package go-gopath)(use-package gotest)Quick custom function to integrate with the moq tool to generate quick mocks
(defun moq ()
(interactive)
(let ((interface (word-at-point))
(test-file (concat (downcase (word-at-point)) "_test.go")))
(shell-command
(concat "moq -out " test-file " . " interface))
(find-file test-file)))(package-vc-install "https://github.com/abrochard/go-mod-mode")
(require 'go-mod-mode)
(flycheck-go-mod-setup)A few custom functions to add to go-mode. Assumes that the project structure is standard.
(require 'go-mode)
(require 'transient)
(require 'magit)
(defun go-test-pkg (&optional args)
"Unit test the current package."
(interactive
(list (transient-args 'go-test)))
(compile (format "go test %s ." (mapconcat 'identity args " "))))
(defun go-test-repo (&optional args)
"Unit test all packages."
(interactive
(list (transient-args 'go-test)))
(let* ((repo-path (magit-toplevel))
(default-directory repo-path))
(compile (format "go test %s ./..." (mapconcat 'identity args " ")))))
(defun go-coverage-here (&optional args)
"Show go coverage of current file."
(interactive
(list (transient-args 'go-test)))
(shell-command (format "go test . -coverprofile=cover.out %s"
(mapconcat 'identity args " ")))
(go-coverage "cover.out"))
(defun go-build-repo ()
"Build the current repo."
(interactive)
(let* ((repo-path (magit-toplevel))
(repo-name (file-name-nondirectory (directory-file-name repo-path)))
(default-directory (format "%s/cmd/%s" repo-path repo-name)))
(compile "go build")))
(defun go-run-repo ()
"Run the current repo."
(interactive)
(let* ((repo-path (magit-toplevel))
(repo-name (file-name-nondirectory (directory-file-name repo-path)))
(default-directory (format "%s/cmd/%s" repo-path repo-name)))
(compile "go run .")))
(defun go-mod-jump ()
"Jump to the go.mod file and summon the menu."
(interactive)
(find-file (format "%s/go.mod" (magit-toplevel)))
(go-mod-menu))
(transient-define-prefix go-test ()
"Go Test Suite"
:value '("-cover" "-race" "-timeout 60s") ; default values
["Arguments"
("-v" "Verbose" "-v")
("-c" "Coverage" "-cover")
("-r" "Race condition" "-race")
("-t" "Timeout" "-timeout 60s")]
["Actions"
("t" "Unit test current package" go-test-pkg)
("a" "Unit test current repository" go-test-repo)
("c" "Coverage current file" go-coverage-here)
("b" "Build current repository" go-build-repo)
("r" "Run current repository" go-run-repo)
("m" "Jump to go.mod menu" go-mod-jump)])
(define-key go-mode-map (kbd "C-c t") #'go-test)(setq auto-mode-alist
(append '(("go.mod" . text-mode)) auto-mode-alist))First install pyright language server via pip install pyright
(use-package lsp-pyright
:ensure t
:hook (python-mode . (lambda ()
(require 'lsp-pyright)
(lsp))))(use-package pyvenv
:ensure t
:config
(setq pyvenv-workon "emacs") ; Default venv
(pyvenv-tracking-mode 1))Need to install IPython first with pip install ipython.
Assuming that it would be at least IPython 5 so ask for simple-prompt.
(add-hook 'python-mode-hook 'electric-operator-mode)
(setq python-shell-interpreter "ipython"
python-shell-interpreter-args "--simple-prompt -i")
(define-key python-mode-map (kbd "C-c C-v") 'consult-ag)(use-package dockerfile-mode
:mode "Dockerfile\\'");; (use-package syslog-mode)(add-to-list 'auto-mode-alist '("\\.log\\'" . auto-revert-tail-mode))(defun open-syslog ()
(interactive)
(find-file "/var/log/syslog")
;; (syslog-mode)
(goto-char (point-max)))(use-package eshell
:init
(setq eshell-scroll-to-bottom-on-input 'all
eshell-error-if-no-glob t
eshell-hist-ignoredups t
eshell-save-history-on-exit t
eshell-prefer-lisp-functions nil
eshell-destroy-buffer-when-process-dies t))Modified from https://www.reddit.com/r/emacs/comments/6f0rkz/my_fancy_eshell_prompt/
(setq eshell-prompt-function
(lambda ()
(concat
(propertize "┌─[" 'face `(:foreground "green"))
(propertize (user-login-name) 'face `(:foreground "red"))
(propertize "@" 'face `(:foreground "green"))
(propertize (system-name) 'face `(:foreground "lightblue"))
(propertize "]──[" 'face `(:foreground "green"))
(propertize (format-time-string "%H:%M" (current-time)) 'face `(:foreground "yellow"))
(propertize "]──[" 'face `(:foreground "green"))
(propertize (concat (eshell/pwd)) 'face `(:foreground "white"))
(propertize "]\n" 'face `(:foreground "green"))
(propertize "└─>" 'face `(:foreground "green"))
(propertize (if (= (user-uid) 0) " # " " $ ") 'face `(:foreground "green"))
)))(setq eshell-visual-commands '("htop" "vi" "screen" "top" "less"
"more" "lynx" "ncftp" "pine" "tin" "trn" "elm"
"vim"))
(setq eshell-visual-subcommands '("git" "log" "diff" "show" "ssh"))(setenv "PAGER" "cat")(use-package eshell-autojump)(defalias 'ff 'find-file)
(defalias 'd 'dired)(defun eshell/clear ()
(let ((inhibit-read-only t))
(erase-buffer)))(defun eshell/gst (&rest args)
(magit-status (pop args) nil)
(eshell/echo)) ;; The echo command suppresses outputThanks to http://www.howardism.org/Technical/Emacs/eshell-present.html
(defun eshell/-buffer-as-args (buffer separator command)
"Takes the contents of BUFFER, and splits it on SEPARATOR, and
runs the COMMAND with the contents as arguments. Use an argument
`%' to substitute the contents at a particular point, otherwise,
they are appended."
(let* ((lines (with-current-buffer buffer
(split-string
(buffer-substring-no-properties (point-min) (point-max))
separator)))
(subcmd (if (-contains? command "%")
(-flatten (-replace "%" lines command))
(-concat command lines)))
(cmd-str (string-join subcmd " ")))
(message cmd-str)
(eshell-command-result cmd-str)))
(defun eshell/bargs (buffer &rest command)
"Passes the lines from BUFFER as arguments to COMMAND."
(eshell/-buffer-as-args buffer "\n" command))
(defun eshell/sargs (buffer &rest command)
"Passes the words from BUFFER as arguments to COMMAND."
(eshell/-buffer-as-args buffer nil command))(defun eshell/close ()
(delete-window))(add-hook 'eshell-mode-hook
(lambda ()
(define-key eshell-mode-map (kbd "C-M-a") 'eshell-previous-prompt)
(define-key eshell-mode-map (kbd "C-M-e") 'eshell-next-prompt)
(define-key eshell-mode-map (kbd "M-r") 'consult-history)))(defun eshell-pop--kill-and-delete-window ()
(unless (one-window-p)
(delete-window)))
(add-hook 'eshell-exit-hook 'eshell-pop--kill-and-delete-window)(require 'dired-x)(setq dired-listing-switches "-alh")(use-package yaml-mode
:config
(add-hook 'yaml-mode-hook 'flycheck-mode)
(add-hook 'yaml-mode-hook 'flyspell-mode))(use-package flycheck-yamllint
:defer t
:init
(progn
(eval-after-load 'flycheck
'(add-hook 'flycheck-mode-hook 'flycheck-yamllint-setup))))(use-package highlight-indentation
:config
(set-face-background 'highlight-indentation-face "#8B6090")
(add-hook 'yaml-mode-hook 'highlight-indentation-mode))A few utility functions for my local Redis.
(defun redis--command (cmd)
"Format command for the redis-cli.
CMD is the redis command."
(format "echo \"%s\" | redis-cli" cmd))
(defun redis--select-key ()
"Return all redis keys as list."
(let* ((command (redis--command "KEYS *"))
(keys (split-string (shell-command-to-string command) "\n")))
(completing-read "Redis key: " keys)))
(defun redis-set-key (key value)
"Set a key value pair in redis.
KEY is the key.
VALUE is the value."
(interactive "sKey: \nsValue: ")
(shell-command (redis--command (format "SET %s %s" key value))))
(defun redis-get-key ()
"Get the value for a key in redis."
(interactive)
(let ((key (redis--select-key)))
(message
"Value: %s"
(replace-regexp-in-string "\n" "" (shell-command-to-string (redis--command (format "GET %s" key)))))))
(defun redis-delete-key ()
"Delete a key from local redis instance."
(interactive)
(let ((key (redis--select-key)))
(shell-command (redis--command (format "DEL %s" key)))
(message "Key %s deleted." key)))
(defun redis-set-expire (ttl)
"Set ttl from local redis instance."
(interactive "nExpiry in seconds: ")
(let ((key (redis--select-key)))
(shell-command (redis--command (format "EXPIRE %s %s" key ttl)))))Great package to control multiple services.
(use-package prodigy)(prodigy-define-service
:name "Redis"
:command "redis-server"
:port 6379
:stop-signal 'sigterm
:kill-process-buffer-on-stop t)No need to configure, just handy to have.
(use-package 2048-game)
(use-package isend-mode)
(use-package lorem-ipsum)
(use-package markdown-mode)
(use-package pdf-tools
:defer t)
(use-package refine)
(use-package request)
(use-package csv-mode)
;; (use-package csharp-mode)
(use-package keychain-environment)
(use-package vlf)
(use-package consult-flyspell)
(use-package consult-yasnippet)
;; (use-package kubel)
(use-package kubernetes-helm)
(use-package mermaid-mode)
(use-package todoist)
(use-package protobuf-mode)
(use-package walkman)
(use-package jsonnet-mode)
(use-package expand-region
:config (global-set-key (kbd "C-=") 'er/expand-region))
(use-package alert
:config (setq alert-default-style 'notifier))If I am working on a separate library, I like to have it loaded on start. Just need to place it in the extra folder.
(mapc #'load (directory-files (concat config-load-path "extra/") t "\\.el$"))Trying the keyfreq package to monitor my command usage
(use-package keyfreq
:config
(keyfreq-mode 1)
(keyfreq-autosave-mode 1))Thanks to the cheatsheet package, I can quickly see what are my favorite keys bindings