Skip to content

Instantly share code, notes, and snippets.



Last active Dec 2, 2020
What would you like to do?
Emacs + org-mode configuration
; Keep this here to prevent it from getting added back uncommented
; Recommended by flx, gc every 20MB
(setq gc-cons-threshold 20000000)
; Disable double-buffering; we don't need it and it seems to make things
; slightly laggier.
(modify-frame-parameters nil '((inhibit-double-buffering . t)))
(setq default-frame-parameters '((inhibit-double-buffering . t)))
; Always maximize frame height; very helpful when cycling fonts
(add-to-list 'default-frame-alist '(fullscreen . fullheight))
; Disable the toolbar
(tool-bar-mode -1)
; Disable cursor blinking
(blink-cursor-mode -1)
; Reopen the files that were open in the previous session
(desktop-save-mode 1)
; Always save desktop
(setq desktop-save t)
; Load desktop even if locked (due to e.g. unclean shutdown)
(setq desktop-load-locked-desktop t)
; Never pop up dialog boxes
(setq use-dialog-box nil)
; We use version control, so don't create backup or autosave files.
(setq make-backup-files nil)
(setq auto-save-default nil)
; Don't create lockfiles.
(setq create-lockfiles nil)
; Automatically revert files to the on-disk contents
(global-auto-revert-mode 1)
; Wrap words rather than characters
(setq-default word-wrap t)
; Don't truncate lines
(setq-default truncate-lines nil)
; When reaching the end, scroll by one line instead of half the viewport
(setq scroll-step 1)
; Make mousewheel scroll three lines at a time
(setq mouse-wheel-scroll-amount '(2 ((shift) . 1)))
; Don't accelerate scrolling
(setq mouse-wheel-progressive-speed nil)
; Scroll the window under the mouse cursor
(setq mouse-wheel-follow-mouse 't)
; Highlight matching parentheses with no delay
(setq show-paren-delay 0)
(show-paren-mode 1)
; Open URLs in Chrome
(setq browse-url-browser-function 'browse-url-generic)
(setq browse-url-generic-program "google-chrome")
; This is C-<return> by default, but we need that for org-mode
(setq cua-rectangle-mark-key (kbd "C-S-<return>"))
; Don't clear the region after copying
(setq cua-keep-region-after-copy t)
; Must be done after setq cua-rectangle-mark-key
(cua-mode t)
; Enable ido
(ido-mode t)
(ido-everywhere t)
; Enable ido-ubiquitous
(setq load-path (cons "~/opt/ido-ubiquitous" load-path))
(require 'ido-completing-read+)
(ido-ubiquitous-mode t)
; Enable smex
(setq load-path (cons "~/opt/smex" load-path))
(require 'smex)
(setq smex-save-file "~/.cache/emacs/smex-items")
; Access the TODO menu in fewer keystrokes
(global-set-key (kbd "C-t") 'org-todo)
(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "M-q") 'switch-to-buffer)
(global-set-key (kbd "C--") 'text-scale-decrease)
(global-set-key (kbd "C-=") 'text-scale-increase)
; Note that browse-url-at-point always opens in the browser, unlike C-c C-o org-open-at-point
(global-set-key (kbd "C-o") 'browse-url-at-point)
(global-set-key (kbd "C-a") 'mark-whole-buffer)
(global-set-key (kbd "C-s") 'save-buffer)
(global-set-key (kbd "C-w") 'kill-this-buffer)
(global-set-key (kbd "C-f") 'isearch-forward)
(global-set-key (kbd "C-b") 'isearch-backward)
(global-set-key (kbd "<f3>") 'isearch-repeat-forward)
(global-set-key (kbd "S-<f3>") 'isearch-repeat-backward)
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
(global-set-key (kbd "M-x") 'smex)
(global-set-key (kbd "M-X") 'smex-major-mode-commands) ; commands relevant to active major mode
(define-key isearch-mode-map (kbd "C-f") 'isearch-repeat-forward)
(define-key isearch-mode-map (kbd "C-b") 'isearch-repeat-backward)
(define-key isearch-mode-map (kbd "C-v") 'isearch-yank-kill)
; Change frame title from [user@host] to filename
(setq frame-title-format "%b - Emacs")
; For emacsclient
;;; org-mode
; It's way too easy to accidentally open links with mouse-1; you can still
; open them with mouse-2 or mouse-3.
; Needs to be set before org-mode is loaded.
(setq org-mouse-1-follows-link nil)
(setq load-path (cons "~/opt/org-mode/lisp" load-path))
(require 'org)
; Also load both .org_archive files with org-mode
(add-to-list 'auto-mode-alist '("\\.org_archive$" . org-mode))
; "Make point visible, and do insertion/deletion if it is
; adjacent to visible text and the change feels predictable.
; Never delete a previously invisible character or add in the
; middle or right after an invisible region. Basically, this
; allows insertion and backward-delete right before ellipses."
(setq org-catch-invisible-edits 'smart)
(setq org-startup-indented t)
(setq org-ellipsis " ↴↴↴")
(setq org-todo-keywords
; keywords following the "|" are considered complete
; ! = timestamp
; @ = note with a timestamp
; /! = timestamp even if destination keyword has no logging configured
'((sequence "TODO(t!)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c!)")))
(setq org-agenda-include-diary t)
(setq org-agenda-files
; Using ido for refiling is buggy:
; Use ido for refiling
;(setq org-completion-use-ido t)
; Needed to use ido for refiling
;(setq org-outline-path-complete-in-steps nil)
; Make org-refile work on files
(setq org-refile-use-outline-path 'file)
(defun update-all-org-files (ignored)
(setq all-org-files (file-expand-wildcards "~/wiki/*.org")))
(update-all-org-files nil)
(advice-add 'org-refile-get-targets :before #'update-all-org-files)
(setq org-refile-targets
'((all-org-files :maxlevel . 1)))
; Refile to the top instead of the bottom
(setq org-reverse-note-order t)
; Shift-down should increase the time/day on an item to match the order in the agenda
(setq org-edit-timestamp-down-means-later t)
; Operate an all the selected headlines; seems to be buggy: e.g. marking things as DONE writes
; a state change only to the last headline.
; (setq org-loop-over-headlines-in-active-region t)
(defun org-save-all-org-buffers-quietly ()
(save-some-buffers t (lambda () (derived-mode-p 'org-mode)))
(when (featurep 'org-id) (org-id-locations-save)))
; Save all modified org buffers frequently, because otherwise it's easy to
; accidentally leave things unsaved after refilings or other changes.
(run-with-idle-timer 5 5 'org-save-all-org-buffers-quietly)
(defun load-org-modules ()
; Merely loading org-mouse breaks clicking inside a region: clicking
; should clear the region; with org-mouse loaded, the region is truncated
; to the point.
; Note that we don't need org-mouse for activate-bullets because org-bullets
; provide this functionality.
;(add-to-list 'org-modules 'org-mouse)
(eval-after-load "org" '(load-org-modules))
;(setq org-mouse-features '(context-menu activate-stars activate-bullets activate-checkboxes))
(setq load-path (cons "~/opt/org-bullets" load-path))
(require 'org-bullets)
; Avoid using ✸ because it increases the line height
(setq org-bullets-bullet-list '("" ""))
(require 'org-indent)
(add-hook 'org-mode-hook
(lambda ()
(setq truncate-lines nil)
(org-bullets-mode 1)
; org-mode binds ctrl-a to org-beginning-of-line, but we don't need it
; because we have Home and End.
(local-set-key (kbd "C-a") 'mark-whole-buffer)
(auto-revert-mode 1)
; Fix indentation for non-headline text below headlines when using variable-width fonts
(set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))
;;; notmuch
(require 'notmuch)
;;; outgoing mail
(require 'smtpmail)
send-mail-function 'smtpmail-send-it
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-server ""
smtpmail-smtp-service 587
smtpmail-stream-type 'starttls)
; Sends a message with something like
; Message-Id:
; instead of
; Message-Id: 87h8t8ebpe.fsf@ra.i-did-not-set--mail-host-address--so-tickle-me
(setq mail-host-address "")
;;; fonts and colors
; Needed for the org-headline-done below to work
(setq org-fontify-done-headline t)
(setq org-todo-keyword-faces
'(("CANCELED" :foreground "#686868" :weight bold)
("WAIT" :foreground "#B26818" :weight bold)
("DONE" :foreground "#686868" :weight bold)
("TODO" :foreground "#3F9E1D" :weight bold)))
(set-face-attribute 'default nil :font "Sans-9.5")
'(default ((t (:background "#E8E2D9")))) ; Light gray background
'(org-hide ((t (:foreground "#E8E2D9")))) ; Make the invisible asterisks match the background
'(region ((t (:background "#FFCC33")))) ; Orange text selection
; Make all outline levels black so we don't mentally associate outline depth with anything
'(outline-1 ((t (:foreground "#000000"))))
'(outline-2 ((t (:foreground "#000000"))))
'(outline-3 ((t (:foreground "#000000"))))
'(outline-4 ((t (:foreground "#000000"))))
'(outline-5 ((t (:foreground "#000000"))))
'(outline-6 ((t (:foreground "#000000"))))
'(org-ellipsis ((t (:foreground "#888888"))))
'(org-headline-done ((t (:foreground "LavenderBlush4")))) ; Gray out DONE items in files
'(org-agenda-done ((t (:foreground "LavenderBlush4")))) ; Gray out DONE items in agenda
; Set the fringe colors to match our background and foreground colors
'fringe nil
:foreground (face-foreground 'default)
:background (face-background 'default))
;;; interactive functions
(defun toggle-line-spacing ()
"Toggle line spacing between no extra space to extra half line height."
(if (eq line-spacing nil)
; add some height between lines
(setq-default line-spacing 0.25)
; no extra height between lines
(setq-default line-spacing nil))
(setq-default line-spacing 0.25)
(defun get-font-list ()
(pcase (system-name)
("plato" '("Sans-10.5" "monospace-10.5"))
("ra" '("Roboto-9.5" "SF Pro Text-9.5" "monospace-9.5"))))
(defun cycle-font (num)
"Change font in current frame.
Each time this is called, font cycles thru a predefined set of fonts.
If NUM is 1, cycle forward.
If NUM is -1, cycle backward."
(interactive "p")
;; this function sets a property “state”. It is a integer. Possible values are any index to the font-list.
(let (font-list font-to-use current-state next-state)
(setq font-list (get-font-list))
(setq current-state (if (get 'cycle-font 'state) (get 'cycle-font 'state) 0))
(setq next-state (% (+ current-state (length font-list) num) (length font-list)))
(setq font-to-use (nth next-state font-list))
(set-frame-parameter nil 'font font-to-use)
(redraw-frame (selected-frame))
(message "Current font is: %s" font-to-use)
(put 'cycle-font 'state next-state)))
(defun cycle-font-forward ()
"Switch to the next font, in the current frame.
See `cycle-font'."
(cycle-font 1))
(defun cycle-font-backward ()
"Switch to the previous font, in the current frame.
See `cycle-font'."
(cycle-font -1))
(global-set-key (kbd "C-_") 'cycle-font-backward)
(global-set-key (kbd "C-+") 'cycle-font-forward)
; Emacs' Ctrl-backspace runs backward-kill-word which deletes too much, so use
; this replacement from
; with kill ring tweak from
(defun my-kill-back ()
(if (bolp)
; Beginnning of line, just delete one character
(backward-delete-char 1)
(if (string-match "[^[:space:]]" (buffer-substring (point-at-bol) (point)))
; There's a word on the line, delete it
; delete-region instead of (backward-kill-word 1) to avoid putting word into the kill ring
(delete-region (point) (progn (backward-word 1) (point)))
; All whitespace, delete it
(delete-region (point-at-bol) (point)))))
(global-set-key [C-backspace] 'my-kill-back)

This comment has been minimized.

Copy link
Owner Author

@ivan ivan commented Oct 18, 2017

Linked to from

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.