(require 'package)
(add-to-list 'package-archives
             '("melpa-stable" . "http://stable.melpa.org/packages/") t)
(package-initialize)

(defvar my-packages
  '(better-defaults projectile clojure-mode cider))
(dolist (p my-packages)
  (unless (package-installed-p p)
    (package-install p)))

(require 'rcirc)
(add-hook 'rcirc-mode-hook
	  (lambda ()
	    (set (make-local-variable 'scroll-conservatively)
		 8192)))
(setq rcirc-default-nick "jsha")
(setq rcirc-default-user-name "jsha")
(setq rcirc-default-full-name "jsha")
(setq rcirc-server-alist
      '(("irc.quakenet.org" :channels ("#warofmadness"))
        ("irc.freenode.org" :channels ("#stratum0"))))

(global-set-key (kbd "C-x g") 'magit-status)

(global-linum-mode)
; (windmove-default-keybindings)
; (git-auto-commit-mode)

(defun indent-buffer ()
  (interactive)
  (save-excursion
    (indent-region (point-min) (point-max) nil)))
(global-set-key [f12] 'indent-buffer)

(recentf-mode 1)
(setq recentf-max-menu-items 25)
(global-set-key "\C-x\ \C-r" 'recentf-open-files)

(global-set-key (kbd "C-M-SPC") 'just-one-space)

(global-set-key (kbd "C-x -") 'hs-toggle-hiding)

(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'lisp-mode-hook #'enable-paredit-mode)
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
(add-hook 'eval-expression-minibuffer #'enable-paredit-mode)
(add-hook 'clojure-mode-hook #'enable-paredit-mode #'hs-minor-mode)
(add-hook 'less-css-mode-hook #'hs-minor-mode)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-faces-vector
   [default default default italic underline success warning error])
 '(custom-enabled-themes (quote (misterioso)))
 '(package-selected-packages
   (quote
    (less-css-mode sass-mode paredit markdown-mode hy-mode yaml-mode editorconfig php-mode magit auto-complete parinfer git-commit rainbow-delimiters cyberpunk-theme flatui-dark-theme paper-theme cider clojure-mode projectile better-defaults))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "#2d3743" :foreground "#e1e1e0" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 128 :width normal :foundry "DAMA" :family "Ubuntu Mono")))))

(global-auto-complete-mode)

;; CUA OS copypasta even in ncurses mode
;case system-type
; ('darwin (unless window-system
;            (setq interprogram-cut-function
;                  (lambda (text &optional push)
;                    (let* ((process-connection-type nil)
;                           (pbproxy (start-process "pbcopy" "pbcopy" "/usr/bin/pbcopy")))
;                      (process-send-string pbproxy text)
;                      (process-send-eof pbproxy))))))
; ('gnu/linux (progn
;               (setq x-select-enable-clipboard t)
;               (defun xsel-cut-function (text &optional push)
;                 (with-temp-buffer
;                   (insert text)
;                   (call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input")))
;               (defun xsel-paste-function()
;
;                 (let ((xsel-output (shell-command-to-string "xsel --clipboard --output")))
;                   (unless (string= (car kill-ring) xsel-output)
;                     xsel-output )))
;               (setq interprogram-cut-function 'xsel-cut-function)
;               (setq interprogram-paste-function 'xsel-paste-function))))