From 8c3ee31b5e9c77d3a1079495bafe3aff94da387f Mon Sep 17 00:00:00 2001 From: rekado Date: Thu, 14 Jul 2016 12:48:09 +0200 Subject: Remove old init file. --- old-init.el | 157 ------------------------------------------------------------ 1 file changed, 157 deletions(-) delete mode 100644 old-init.el (limited to 'old-init.el') diff --git a/old-init.el b/old-init.el deleted file mode 100644 index 7816a13..0000000 --- a/old-init.el +++ /dev/null @@ -1,157 +0,0 @@ - - -(setq backup-directory-alist - `(;; Do not backup or auto-save remote files to prevent delays. - (tramp-file-name-regexp . nil) - ;; Write backup files to a dedicated directory. - ("." . ,(expand-file-name - (concat user-emacs-directory "backups"))))) - -;; Make backups of files, even when they're in version control -(setq vc-make-backup-files t) - -(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode)) -(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) -(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) - -(setq scss-compile-at-save nil) - -;; (setq whitespace-global-modes '(not erc-mode)) -;; (global-whitespace-mode 1) -;; (set-face-attribute 'whitespace-space nil :background nil :foreground "gray20") -;; (set-face-attribute 'whitespace-newline nil :background nil :foreground "gray20") -;; (setq whitespace-style -;; '(face spaces tabs newline space-mark tab-mark newline-mark)) -;; (setq whitespace-display-mappings -;; ;; all numbers are Unicode codepoint in decimal. try -;; ;; (insert-char 182 ) to see it -;; '( -;; (space-mark 32 [183] [46]) ; 32 SPACE, 183 MIDDLE DOT 「·」, -;; ; 46 FULL STOP 「.」 -;; (newline-mark 10 [182 10]) ; 10 LINE FEED -;; (tab-mark 9 [9655 9] [92 9]) ; 9 TAB, 9655 WHITE -;; ; RIGHT-POINTING TRIANGLE 「▷」 -;; )) - -(desktop-save-mode t) - -;; ediff settings -(setq ediff-diff-options "-w") - -;; cause Emacs to fully redraw the display *before* it processes queued input events. -(setq redisplay-dont-pause t) - -;; fewer backslashes in regexp builder -(require 're-builder) -(setq reb-re-syntax 'string) - -;; remove prompt on killing process buffer -(setq kill-buffer-query-functions - (remq 'process-kill-buffer-query-function - kill-buffer-query-functions)) - -;; enable features that are disabled by default -(put 'narrow-to-region 'disabled nil) -(put 'erase-buffer 'disabled nil) -(put 'narrow-to-page 'disabled nil) - -(require 'fill-column-indicator) -(setq fci-rule-use-dashes t) -(setq fci-dash-pattern 0.3) -(add-hook 'prog-mode-hook 'fci-mode) - -;; keep the cursor centered to avoid sudden scroll jumps -(require 'centered-cursor-mode) - -;; disable in terminal modes -;; http://stackoverflow.com/a/6849467/519736 -;; also disable in Info mode, because it breaks going back with the backspace key -(define-global-minor-mode my-global-centered-cursor-mode centered-cursor-mode - (lambda () - (when (not (memq major-mode - (list 'Info-mode 'term-mode 'eshell-mode 'shell-mode 'erc-mode))) - (centered-cursor-mode)))) -(my-global-centered-cursor-mode 1) - -;; expand region -(global-set-key (kbd "M-@") 'er/expand-region) - -;; Swap C-t and C-x, so it's easier to type on Dvorak layout -;; `keyboard-translate` does not work when attaching an emacsclient to -;; a running emacs in daemon mode, so instead we define the key in the -;; key-translation-map. -;; http://lists.gnu.org/archive/html/help-gnu-emacs/2009-10/msg00505.html -(define-key key-translation-map [?\C-x] [?\C-t]) -(define-key key-translation-map [?\C-t] [?\C-x]) - -;; Use narrow tab width -(set-default 'tab-width 4) -(setq tab-width 4) - -(load "email.el") -(require 'my/init-org) -(load "init-ido.el") -(load "init-completion.el") -(load "init-geiser.el") -(load "init-gnus.el") -(load "init-magit.el") -(load "init-eshell.el") -(load "init-smex.el") -(load "init-modeline.el") -(load "init-my-stuff.el") -(load "init-paredit.el") -(load "init-pretty.el") - -(load "init-music.el") -(require 'my/init-music) - -(load "init-god-mode.el") -(require 'my/init-god-mode) - -;; start in fullscreen mode -(add-hook 'emacs-startup-hook (lambda () (fullscreen-mode-fullscreen))) -(add-hook 'doc-view-mode-hook 'auto-revert-mode) - -(page-break-lines-mode 1) -(global-set-key (kbd "") 'backward-page) -(global-set-key (kbd "") 'forward-page) - - -(add-to-list 'auto-mode-alist '("\\.html\\'" . sgml-mode)) -(eval-after-load "sgml-mode" - '(progn - (require 'tagedit) - (tagedit-add-paredit-like-keybindings) - (tagedit-add-experimental-features) - (add-hook 'html-mode-hook (lambda () (tagedit-mode 1))))) - -(delete-selection-mode 1) ; delete seleted text when typing - -;; don't let the cursor go into minibuffer prompt, HT Xah Lee -(setq minibuffer-prompt-properties '(read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt)) - -(require 'undo-tree) -(global-undo-tree-mode 1) - -(setq debbugs-gnu-default-packages '("emacs" "guix")) -(setq erc-join-buffer 'bury) -(savehist-mode) - -;; PDF view mode -(setq pdf-info-epdfinfo-program "~/.guix-profile/bin/epdfinfo") -(pdf-tools-install) - -;; enable variable-pitch-mode in eww -(add-hook 'eww-mode-hook - (lambda () - (variable-pitch-mode 1))) - -;; pretty quotes! -(add-hook 'erc-mode-hook - (lambda () - (require 'typo) - (typo-mode 1))) -(add-hook 'org-mode-hook - (lambda () - (require 'typo) - (typo-mode 1))) -- cgit v1.2.3