dot

packages and services management
Log | Files | Refs | README

commit 4bb5a9045c1d7158d741880eb0fa10c9bfbd863c
parent c1967a3b795bf1b0763a130de43cbdf167f0807c
Author: josuah <mail@josuah.net>
Date:   Mon,  2 Jan 2017 17:22:43 +0100

Simplified init.el

Diffstat:
M.emacs.d/init.el | 87++++++++++++++++++++++++++++++++++---------------------------------------------
1 file changed, 37 insertions(+), 50 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el @@ -1,9 +1,4 @@ -; I used to have my ~/.emacs.d as my unique dotfile repo 2016-11-28 -; -; _ __ _ _ _ _| / . __ . |_ _ | -; (/_ ||| (_| (_ _\ . (_| / | | | | | . (/_ | -; -;_______________________________________________________________________________ +; emacs configuration file (setq user-full-name "Josuah Demangeon" @@ -12,7 +7,8 @@ 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)) @@ -25,30 +21,9 @@ (add-to-list 'default-frame-alist '(font . "mono:antialias=false:size=15")) -;; Progress bar & logs -(defvar ///-steps 7 "Number of calls to `///'.") -(defvar ///-counter 0 "Initializing the counter.") -(defvar ///-time (current-time) "Time counter.") -(defvar ///-previous nil "Previous loaded package.") -(defun /// (&optional title) - "A progress bar on the mode-line and TITLE in the echo area." - (redisplay) - (when ///-previous - (message " done in %.3fs\n" - (float-time (time-subtract (current-time) ///-time)))) - (when title (message "Loading %s" title)) - (setq - ///-time (current-time) - ///-previous title - mode-line-format (make-string - (* ///-counter (/ (window-total-size nil 'width) - ///-steps)) - ?#) - ///-counter (1+ ///-counter))) -(add-hook 'after-init-hook '///) - -;;______________________________________________________________________________ -(/// "packages") + +; packages --------------------------------------------------------------------- + (require 'package) (setq package-list '(ivy swiper counsel which-key undo-tree)) @@ -63,8 +38,8 @@ (unless (package-installed-p package) (package-install package))) -;;______________________________________________________________________________ -(/// "core settings") + +; core settings ---------------------------------------------------------------- (setq visible-bell t ;Keystrokes @@ -173,8 +148,9 @@ (require 'autorevert) (auto-revert-mode 1) -;;______________________________________________________________________________ -(/// "linum") + +; linum ------------------------------------------------------------------------ + (require 'linum) (setq linum-format (concat "%3d ")) @@ -182,8 +158,9 @@ (add-hook 'prog-mode-hook 'linum-mode) (add-hook 'text-mode-hook 'linum-mode) -;;______________________________________________________________________________ -(/// "ibuffer") + +; ibuffer ---------------------------------------------------------------------- + (require 'ibuffer) (require 'ibuf-ext) @@ -234,8 +211,9 @@ (defalias 'list-buffers 'ibuffer) -;;______________________________________________________________________________ -(/// "eshell") + +; eshell ----------------------------------------------------------------------- + (require 'eshell) (require 'em-prompt) (require 'em-term) @@ -283,7 +261,8 @@ (add-hook 'eshell-mode-hook 'eshell-smart-initialize) -(/// "erc") +; erc -------------------------------------------------------------------------- + (require 'erc) (setq @@ -294,8 +273,9 @@ erc-show-my-nick nil erc-accidental-paste-threshold-seconds 2) -;;______________________________________________________________________________ -(/// "org") + +; org -------------------------------------------------------------------------- + (require 'org) (require 'ox-publish) @@ -309,8 +289,9 @@ 'org-babel-load-languages '((emacs-lisp . t) (python . t) (R . t))) -;;______________________________________________________________________________ -(/// "gnus") + +; gnus ------------------------------------------------------------------------- + (require 'nnimap) (require 'gnus-mlspl) (require 'nnir) @@ -385,8 +366,9 @@ (global-set-key (kbd "C-c g") 'gnus) -;;______________________________________________________________________________ -(/// "ivy") + +; ivy -------------------------------------------------------------------------- + (require 'ivy) (require 'swiper) (require 'counsel) @@ -396,14 +378,19 @@ (global-set-key (kbd "C-s") 'swiper) (global-set-key (kbd "M-x") 'counsel-M-x) -(/// "which-key") + +; which-key -------------------------------------------------------------------- + (require 'which-key) (which-key-mode) -(/// "undo-tree") + +; undo-tree -------------------------------------------------------------------- + (require 'undo-tree) (undo-tree-mode) -(/// "emacs") + +;------------------------------------------------------------------------------- + (provide 'init) -;;; init.el ends here