Created
December 27, 2016 08:12
-
-
Save tzach/f05fbc7e44a01589fad6434278c7dcc4 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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. | |
'(erc-nick "tzach") | |
'(package-selected-packages | |
(quote | |
(magithub magit helm cider emacsql-mysql twittering-mode ## yaml-mode starter-kit-ruby starter-kit-js starter-kit-eshell starter-kit-bindings scss-mode scala-mode markdown-preview-mode markdown-preview-eww less-css-mode langtool json-mode json js2-mode es-windows emstar clojure-project-mode))) | |
'(show-paren-mode t)) | |
(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. | |
) | |
(add-to-list 'load-path "~/emacs") | |
(require 'better-defaults) | |
;;(require 'arduino-mode) | |
(require 'package) | |
(add-to-list 'package-archives | |
'("marmalade" . "http://marmalade-repo.org/packages/")) | |
(add-to-list 'package-archives | |
'("melpa" . "https://melpa.org/packages/") t) | |
(package-initialize) | |
(put 'dired-find-alternate-file 'disabled nil) | |
(add-hook 'dired-mode-hook | |
(lambda () | |
(define-key dired-mode-map (kbd "^") | |
(lambda () (interactive) (find-alternate-file ".."))) | |
; was dired-up-directory | |
)) | |
(transient-mark-mode 1) | |
(setq auto-mode-alist (cons '("\\.json\\'" . js2-mode) auto-mode-alist)) | |
(require 'go-mode-load) | |
(require 'tramp) | |
(setq tramp-default-method "ssh") | |
(autoload 'markdown-mode "markdown-mode" | |
"Major mode for editing Markdown files" t) | |
(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode)) | |
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode)) | |
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) | |
(add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode)) | |
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)) | |
(add-to-list 'auto-mode-alist '("\\.clj\\'" . paredit-mode)) | |
(add-to-list 'auto-mode-alist '("\\.clj\\'" . clojure-mode)) | |
(put 'downcase-region 'disabled nil) | |
(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT")) | |
(add-hook 'erc-after-connect '(lambda (SERVER NICK) | |
(erc-message "PRIVMSG" "NickServ identify mypassword"))) | |
(require 'erc-join) | |
(erc-autojoin-mode 1) | |
(setq erc-autojoin-channels-alist | |
'(("freenode.net" "#osv" "#clojure" "#cassandra") | |
)) | |
(defun irc-maybe () | |
"Connect to IRC." | |
(interactive) | |
(when (y-or-n-p "IRC? ") | |
(erc :server "irc.freenode.net" :port 6667 | |
:nick "tzach"))) | |
(setq erc-hide-list '("JOIN" "PART" "QUIT")) | |
(setq-default show-trailing-whitespace t) | |
(put 'upcase-region 'disabled nil) | |
(auto-fill-mode nil) | |
(add-hook 'text-mode-hook 'turn-off-auto-fill) | |
(require 'langtool) | |
(setq langtool-language-tool-jar "/home/tzach/sw/LanguageTool-3.2/languagetool-commandline.jar") | |
;; overwrite selected text | |
(delete-selection-mode 1) | |
(setq select-enable-primary nil) | |
(setq github-project-prefix "https://github.com/scylladb/scylla/issues/") | |
(defun create-github-issue (string &optional from to) | |
"replace a #xxx with [#xxx](https://github.com/scylladb/scylla/issues/xxx)" | |
(interactive | |
(if (use-region-p) | |
(list nil (region-beginning) (region-end)) | |
(let ((bds (bounds-of-thing-at-point 'paragraph)) ) | |
(list nil (car bds) (cdr bds)) ) ) ) | |
(let (workOnStringP inputStr outputStr) | |
(setq workOnStringP (if string t nil)) | |
(setq inputStr (if workOnStringP string (buffer-substring-no-properties from to))) | |
(setq outputStr | |
(let ((case-fold-search t)) | |
(replace-regexp-in-string "#\\([0-9]+\\)" (concat "[#\\1](" github-project-prefix "\\1)") inputStr))) | |
(if workOnStringP | |
outputStr | |
(save-excursion | |
(delete-region from to) | |
(goto-char from) | |
(insert outputStr))))) | |
(setq sql-mysql-options '("--prompt=mysql> ")) | |
(require 'cider) | |
(setq cider-cljs-lein-repl | |
"(do (require 'figwheel-sidecar.repl-api) | |
(figwheel-sidecar.repl-api/start-figwheel!) | |
(figwheel-sidecar.repl-api/cljs-repl))") | |
;; magit | |
(global-set-key (kbd "C-x g") 'magit-status) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment