First commit

.emacs

@@ -0,0 +1,184 @@
+;; System-type definition
+(defun system-is-linux()
+  (string-equal system-type "gnu/linux"))
+(defun system-is-windows()
+  (string-equal system-type "windows-nt"))
+(defun system-is-macos()
+  (string-equal system-type "darwin"))
+
+;; Start Emacs as a server
+(when (system-is-linux)
+  (require 'server)
+  (unless (server-running-p)
+    (server-start))) ;; launch emacs as a server if OS - GNU/Linux
+
+;; MS Windows path-variable
+(when (system-is-windows)
+  (setq win-sbcl-exe          "C:/sbcl/sbcl.exe")
+  (setq win-init-path         "C:/.emacs.d/lisp")
+  (setq win-init-ct-path      "C:/.emacs.d/plugins/color-theme")
+  (setq win-init-ac-path      "C:/.emacs.d/plugins/auto-complete")
+  (setq win-init-slime-path   "C:/slime")
+  (setq win-init-ac-dict-path "C:/.emacs.d/plugins/auto-complete/dict"))
+
+;; Unix path-variable
+(when (system-is-linux)
+  (setq unix-sbcl-bin          "/usr/bin/sbcl")
+  (setq unix-init-path         "~/.emacs.d/lisp")
+  (setq unix-init-ct-path      "~/.emacs.d/plugins/color-theme")
+  (setq unix-init-ac-path      "~/.emacs.d/plugins/auto-complete")
+  (setq unix-init-slime-path   "/usr/share/common-lisp/source/slime/")
+  (setq unix-init-ac-dict-path "~/.emacs.d/plugins/auto-complete/dict"))
+
+;; Dired
+(require 'dired)
+(setq dired-recursive-deletes 'top) ;; so we can delete non-empty directories
+
+;; Imenu
+(require 'imenu)
+(setq imenu-auto-rescan      t) ;; automatically update the list of functions in the buffer
+(setq imenu-use-popup-menu nil) ;; Imenu dialog only in the mini-buffer
+(global-set-key (kbd "<f6>") 'imenu) ;; press F6 to launch Imenu
+
+;; Display the name of the current buffer in the title bar
+(setq frame-title-format "GNU Emacs: %b")
+
+;; Load path for plugins
+(if (system-is-windows)
+  (add-to-list 'load-path win-init-path)
+  (add-to-list 'load-path unix-init-path))
+
+;; Inhibit startup/splash screen
+(setq inhibit-splash-screen   t)
+(setq ingibit-startup-message t) ;;startup screen can be open with C-h
+
+;; Show-paren-mode settings
+(show-paren-mode t) ;; turn on text highlight within {},[],()
+(setq show-paren-style 'expression) ;; highlight text inside {}, [], ()
+
+;; Electric-modes settings
+(electric-pair-mode    1) ;; automatically close brackets {},[],()
+(electric-indent-mode -1) ;; turn off auto indent with electric-indent-mod (default in Emacs-24.4)
+
+;; Delete selection
+(delete-selection-mode t)
+
+;; Disable GUI components
+(tooltip-mode      -1)
+(menu-bar-mode     -1) ;; turn off GUI menu bar
+(tool-bar-mode     -1) ;; turn off toolbar
+(scroll-bar-mode   -1) ;; turn off scrollbar
+(blink-cursor-mode -1) ;; turn off cursor blink
+(setq use-dialog-box     nil) ;; all dialogs through mini-buffer
+(setq redisplay-dont-pause t)  ;; better buffer display
+(setq ring-bell-function 'ignore) ;; turn off sound notification
+
+;; Coding-system settings
+(set-language-environment 'UTF-8)
+(if (system-is-linux) ;; utf-8 for GNU/Linux and macOS, windows-1251 for MS Windows
+    (progn
+      (setq default-buffer-file-coding-system 'utf-8)
+      (setq-default coding-system-for-read    'utf-8)
+      (setq file-name-coding-system           'utf-8)
+      (set-selection-coding-system            'utf-8)
+      (set-keyboard-coding-system        'utf-8-unix)
+      (set-terminal-coding-system             'utf-8)
+      (prefer-coding-system                   'utf-8))
+    (progn
+      (prefer-coding-system                   'windows-1251)
+      (set-terminal-coding-system             'windows-1251)
+      (set-keyboard-coding-system        'windows-1251-unix)
+      (set-selection-coding-system            'windows-1251)
+      (setq file-name-coding-system           'windows-1251)
+      (setq-default coding-system-for-read    'windows-1251)
+      (setq default-buffer-file-coding-system 'windows-1251)))
+
+;; Linum plugin
+(require 'linum) ;; call Linum
+(line-number-mode   t) ;; show line number in mode-line
+(global-linum-mode  t) ;; show line number in all buffers
+(column-number-mode t) ;; show column number in mode-line
+(setq linum-format " %d") ;; set up line numbering format
+
+;; Fringe settings
+(fringe-mode '(8 . 0)) ;; fringe is only on the left side
+(setq-default indicate-empty-lines t) ;; empty lines are marked
+(setq-default indicate-buffer-boundaries 'left) ;; indication are shown on the left side
+
+;; Display file size/time in mode-line
+(setq display-time-24hr-format t) ;; 24-hour time format in the  mode-line
+(display-time-mode             t) ;; show time in mode-line
+(size-indication-mode          t) ;; file size in %
+
+;; Line wrapping
+(setq word-wrap          t) ;; word wrapping
+(global-visual-line-mode t)
+
+;; Start window size
+(when (window-system)
+  (set-frame-size (selected-frame) 100 50))
+
+;; IDO plugin
+(require 'ido)
+(ido-mode                      t)
+(icomplete-mode                t)
+(ido-everywhere                t)
+(setq ido-vitrual-buffers      t)
+(setq ido-enable-flex-matching t)
+
+;; Buffer Selection and ibuffer settings
+(require 'bs)
+(require 'ibuffer)
+(defalias 'list-buffers 'ibuffer) ;; separate buffer list with C-x C-b
+(global-set-key (kbd "<f2>") 'bs-show) ;; start buffer selection by pressing F2
+
+;; Syntax highlighting
+(require 'font-lock)
+(global-font-lock-mode             t) ;; just in case... set on since Emacs-22
+(setq font-lock-maximum-decoration t)
+
+;; Indent settings
+(setq-default indent-tabs-mode nil) ;; turn off indentation via tab
+(setq-default tab-width          2) ;; tab size
+(setq-default c-basic-offset     2)
+(setq-default standart-indent    2) ;; standard offset
+(setq-default lisp-body-indent   2) ;; offset in lisp
+(global-set-key (kbd "RET") 'newline-and-indent) ;; with enter, make new line and indent
+(setq lisp-indent-function  'common-lisp-indent-function)
+
+;; Scrolling settings
+(setq scroll-step               1) ;; up-down scrolling speed is 1
+(setq scroll-margin            10) ;; set up scrolling margin
+(setq scroll-conservatively 10000)
+
+;; Short messages
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+;; Clipboard settings
+(setq x-select-enable-clipboard t)
+
+;; End of file newlines
+;;(setq require-final-newline    t) ;; add additional newline while saving file
+(setq next-line-add-newlines nil) ;; do not add new line with arrow keys
+
+;; Highlight search resaults
+(setq search-highlight        t)
+(setq query-replace-highlight t)
+
+;; Easy transition between buffers: M-arrow-keys
+(if (equal nil (equal major-mode 'org-mode))
+    (windmove-default-keybindings 'meta))
+
+;; Delete trailing whitespaces, format buffer and untabify when save buffer
+;;(defun format-current-buffer()
+;;    (indent-region (point-min) (point-max)))
+;;(defun untabify-current-buffer()
+;;    (if (not indent-tabs-mode)
+;;        (untabify (point-min) (point-max)))
+;;    nil)
+;;(add-to-list 'write-file-functions 'format-current-buffer)
+;;(add-to-list 'write-file-functions 'untabify-current-buffer)
+;;(add-to-list 'write-file-functions 'delete-trailing-whitespace)
+
+;; Mouse support
+(xterm-mouse-mode 1)