aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
149 lines
5.6 KiB
EmacsLisp
149 lines
5.6 KiB
EmacsLisp
;;; core.el --- The heart of the beast
|
|
;;
|
|
;;; Naming conventions:
|
|
;;
|
|
;; narf-... A public variable/constant or function
|
|
;; narf--... An internal variable or function (non-interactive)
|
|
;; narf/... An autoloaded interactive function
|
|
;; narf:... An ex command
|
|
;; narf|... A hook
|
|
;; narf*... An advising function
|
|
;; narf.... Custom prefix commands
|
|
;; ...! Macro
|
|
;;
|
|
;;;
|
|
|
|
(setq-default
|
|
confirm-kill-emacs (lambda (prompt) (y-or-n-p ">> Gee, I dunno Brain... Are you sure?"))
|
|
|
|
ad-redefinition-action 'accept ; silence the advised function warnings
|
|
echo-keystrokes 0.02 ; show me what I type
|
|
history-length 1000
|
|
ring-bell-function 'ignore ; silence of the bells!
|
|
save-interprogram-paste-before-kill nil
|
|
sentence-end-double-space nil
|
|
enable-recursive-minibuffers nil ; no minibufferception
|
|
compilation-always-kill t ; kill compilation process before spawning another
|
|
compilation-ask-about-save nil ; save all buffers before compiling
|
|
compilation-scroll-output t ; scroll with output while compiling
|
|
ediff-diff-options "-w"
|
|
ediff-split-window-function 'split-window-horizontally ; side-by-side diffs
|
|
ediff-window-setup-function 'ediff-setup-windows-plain ; no extra frames
|
|
inhibit-startup-echo-area-message "hlissner" ; username shuts up emacs
|
|
inhibit-startup-screen t ; don't show emacs start screen
|
|
initial-scratch-message nil
|
|
initial-major-mode 'text-mode ; initial scratch buffer mode
|
|
major-mode 'text-mode
|
|
|
|
;; http://ergoemacs.org/emacs/emacs_stop_cursor_enter_prompt.html
|
|
minibuffer-prompt-properties '(read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt)
|
|
|
|
;; remove annoying ellipsis when printing sexp in message buffer
|
|
eval-expression-print-length nil
|
|
eval-expression-print-level nil
|
|
|
|
bookmark-save-flag t
|
|
bookmark-default-file (concat narf-temp-dir "bookmarks")
|
|
|
|
;; Disable all backups (that's what git/dropbox are for)
|
|
auto-save-default nil
|
|
auto-save-list-file-name (concat narf-temp-dir "autosave")
|
|
make-backup-files nil
|
|
create-lockfiles nil
|
|
backup-directory-alist `((".*" . ,(concat narf-temp-dir "backup/")))
|
|
|
|
;; Remember undo history
|
|
undo-tree-auto-save-history t
|
|
undo-tree-history-directory-alist `(("." . ,(concat narf-temp-dir "undo/"))))
|
|
|
|
;;; UTF-8 please
|
|
(setq locale-coding-system 'utf-8) ; pretty
|
|
(set-terminal-coding-system 'utf-8) ; pretty
|
|
(set-keyboard-coding-system 'utf-8) ; pretty
|
|
(set-selection-coding-system 'utf-8) ; please
|
|
(prefer-coding-system 'utf-8) ; with sugar on top
|
|
(fset 'yes-or-no-p 'y-or-n-p) ; y/n instead of yes/no
|
|
|
|
|
|
;; Bootstrap ;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(unless (require 'autoloads nil t)
|
|
(load (concat narf-emacs-dir "scripts/generate-autoloads.el"))
|
|
(require 'autoloads))
|
|
(require 'core-vars)
|
|
(require 'core-defuns)
|
|
;; (require 'diminish)
|
|
|
|
(autoload 'use-package "use-package" "" nil 'macro)
|
|
(eval-when-compile
|
|
(setq use-package-verbose nil)
|
|
|
|
;; Make any folders needed
|
|
(dolist (file '("" "undo" "backup"))
|
|
(let ((path (concat narf-temp-dir file)))
|
|
(unless (file-exists-p path)
|
|
(make-directory path t)))))
|
|
|
|
;; Save history across sessions
|
|
(require 'savehist)
|
|
(setq savehist-file (concat narf-temp-dir "savehist")
|
|
savehist-save-minibuffer-history t
|
|
savehist-additional-variables
|
|
'(kill-ring search-ring regexp-search-ring))
|
|
(savehist-mode 1)
|
|
|
|
;; text properties severely bloat the history so delete them (courtesy of PythonNut)
|
|
(defun unpropertize-savehist ()
|
|
(mapc (lambda (list)
|
|
(with-demoted-errors
|
|
(when (boundp list)
|
|
(set list (mapcar #'substring-no-properties (eval list))))))
|
|
'(kill-ring minibuffer-history helm-grep-history helm-ff-history file-name-history
|
|
read-expression-history extended-command-history evil-ex-history)))
|
|
(add-hook 'kill-emacs-hook #'unpropertize-savehist)
|
|
(add-hook 'savehist-save-hook #'unpropertize-savehist)
|
|
|
|
(require 'recentf)
|
|
(setq recentf-save-file (concat narf-temp-dir "recentf")
|
|
recentf-exclude '("/tmp/" "/ssh:" "\\.?ido\\.last$" "\\.revive$" "/TAGS$"
|
|
"emacs\\.d/private/cache/.+" "emacs\\.d/workgroups/.+$" "wg-default"
|
|
"/company-statistics-cache.el$")
|
|
recentf-max-menu-items 0
|
|
recentf-max-saved-items 250
|
|
recentf-auto-cleanup 600)
|
|
(recentf-mode 1)
|
|
|
|
(use-package persistent-soft
|
|
:commands (persistent-soft-store
|
|
persistent-soft-fetch
|
|
persistent-soft-exists-p
|
|
persistent-soft-flush
|
|
persistent-soft-location-readable
|
|
persistent-soft-location-destroy)
|
|
:init (defvar pcache-directory (concat narf-temp-dir "pcache/")))
|
|
|
|
(use-package async
|
|
:commands (async-start
|
|
async-start-process
|
|
async-get
|
|
async-wait
|
|
async-inject-variables))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun narf-init ()
|
|
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
|
|
"Prevent annoying \"Active processes exist\" query when you quit Emacs."
|
|
(cl-flet ((process-list ())) ad-do-it))
|
|
|
|
(defun display-startup-echo-area-message ()
|
|
(after! workgroups2
|
|
(message "%sLoaded in %s" (narf/workgroup-display t t) (emacs-init-time))))
|
|
|
|
(require 'server)
|
|
(unless (server-running-p)
|
|
(server-start)))
|
|
|
|
(provide 'core)
|
|
;;; core.el ends here
|