X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Fdon-configuration.org;h=9b62bb38a1c94b92734dcb9c5381ae4c23aa69f3;hb=1c616c82b8a581dbc72a2bea9710b03c72bbfbc6;hp=54230bfc15ee5e93b0d2918eb5ed69e16884dc91;hpb=a5ec8aeeddecc3e13f7cf887bfc9d080ccb3fa14;p=lib.git diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org index 54230bf..9b62bb3 100644 --- a/emacs_el/configuration/don-configuration.org +++ b/emacs_el/configuration/don-configuration.org @@ -1,14 +1,15 @@ +#+PROPERTY: header-args:emacs-lisp :tangle don-configuration.el * Load debugger # if for some reason, things get pear-shaped, we want to be able to # enter the debugger by sending -USR2 to emacs -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (setq debug-on-event 'siguser2) #+END_SRC * Add library paths -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (add-to-list 'load-path '"~/lib/emacs_el/") (add-to-list 'load-path '"~/lib/emacs_el/helm") (add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/tiny") @@ -22,10 +23,28 @@ (add-to-list 'load-path '"~/lib/emacs_el/polymode") #+END_SRC - +* Package management +** package repositories and package manager +#+BEGIN_SRC emacs-lisp + (require 'package) + (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/") + ("melpa" . "https://melpa.org/packages/") + ("org" . "http://orgmode.org/elpa/") )) + (package-initialize) +#+END_SRC +** [[https://github.com/jwiegley/use-package/][use-package]] +#+BEGIN_SRC emacs-lisp + (require 'use-package) +#+END_SRC +** Paradox +#+BEGIN_SRC emacs-lisp + (use-package paradox + :ensure paradox + ) +#+END_SRC * Misc functions ** with-library -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp ;; From http://www.emacswiki.org/emacs/LoadingLispFiles ;; execute conditional code when loading libraries (defmacro with-library (symbol &rest body) @@ -35,11 +54,172 @@ #+END_SRC +* Memory +#+BEGIN_SRC emacs-lisp + (setq global-mark-ring-max 128 + mark-ring-max 128 + kill-ring-max 128) + + (defun don/minibuffer-setup-hook () + (setq gc-cons-threshold most-positive-fixnum)) + (defun don/minibuffer-exit-hook () + (setq gc-cons-threshold 1048576)) + + (add-hook 'minibuffer-setup-hook #'don/minibuffer-setup-hook) + (add-hook 'minibuffer-exit-hook #'don/minibuffer-exit-hook) +#+END_SRC * Modules +** Winnermode +#+BEGIN_SRC emacs-lisp + (winner-mode 1) +#+END_SRC +** Eyebrowse + +#+BEGIN_SRC emacs-lisp + (use-package eyebrowse + :ensure t + :diminish eyebrowse-mode + :init (setq eyebrowse-keymap-prefix (kbd "C-c C-\\")) + :config (progn + (setq eyebrowse-wrap-around t) + (eyebrowse-mode t) + + (defun my/eyebrowse-new-window-config () + (interactive) + (let ((done nil)) + (dotimes (i 10) + ;; start at 1 run till 0 + (let ((j (mod (+ i 1) 10))) + (when (and (not done) + (not (eyebrowse--window-config-present-p j))) + (eyebrowse-switch-to-window-config j) + (call-interactively 'eyebrowse-rename-window-config2 j) + (setq done t) + )) + ))) + + ;; I don't use latex-preview-pane + ;; (require 'latex-preview-pane) + ;; (defun my/close-latex-preview-pane-before-eyebrowse-switch () + ;; ;; latex-preview-pane uses window-parameters which are + ;; ;; not preserved by eyebrowse, so we close the preview + ;; ;; pane before switching, it will be regenerated when we + ;; ;; edit the TeX file. + ;; (when (lpp/window-containing-preview) + ;; (delete-window (lpp/window-containing-preview)))) + + ;; (add-to-list 'eyebrowse-pre-window-switch-hook + ;; #'my/close-latex-preview-pane-before-eyebrowse-switch) + + ;; (my/set-menu-key "[" #'my/eyebrowse-new-window-config) + ;; (my/set-menu-key ";" #'eyebrowse-prev-window-config) + ;; (my/set-menu-key "'" #'eyebrowse-next-window-config) + ;; (my/set-menu-key "]" #'eyebrowse-close-window-config) + ;; (my/set-menu-key "\\" #'eyebrowse-rename-window-config) + ) + ) +#+END_SRC + +** Window handling + +*** Splitting +#+BEGIN_SRC emacs-lisp + (defun my/vsplit-last-buffer () + "Split the window vertically and display the previous buffer." + (interactive) + (split-window-vertically) + (other-window 1 nil) + (switch-to-next-buffer)) + + (defun my/hsplit-last-buffer () + "Split the window horizontally and display the previous buffer." + (interactive) + (split-window-horizontally) + (other-window 1 nil) + (switch-to-next-buffer)) + + (bind-key "C-x 2" 'my/vsplit-last-buffer) + (bind-key "C-x 3" 'my/hsplit-last-buffer) + + (setq split-width-threshold 100) + (setq split-height-threshold 60) + + (defun my/split-window-prefer-horizontally (window) + "If there's only one window (excluding any possibly active + minibuffer), then split the current window horizontally." + (if (and (one-window-p t) + (not (active-minibuffer-window)) + ( > (frame-width) (frame-height)) + ) + (let ((split-height-threshold nil)) + (split-window-sensibly window)) + (split-window-sensibly window))) + + (setq split-window-preferred-function #'my/split-window-prefer-horizontally) + (setq window-combination-resize t) +#+END_SRC + +*** Compilation window + +If there is no compilation window, open one at the bottom, spanning +the complete width of the frame. Otherwise, reuse existing window. In +the former case, if there was no error the window closes +automatically. + +#+BEGIN_SRC emacs-lisp + (add-to-list 'display-buffer-alist + `(,(rx bos "*compilation*" eos) + (display-buffer-reuse-window + display-buffer-in-side-window) + (reusable-frames . visible) + (side . bottom) + (window-height . 0.4))) +#+END_SRC + +#+BEGIN_SRC emacs-lisp + (defun my/compilation-exit-autoclose (status code msg) + ;; If M-x compile exists with a 0 + (when (and (eq status 'exit) (zerop code)) + ;; and delete the *compilation* window + (let ((compilation-window (get-buffer-window (get-buffer "*compilation*")))) + (when (and (not (window-at-side-p compilation-window 'top)) + (window-at-side-p compilation-window 'left) + (window-at-side-p compilation-window 'right)) + (delete-window compilation-window)))) + ;; Always return the anticipated result of compilation-exit-message-function + (cons msg code)) + + ;; Specify my function (maybe I should have done a lambda function) + (setq compilation-exit-message-function #'my/compilation-exit-autoclose) +#+END_SRC + +If you change the variable ~compilation-scroll-output~ to a ~non-nil~ +value, the compilation buffer scrolls automatically to follow the +output. If the value is ~first-error~, scrolling stops when the first +error appears, leaving point at that error. For any other non-nil +value, scrolling continues until there is no more output. + +#+BEGIN_SRC emacs-lisp + (setq compilation-scroll-output 'first-error) +#+END_SRC + +** Mode line cleaning +*** Diminish +#+BEGIN_SRC emacs-lisp + (use-package diminish + :ensure t) +#+END_SRC + +*** Delight +#+BEGIN_SRC emacs-lisp + (use-package delight + :ensure t) +#+END_SRC + ** Tinyprocmail -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp ;; load tinyprocmail (with-library 'tinyprocmail ; (setq tinyprocmail--procmail-version "v3.22") @@ -50,10 +230,17 @@ #+BEGIN_SRC emacs-lisp :tangle don-configuration.el ; don't verify where we are pushing (setq magit-push-always-verify nil) + ;; refine diffs always (hilight words) + (setq magit-diff-refine-hunk nil) + ;; load magit-annex + (setq load-path + (append '("~/lib/emacs_el/magit-annex") + load-path)) + (require 'magit-annex) #+END_SRC ** Perl -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (require 'cperl-mode) ;; Use c-mode for perl .xs files (add-to-list 'auto-mode-alist '("\\.xs\\'" . c-mode)) @@ -78,7 +265,7 @@ #+END_SRC ** Helm -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (require 'don-helm) #+END_SRC ** Hydra @@ -87,7 +274,7 @@ #+END_SRC ** Tramp -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (add-to-list 'tramp-methods '("vcsh" (tramp-login-program "vcsh") (tramp-login-args @@ -98,7 +285,7 @@ ("-c")))) #+END_SRC ** LaTeX -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (load "auctex.el" nil t t) (load "preview-latex.el" nil t t) (load "latex.el" nil t t) @@ -196,17 +383,17 @@ #+END_SRC ** Org -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (require 'org-mode-configuration) #+END_SRC ** ESS -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (require 'ess_configuration) #+END_SRC ** Polymode -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (setq load-path (append '("~/lib/emacs_el/polymode/modes") load-path)) @@ -221,7 +408,7 @@ * Keybindings ** Override other things -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp ; apparently things like to step on C-;, so we'll use a hack from ; http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs/5340797#5340797 to fix this @@ -250,8 +437,8 @@ (ad-activate 'load) #+END_SRC -* Misc (uncharacterized) -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +* Mis1c (uncharacterized) +#+BEGIN_SRC emacs-lisp (setq bibtex-user-optional-fields (quote (("annote" "Personal annotation (ignored)") ("abstract" "") ("pmid" "") ("doi" "")))) (setq calendar-latitude 40.11) (setq calendar-longitude -88.24) @@ -724,6 +911,6 @@ #+END_SRC * END -#+BEGIN_SRC emacs-lisp :tangle don-configuration.el +#+BEGIN_SRC emacs-lisp (provide 'don-configuration) #+END_SRC