diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..a8edbc9 --- /dev/null +++ b/.gitignore @@ -0,0 +1,3 @@ +/* +!init.el +!.gitignore diff --git a/init.el b/init.el new file mode 100644 index 0000000..90625cd --- /dev/null +++ b/init.el @@ -0,0 +1,92 @@ +(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))))