+;;; -*- lexical-binding: t -*-
+
(require 'pastels-on-dark-theme)
+(setq default-frame-alist '((vertical-scroll-bars)
+ (background-mode . dark)
+ (alpha . 90)
+ (font . "monospace 11")))
+
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(show-paren-mode t)
-(setq show-trailing-whitespace t)
+(dolist (hook '(prog-mode-hook text-mode-hook))
+ (add-hook hook (lambda ()
+ (setq show-trailing-whitespace t))))
+
+(setq shift-select-mode nil)
+(delete-selection-mode t)
+(setq sentence-end-double-space nil)
(require 'uniquify)
(setq uniquify-strip-common-suffix t)
(setq uniquify-buffer-name-style 'post-forward)
-(setq frame-title-format
- '((:eval (if (buffer-file-name)
- (concat
- (file-name-nondirectory (buffer-file-name))
- (if (buffer-modified-p)
- " +")
- " ("
- (abbreviate-file-name (substring (file-name-directory (buffer-file-name)) 0 -1))
- ") - Emacs"
- )
- (concat
- "%b"
- (if (buffer-modified-p)
- " +")
- " - Emacs")))))
-(setq icon-title-format frame-title-format)
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+(setq find-file-visit-truename t)
+
+(setq disabled-command-function nil)
+
+(setq save-interprogram-paste-before-kill t)
+
+(setq undo-limit 10000000)
+(setq undo-strong-limit undo-limit)