You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
3.8 KiB
93 lines
3.8 KiB
(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))))
|