Tom Willemse
db0220de5c
After watching a YouTube video[1] on managing window layouts in Emacs I was reminded of ‘winner-mode’ and introduced to the ‘ivy-push-view’ and ‘ivy-switch-view’ commands. As I feel like I frequently end up with setting up and losing layouts, I think these may be useful. [1]: https://www.youtube.com/watch?v=kyllrQiNsyA
128 lines
4.3 KiB
EmacsLisp
128 lines
4.3 KiB
EmacsLisp
;;; oni-core.el --- Core Emacs configuration -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2019 Tom Willemse
|
|
|
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
|
;; Keywords: local
|
|
;; Version: 2019.0918.110728
|
|
;; Package-Requires: (oni-data-dir expand-region multiple-cursors embrace helpful)
|
|
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Core Emacs configuration, doesn't need any requires from within
|
|
;; Emacs. These settings don't seem to go anywhere else.
|
|
|
|
;;; Code:
|
|
|
|
(require 'oni-data-dir)
|
|
|
|
(defconst oni-core--auto-save-directory (oni-data-dir-locate "auto-save-files/")
|
|
"Directory where auto-saves go.")
|
|
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
(defun oni-core--destroy-trailing-whitespace ()
|
|
"Delete trailing whitespace everywhere, except in Markdown buffers."
|
|
(if (not (eq major-mode 'markdown-mode))
|
|
(delete-trailing-whitespace)))
|
|
|
|
(defun oni-core--switch-newline-keys ()
|
|
"Switch the C-j and RET keys in the local buffer."
|
|
(if electric-indent-mode
|
|
(progn
|
|
(local-set-key (kbd "C-j") 'newline)
|
|
(local-set-key (kbd "RET") 'electric-newline-and-maybe-indent))
|
|
(local-unset-key (kbd "C-j"))
|
|
(local-unset-key (kbd "RET"))))
|
|
|
|
(defun oni-core--ensure-autosave-directory-exists ()
|
|
"Create the autosave directory if doesn't exist."
|
|
(mkdir oni-core--auto-save-directory t))
|
|
|
|
(add-to-list 'auto-save-file-name-transforms
|
|
`(".*" ,oni-core--auto-save-directory t)
|
|
:append)
|
|
|
|
(setq backup-directory-alist
|
|
`((".*" . ,(oni-data-dir-locate "backup-files"))))
|
|
|
|
(setq auto-save-list-file-prefix
|
|
(oni-data-dir-locate "auto-save-list/.saves-"))
|
|
|
|
(setq abbrev-file-name (oni-data-dir-locate "abbrev_defs"))
|
|
|
|
(setq user-full-name "Tom Willemse"
|
|
user-mail-address "tom@ryuslash.org")
|
|
|
|
(setq delete-old-versions t)
|
|
(setq kept-new-versions 20)
|
|
(setq kept-old-versions 20)
|
|
(setq vc-make-backup-files t)
|
|
(setq version-control t)
|
|
(setq require-final-newline t)
|
|
(setq sentence-end-double-space nil)
|
|
(setq inhibit-startup-screen t)
|
|
(setq electric-pair-skip-whitespace 'chomp)
|
|
|
|
(setq-default indent-tabs-mode nil)
|
|
(setq-default tab-width 4)
|
|
(setq-default truncate-lines t)
|
|
(setq-default fill-column 80)
|
|
|
|
(add-hook 'before-save-hook #'oni-core--destroy-trailing-whitespace)
|
|
(add-hook 'before-save-hook 'time-stamp)
|
|
(add-hook 'electric-indent-local-mode-hook #'oni-core--switch-newline-keys)
|
|
(add-hook 'minibuffer-setup-hook 'electric-pair-local-mode)
|
|
(add-hook 'prog-mode-hook 'goto-address-prog-mode)
|
|
(add-hook 'auto-save-hook #'oni-core--ensure-autosave-directory-exists)
|
|
|
|
(global-set-key (kbd "C-M-SPC") 'er/expand-region)
|
|
(global-set-key (kbd "M-+") 'mc/mark-next-like-this)
|
|
(global-set-key (kbd "C-c (") 'embrace-commander)
|
|
(global-set-key (kbd "C-x f") 'ffap)
|
|
(global-set-key (kbd "C-x C-b") 'ibuffer)
|
|
|
|
(global-set-key [remap describe-function] 'helpful-callable)
|
|
(global-set-key [remap describe-key] 'helpful-key)
|
|
(global-set-key [remap describe-variable] 'helpful-variable)
|
|
(global-set-key (kbd "C-c C-d") 'helpful-at-point)
|
|
|
|
(global-set-key (kbd "C-<left>") 'winner-undo)
|
|
(global-set-key (kbd "C-<right>") 'winner-redo)
|
|
|
|
(electric-indent-mode -1)
|
|
(winner-mode)
|
|
|
|
(add-to-list 'display-buffer-alist
|
|
'("\\`\\*help" display-buffer-in-side-window
|
|
(side . bottom)
|
|
(slot . 0)
|
|
(window-height . 0.33)))
|
|
|
|
(when (eql system-type 'windows-nt)
|
|
(add-to-list 'load-path (locate-user-emacs-file "vendor/p4-vc"))
|
|
(add-to-list 'exec-path "c:/Program Files/Git/bin")
|
|
(add-to-list 'exec-path "C:/Program Files/Git/usr/bin")
|
|
(add-to-list 'exec-path "c:/cygwin64/bin")
|
|
|
|
(setq delete-by-moving-to-trash t)
|
|
|
|
(setq-default buffer-file-coding-system 'utf-8-unix))
|
|
|
|
;;;###autoload(require 'oni-core)
|
|
|
|
(provide 'oni-core)
|
|
;;; oni-core.el ends here
|