Create new, a little bit better structured configuration

* Group configuration by package, and only then by language mode
* Slim down all the languages

01mac.el

@@ -0,0 +1,73 @@
+;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;;
+(global-set-key (kbd "RET") 'newline)
+
+;;;;;;;;; Mac binding (fix) ;;;;;;;;;;;;;;;;;;
+(define-key global-map [home] 'beginning-of-line)
+(define-key global-map [end] 'end-of-line)
+(global-set-key (kbd "s-<right>") 'end-of-line)
+(global-set-key (kbd "s-<left>") 'beginning-of-line)
+(global-set-key (kbd "s-<up>") 'scroll-down) ; WTF is this reverse, I dunno
+(global-set-key (kbd "s-<down>") 'scroll-up)
+
+;;; Window display
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(scroll-bar-mode -1)
+
+;#====================== Backup config #==============================
+(setq backup-directory-alist
+      `((".*" . "~/.emacs_backups/auto-save-list")))
+(setq auto-save-file-name-transforms
+      `((".*", "~/.emacs_backups/auto-save-list" t)))
+
+(setq backup-by-copying t)
+(setq delete-old-versions t
+  kept-new-versions 6
+  kept-old-versions 2
+  version-control t)
+
+; Enable line numbers and show cursors position
+(global-linum-mode t)
+(column-number-mode 1)
+
+;; Turn off sounds
+(setq ring-bell-function 'ignore)
+
+;; Enable y/n answers to questions
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;;;;;;;;;;;;;;;;;;;;;; Shell stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
+
+;; Add pgp binary
+(add-to-list 'exec-path "/usr/local/bin")
+
+; Use Shells variables
+(when (memq window-system '(mac ns))
+  (exec-path-from-shell-initialize)
+  (exec-path-from-shell-copy-env "GOPATH")
+  (exec-path-from-shell-copy-env "GOROOT"))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun set-font-size (size)
+  "Set font SIZE to X px."
+  (interactive "NNew font size: ")
+  (set-face-attribute 'default nil :font (format "Hasklig %d" size))
+  (set-face-attribute 'mode-line nil :font (format "Hasklig %d" size)))
+
+;;;;;;;;;;;;;;;;;;;;;; Window configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Always start in fullscreen
+(defun toggle-fullscreen ()
+  "Toggle full screen."
+  (interactive)
+  (set-frame-parameter
+     nil 'fullscreen
+     (when (not (frame-parameter nil 'fullscreen)) 'fullboth)))
+
+(toggle-fullscreen)
+
+
+;; Disable meta on right alt (useful for Polish characters)
+(setq ns-right-alternate-modifier nil)