dot

packages and services management
Log | Files | Refs | README

commit c47c1b3e562a2e2ab34f8f38e1caeb16450dd796
parent 4bec320d16b76646bec8ededc8c15a118e3865ac
Author: Josuah Demangeonā  ā µ <mail@josuah.net>
Date:   Tue, 28 Mar 2017 00:01:45 +0200

simplified .emacs.d/init.el

Diffstat:
M.emacs.d/init.el | 99+++++++++++++++----------------------------------------------------------------
1 file changed, 19 insertions(+), 80 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el @@ -1,14 +1,11 @@ -; emacs configuration file - (setq user-full-name "Josuah Demangeon" user-mail-address "mail@josuah.net" - custom-file - (expand-file-name "emacs-custom.el" temporary-file-directory)) + custom-file (expand-file-name "emacs-custom.el" temporary-file-directory)) -; appearance ------------------------------------------------------------------- +; --- appearance --------------------------------------------------------------- (when (fboundp 'menu-bar-mode) (menu-bar-mode -1)) (when (fboundp 'fringe-mode) (fringe-mode 0)) @@ -22,11 +19,11 @@ '(font . "mono:antialias=false:size=15")) -; packages --------------------------------------------------------------------- +; --- packages ----------------------------------------------------------------- (require 'package) -(setq package-list '(ivy swiper counsel which-key undo-tree)) +(setq package-list '(ivy swiper counsel undo-tree)) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) (package-initialize) @@ -39,10 +36,9 @@ (package-install package))) -; core settings ---------------------------------------------------------------- +; --- core settings ------------------------------------------------------------ (setq - visible-bell t ;Keystrokes echo-keystrokes 0.1 inhibit-startup-message t ;Startup @@ -54,9 +50,6 @@ (lambda () (message "Emacs loaded in %s" (emacs-init-time)))) (defalias 'yes-or-no-p 'y-or-n-p) -(require 'proced) -(global-set-key (kbd "C-x p") 'proced) - (require 'files) (setq backup-directory-alist ;Backup and autosaves @@ -64,22 +57,9 @@ auto-save-file-name-transforms `((".*" ,(expand-file-name "tmp" user-emacs-directory)))) -(require 'dired) -(require 'dired-x) -(setq dired-listing-switches "-alh --group-directories-first") - -(require 'hl-line) -(global-hl-line-mode 1) - -(require 'frame) -(blink-cursor-mode 0) - (require 'hideshow) (add-hook 'prog-mode-hook 'hs-minor-mode) -(require 'hideif) -(hide-ifdef-mode 1) - (provide 'reveal) (global-reveal-mode) @@ -98,17 +78,7 @@ (show-paren-mode 1) -(require 'elec-pair) -(electric-pair-mode 1) - -(require 'ehelp) -(define-key global-map (kbd "C-h") 'ehelp-command) - -(require 'elide-head) -(add-hook 'prog-mode-hook 'elide-head) - (require 'simple) -(line-number-mode 0) (add-hook 'text-mode-hook 'auto-fill-mode) (require 'misc) @@ -123,12 +93,6 @@ (require 'hippie-exp) (global-set-key (kbd "M-/") 'hippie-expand) -(require 'autoinsert) -(auto-insert-mode 1) - -(require 'server) -(unless (server-running-p) (server-start)) - (require 'doc-view) (setq doc-view-resolution 100) @@ -141,21 +105,18 @@ (require 'browse-url) (setq browse-url-browser-function 'eww-browse-url) -(require 'autorevert) -(auto-revert-mode 1) - -; linum ------------------------------------------------------------------------ +; --- linum -------------------------------------------------------------------- (require 'linum) -(setq linum-format (concat "%3d ")) +(setq linum-format "%4d ") (add-hook 'prog-mode-hook 'linum-mode) (add-hook 'text-mode-hook 'linum-mode) -; ibuffer ---------------------------------------------------------------------- +; --- ibuffer ------------------------------------------------------------------ (require 'ibuffer) (require 'ibuf-ext) @@ -171,7 +132,7 @@ (mode . gnus-article-mode) (mode . gnus-edit-form-mode) (name . "^\\.newsrc-dribble"))) - ("Erc" (mode . erc-mode)) + ("Irc" (mode . rcirc-mode)) ("Web" (mode . eww-mode)) ("Shell" (or (name . "^\\*Shell Command Output\\*$") @@ -208,7 +169,7 @@ (defalias 'list-buffers 'ibuffer) -; eshell ----------------------------------------------------------------------- +; --- eshell ------------------------------------------------------------------- (require 'eshell) (require 'em-prompt) @@ -223,8 +184,7 @@ eshell-smart-space-goes-to-end t pcomplete-cycle-completions nil eshell-prompt-function 'my-eshell-prompt-function - eshell-prompt-regexp "^> " - eshell-banner-message "") + eshell-prompt-regexp "^> ") (defmacro with-face (string &rest properties) "Set face for STRING without defining it, according to PROPERTIES." @@ -252,41 +212,26 @@ (add-to-list 'eshell-visual-commands "alsamixer") (add-to-list 'eshell-visual-commands "cfdisk") -(global-set-key (kbd "C-c t") 'eshell) ;"t" for terminal +(global-set-key (kbd "C-c t") 'eshell) (add-hook 'eshell-mode-hook 'eshell-smart-initialize) -; erc -------------------------------------------------------------------------- - -(require 'erc) - -(setq - erc-fill-function 'erc-fill-static - erc-fill-column 70 - erc-fill-static-center 13 - erc-prompt ">" - erc-show-my-nick nil - erc-accidental-paste-threshold-seconds 2) - - -; org -------------------------------------------------------------------------- +; --- org ---------------------------------------------------------------------- (require 'org) (require 'ox-publish) (setq - - org-hide-leading-stars t ;Appearance org-descriptive-links nil org-startup-folded nil) -(org-babel-do-load-languages ;Babel +(org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t) (python . t) (R . t))) -; gnus ------------------------------------------------------------------------- +; --- gnus --------------------------------------------------------------------- (require 'nnimap) (require 'gnus-mlspl) @@ -363,7 +308,7 @@ (global-set-key (kbd "C-c g") 'gnus) -; ivy -------------------------------------------------------------------------- +; --- ivy ---------------------------------------------------------------------- (require 'ivy) (require 'swiper) @@ -375,18 +320,12 @@ (global-set-key (kbd "M-x") 'counsel-M-x) -; which-key -------------------------------------------------------------------- - -(require 'which-key) -(which-key-mode) - - -; undo-tree -------------------------------------------------------------------- +; --- undo-tree ---------------------------------------------------------------- (require 'undo-tree) -(undo-tree-mode) +(global-undo-tree-mode) -;------------------------------------------------------------------------------- +; ------------------------------------------------------------------------------ (provide 'init)