general-conf.el

;;; package -- Summary

;;; Commentary:

;;; Code:


(setq ad-redefinition-action 'accept)
(add-to-list 'exec-path "/usr/local/bin")
(load "server")
(unless (server-running-p) (server-start))

;;full screen
(custom-set-variables
 '(initial-frame-alist (quote ((fullscreen . maximized)))))

(setq inhibit-startup-screen t)

;;; Dired
(setq dired-dwim-target t)

;;; redefine help command:
(global-set-key "\M-?" 'help-command)
;;; set new backward delete command:
(global-set-key "\C-h" 'delete-backward-char)

;;; Window navigation:
(defun other-window-backward ()
  "Select the previous window."
  (interactive)
  (other-window -1)
)

(global-set-key "\C-x\C-n" 'other-window)
(global-set-key "\C-x\C-p" 'other-window-backward)

;;; Navigate between windows using Alt-1, Alt-2,
;;; Shift-left, shift-up, shift-right:
;;; we disable for testing the above:
;(windmove-default-keybindings)

;;; theme

;;(color-theme-solarized)
(load-theme 'material t)

;;; powerline:
(require 'powerline)
;;(powerline-default-theme)
(powerline-center-theme)

;;; highlight the current line
(global-hl-line-mode t)
(set-face-background 'hl-line nil)
(set-face-foreground 'hl-line nil)
(set-face-underline  'hl-line "#a020f0")
(set-cursor-color "#a020f0")

;;; display line numbers to the left of the window
(global-linum-mode t)
; show the current line and column numbers in the stats bar as well
(line-number-mode t)
(column-number-mode t)

;;font size
(set-face-attribute 'default nil :height 130)

;; Enable copy and pasting from clipboard
(setq x-select-enable-clipboard t)

(setq
   backup-by-copying t      ; don't clobber symlinks
   backup-directory-alist
    '(("." . "~/.emacs-saves"))    ; don't litter my fs tree
   delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)   

;; (setq backup-directory-alist
;;       `((".*" . ,temporary-file-directory)))
;; (setq auto-save-file-name-transforms
;;       `((".*" ,temporary-file-directory t)))

(require 'cl)

(setq-default tab-width 4)
(setq-default indent-tabs-mode nil)

(setq inhibit-splash-screen t)
(tool-bar-mode -1)

;; Show file name in title bar
;; http://www.thetechrepo.com/main-articles/549
(setq frame-title-format "%b - Emacs")

(require 'ido)
(ido-mode t)

(require 'smartparens-config)
(smartparens-global-mode)
(show-smartparens-global-mode t)

(require 'auto-complete)
(require 'auto-complete-config)
(setq ac-dictionary-files (list (concat user-emacs-directory ".dict")))
(ac-config-default)
(global-auto-complete-mode t)

(require 'flyspell)
(setq flyspell-issue-message-flg nil)
;; flyspell mode breaks auto-complete mode without this.
(ac-flyspell-workaround)

(add-hook 'text-mode-hook 'flyspell-mode)
(add-hook 'prog-mode-hook 'flyspell-prog-mode)

(use-package flycheck
  :ensure t
  :init (global-flycheck-mode))

(add-hook 'after-init-hook 'global-flycheck-mode)

;; ;;http://www.emacswiki.org/emacs/FlymakeRuby
;; (require 'flymake)

(require 'projectile)
(projectile-mode +1)
(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)


;;; Set default fill mode to 100
(defconst code-line-length 127)
(setq-default fill-column code-line-length)
;;; indicate the location of the fill column 
(require 'fill-column-indicator)
(define-globalized-minor-mode
  global-fci-mode fci-mode (lambda () (fci-mode 1)))
(global-fci-mode t)
;;; Mark symbols that exceed limit of 100 symbols
(require 'whitespace)
(setq whitespace-line-column code-line-length) ;; limit line length
(setq whitespace-style '(face lines-tail))

(add-hook 'prog-mode-hook 'whitespace-mode)


(if (system-is-mac)
    (load "general-mac-conf"))

;; yasnippet
(require 'yasnippet)
(yas-global-mode 1)                     

;; iedit
; ???Fix iedit bug in Mac
(define-key global-map (kbd "C-c ;") 'iedit-mode)

;;
;; turn on abbrev mode globally
(setq abbrev-file-name "~/emacs-bartek/abbrev_defs.el")

(require 'dockerfile-mode)

(require 'neotree)
(global-set-key [f8] 'neotree-toggle)
(setq neo-smart-open t)
(setq projectile-switch-project-action 'neotree-projectile-action)


(defun neotree-project-dir ()
    "Open NeoTree using the git root."
    (interactive)
    (let ((project-dir (projectile-project-root))
          (file-name (buffer-file-name)))
      (neotree-toggle)
      (if project-dir
          (if (neo-global--window-exists-p)
              (progn
                (neotree-dir project-dir)
                (neotree-find file-name)))
        (message "Could not find git project root."))))

(eval-after-load "neotree"
    '(setq neo-hidden-regexp-list '("^\\." "\\.pyc$" "~$" "^#.*#$" "\\.elc$" "__pycache__"))
    )
(setq neo-show-hidden-files nil)

;;; tabnine

(use-package company-tabnine :ensure t)

;; Trigger completion immediately.
(setq company-idle-delay 0)

;; Number the candidates (use M-1, M-2 etc to select completions).
(setq company-show-numbers t)

;; Use the tab-and-go frontend.
;; Allows TAB to select and complete at the same time.
(company-tng-configure-default)
(setq company-frontends
      '(company-tng-frontend
        company-pseudo-tooltip-frontend
        company-echo-metadata-frontend))

(provide 'general-conf)
;;; general-conf ends here