Personalizzazioni per emacs

.emacs.rc/agda2-mode-rc.el

@@ -0,0 +1,3 @@
+(when (executable-find "agda-mode")
+  (load-file (let ((coding-system-for-read 'utf-8))
+               (shell-command-to-string "agda-mode locate"))))

.emacs.rc/appearance-rc.el

@@ -0,0 +1,21 @@
+;;; Fonts
+(defun rc/get-default-font ()
+  (cond
+   ((eq system-type 'windows-nt) "Consolas-13")
+   ((eq system-type 'gnu/linux) "Fira Code-12")))
+
+(add-to-list 'default-frame-alist `(font . ,(rc/get-default-font)))
+
+(when (display-graphic-p)
+  (set-face-attribute 'fixed-pitch nil :family (rc/get-default-font)))
+
+;;; GUI
+(tool-bar-mode 0)
+(menu-bar-mode 0)
+(scroll-bar-mode 0)
+(column-number-mode 1)
+(show-paren-mode 1)
+
+;;; Themes
+(rc/require-theme 'darcula)
+

.emacs.rc/autocommit-rc.el

@@ -0,0 +1,149 @@
+;;; TODO(c3bdae31-4329-4217-98a0-743b9dcbb6d2): extract autocommit into a separate package
+;;;
+;;; Once e266bfaa-2a01-4881-9e7f-ce2c592f7cdd is done, I think we can do that.
+
+(defvar rc/autocommit-local-locks
+  (make-hash-table :test 'equal))
+
+(defun rc/file-truename-nilable (filename)
+  (when filename
+    (file-truename filename)))
+
+(defun rc/autocommit--id ()
+  (let ((id (-> default-directory
+                (locate-dominating-file ".git")
+                (rc/file-truename-nilable))))
+    (when (not id)
+      (error "%s is not inside of a git repository" default-directory))
+    (unless (gethash id rc/autocommit-local-locks)
+      (puthash id nil rc/autocommit-local-locks))
+    id))
+
+(defun rc/autocommit--get-lock (lock)
+  (-> (rc/autocommit--id)
+      (gethash rc/autocommit-local-locks)
+      (plist-get lock)))
+
+(defun rc/autocommit--set-lock (lock value)
+  (puthash (rc/autocommit--id)
+           (-> (rc/autocommit--id)
+               (gethash rc/autocommit-local-locks)
+               (plist-put lock value))
+           rc/autocommit-local-locks))
+
+(defun rc/autocommit--toggle-lock (lock)
+  (-> lock
+      (rc/autocommit--get-lock)
+      (not)
+      (rc/autocommit--set-lock)))
+
+(defun rc/autocommit--create-dir-locals (file-name)
+  (write-region "((nil . ((eval . (rc/autocommit-dir-locals)))))"
+                nil file-name))
+
+(defun rc/y-or-n-if (predicate question action)
+  (when (or (not (funcall predicate))
+            (y-or-n-p question))
+    (funcall action)))
+
+;;; TODO(4229cf9a-4768-4f5e-aca1-865256c64a23): rc/autocommit-init-dir should modify dir locals file on AST level
+;;;
+;;; Right know it just overrides .dir-locals file on text level. I
+;;; want it to
+;;; - read .dir-locals,
+;;; - parse the assoc list,
+;;; - check if there is already autocommit stuff
+;;; - add autocommit stuff to the assoc list if needed
+;;; - and write it back to the file
+;;;
+;;; That will enable us with modifying dir locals that contains custom
+;;; stuff unrelated to autocommit
+(defun rc/autocommit-init-dir (&optional dir)
+  "Initialize autocommit folder."
+  (interactive "DAutocommit directory: ")
+  (let* ((autocommit-dir (if dir dir default-directory))
+         (file-name (concat autocommit-dir
+                            dir-locals-file)))
+    (rc/y-or-n-if (-partial #'file-exists-p file-name)
+                  (format "%s already exists. Replace it?" file-name)
+                  (-partial #'rc/autocommit--create-dir-locals file-name))))
+
+(defun rc/autocommit-dir-locals ()
+  "The function that has to be put into the .dir-locals.el file
+of the autocommit folder as evaluated for any mode."
+  (interactive)
+  (auto-revert-mode 1)
+  (rc/autopull-changes)
+  (add-hook 'after-save-hook
+            'rc/autocommit-changes
+            nil 'make-it-local))
+
+;;; TODO: rc/toggle-autocommit-offline doesn't work correctly
+;;;
+;;; It should toggle offline for all of the folders at once
+(defun rc/toggle-autocommit-offline ()
+  "Toggle between OFFLINE and ONLINE modes.
+
+Autocommit can be in two modes: OFFLINE and ONLINE. When ONLINE
+rc/autocommit-changes does `git commit && git push'. When OFFLINE
+rc/autocommit does only `git commit'."
+  (interactive)
+  (rc/autocommit--toggle-lock 'autocommit-offline)
+  (if (rc/autocommit--get-lock 'autocommit-offline)
+      (message "[OFFLINE] Autocommit Mode")
+    (message "[ONLINE] Autocommit Mode")))
+
+(defun rc/autopull-changes ()
+  "Pull the recent changes.
+
+Should be invoked once before working with the content under
+autocommit. Usually put into the dir locals file."
+  (interactive)
+  (when (not (rc/autocommit--get-lock 'autopull-lock))
+    (rc/autocommit--set-lock 'autopull-lock t)
+    (if (rc/autocommit--get-lock 'autocommit-offline)
+        (message "[OFFLINE] NOT Syncing the Agenda")
+      (if (y-or-n-p (format "Sync the Agenda? [%s]" (rc/autocommit--id)))
+          (progn
+            (message (format "Syncing the Agenda [%s]" (rc/autocommit--id)))
+            (shell-command "git pull"))
+        (progn
+          (rc/autocommit--set-lock 'autocommit-offline t)
+          (message (format "[OFFLINE] NOT Syncing the Agenda [%s]"
+                           (rc/autocommit--id))))))))
+
+(defun rc/autocommit-changes ()
+  "Commit all of the changes under the autocommit folder.
+
+Should be invoked each time a change is made. Usually put into
+dir locals file."
+  (interactive)
+  (if (rc/autocommit--get-lock 'autocommit-lock)
+      (rc/autocommit--set-lock 'autocommit-changed t)
+    (rc/autocommit--set-lock 'autocommit-lock t)
+    (rc/autocommit--set-lock 'autocommit-changed nil)
+    (set-process-sentinel (rc/run-commit-process (rc/autocommit--id))
+                          (-partial 'rc/autocommit-beat (rc/autocommit--id)))))
+
+(defun rc/run-commit-process (autocommit-directory)
+  (let ((default-directory autocommit-directory))
+    (let ((autocommit-message (format-time-string "Autocommit %s")))
+      (start-process-shell-command
+       (format "Autocommit-%s" autocommit-directory)
+       (format "*Autocommit-%s*" autocommit-directory)
+       (format (if (rc/autocommit--get-lock 'autocommit-offline)
+                   "git add -A && git commit -m \"%s\""
+                 "git add -A && git commit -m \"%s\" && git push origin master")
+               autocommit-message)))))
+
+(defun rc/autocommit-beat (autocommit-directory process event)
+  (let ((default-directory autocommit-directory))
+    (message (if (rc/autocommit--get-lock 'autocommit-offline)
+                 "[OFFLINE] Autocommit: %s"
+               "Autocommit: %s")
+             event)
+    (if (not (rc/autocommit--get-lock 'autocommit-changed))
+        (rc/autocommit--set-lock 'autocommit-lock nil)
+      (rc/autocommit--set-lock 'autocommit-changed nil)
+      (set-process-sentinel (rc/run-commit-process autocommit-directory)
+                            (-partial 'rc/autocommit-beat autocommit-directory)))))

.emacs.rc/ccmode-rc.el

@@ -0,0 +1,10 @@
+(setq-default c-basic-offset 4
+              c-default-style '((java-mode . "java")
+                                (awk-mode . "awk")
+                                (other . "bsd")))
+
+(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
+
+(add-hook 'c-mode-hook (lambda ()
+                         (interactive)
+                         (c-toggle-comment-style -1)))

.emacs.rc/company-rc.el

@@ -0,0 +1,9 @@
+(rc/require 'company)
+(require 'company)
+
+(global-company-mode)
+
+(add-hook 'tuareg-mode-hook
+          (lambda ()
+            (interactive)
+            (company-mode 0)))

.emacs.rc/dired-rc.el

@@ -0,0 +1,5 @@
+(require 'dired-x)
+(setq dired-omit-files
+      (concat dired-omit-files "\\|^\\..+$"))
+(setq-default dired-dwim-target t)
+(setq dired-listing-switches "-alh")

.emacs.rc/editorconfig-rc.el

@@ -0,0 +1,2 @@
+(rc/require 'editorconfig)
+(editorconfig-mode 1)

.emacs.rc/eldoc-mode-rc.el

@@ -0,0 +1,5 @@
+(defun rc/turn-on-eldoc-mode ()
+  (interactive)
+  (eldoc-mode 1))
+
+(add-hook 'emacs-lisp-mode-hook 'rc/turn-on-eldoc-mode)

.emacs.rc/emacs-lisp-rc.el

@@ -0,0 +1,5 @@
+(add-hook 'emacs-lisp-mode-hook
+          '(lambda ()
+             (local-set-key (kbd "C-c C-j")
+                            (quote eval-print-last-sexp))))
+(add-to-list 'auto-mode-alist '("Cask" . emacs-lisp-mode))

.emacs.rc/haskell-mode-rc.el

@@ -0,0 +1,9 @@
+(rc/require 'haskell-mode)
+
+(setq haskell-process-type 'cabal-new-repl)
+(setq haskell-process-log t)
+
+(add-hook 'haskell-mode-hook 'haskell-indent-mode)
+(add-hook 'haskell-mode-hook 'interactive-haskell-mode)
+(add-hook 'haskell-mode-hook 'haskell-doc-mode)
+(add-hook 'haskell-mode-hook 'hindent-mode)

.emacs.rc/helm-rc.el

@@ -0,0 +1,10 @@
+(rc/require 'helm 'helm-cmd-t 'helm-git-grep 'helm-ls-git)
+
+(setq helm-ff-transformer-show-only-basename nil)
+
+(global-set-key (kbd "C-c h t") 'helm-cmd-t)
+(global-set-key (kbd "C-c h g g") 'helm-git-grep)
+(global-set-key (kbd "C-c h g l") 'helm-ls-git-ls)
+(global-set-key (kbd "C-c h f") 'helm-find)
+(global-set-key (kbd "C-c h a") 'helm-org-agenda-files-headings)
+(global-set-key (kbd "C-c h r") 'helm-recentf)

.emacs.rc/ido-smex-rc.el

@@ -0,0 +1,10 @@
+(rc/require 'smex 'ido-completing-read+)
+
+(require 'ido-completing-read+)
+
+(ido-mode 1)
+(ido-everywhere 1)
+(ido-ubiquitous-mode 1)
+
+(global-set-key (kbd "M-x") 'smex)
+(global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)

.emacs.rc/js2-mode-rc.el

@@ -0,0 +1,7 @@
+(rc/require 'js2-mode)
+
+(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
+(add-to-list 'interpreter-mode-alist '("node" . js2-mode))
+
+(add-to-list 'auto-mode-alist '("\\.jsx\\'" . js2-jsx-mode))
+(add-to-list 'interpreter-mode-alist '("node". js2-jsx-mode))

.emacs.rc/latex-mode-rc.el

@@ -0,0 +1,4 @@
+(add-hook 'tex-mode-hook (lambda ()
+                           (interactive)
+                           (add-to-list 'tex-verbatim-environments "code")))
+

.emacs.rc/magit-rc.el

@@ -0,0 +1,9 @@
+;; magit requres this lib, but it is not installed automatically on
+;; Windows.
+(rc/require 'cl-lib)
+(rc/require 'magit)
+
+(setq magit-auto-revert-mode nil)
+
+(global-set-key (kbd "C-c m s") 'magit-status)
+(global-set-key (kbd "C-c m l") 'magit-log)

.emacs.rc/misc-rc.el

@@ -0,0 +1,136 @@
+(require 'ansi-color)
+
+(global-set-key (kbd "C-c p") 'find-file-at-point)
+(global-set-key (kbd "C-c i m") 'imenu)
+
+(setq-default inhibit-splash-screen t
+              make-backup-files nil
+              tab-width 4
+              indent-tabs-mode nil
+              compilation-scroll-output t
+              default-input-method "russian-computer"
+              visible-bell (equal system-type 'windows-nt))
+
+(defun rc/colorize-compilation-buffer ()
+  (toggle-read-only)
+  (ansi-color-apply-on-region compilation-filter-start (point))
+  (toggle-read-only))
+(add-hook 'compilation-filter-hook 'rc/colorize-compilation-buffer)
+
+(defun rc/buffer-file-name ()
+  (if (equal major-mode 'dired-mode)
+      default-directory
+    (buffer-file-name)))
+
+(defun rc/parent-directory (path)
+  (file-name-directory (directory-file-name path)))
+
+(defun rc/root-anchor (path anchor)
+  (cond
+   ((string= anchor "") nil)
+   ((file-exists-p (concat (file-name-as-directory path) anchor)) path)
+   ((string-equal path "/") nil)
+   (t (rc/root-anchor (rc/parent-directory path) anchor))))
+
+(defun rc/clipboard-org-mode-file-link (anchor)
+  (interactive "sRoot anchor: ")
+  (let* ((root-dir (rc/root-anchor default-directory anchor))
+         (org-mode-file-link (format "file:%s::%d"
+                                     (if root-dir
+                                         (file-relative-name (rc/buffer-file-name) root-dir)
+                                       (rc/buffer-file-name))
+                                     (line-number-at-pos))))
+    (kill-new org-mode-file-link)
+    (message org-mode-file-link)))
+
+;;; Taken from here:
+;;; http://stackoverflow.com/questions/2416655/file-path-to-clipboard-in-emacs
+(defun rc/put-file-name-on-clipboard ()
+  "Put the current file name on the clipboard"
+  (interactive)
+  (let ((filename (rc/buffer-file-name)))
+    (when filename
+      (kill-new filename)
+      (message filename))))
+
+(defun rc/put-buffer-name-on-clipboard ()
+  "Put the current buffer name on the clipboard"
+  (interactive)
+  (kill-new (buffer-name))
+  (message (buffer-name)))
+
+(defun rc/kill-autoloads-buffers ()
+  (interactive)
+  (dolist (buffer (buffer-list))
+    (let ((name (buffer-name buffer)))
+      (when (string-match-p "-autoloads.el" name)
+        (kill-buffer buffer)
+        (message "Killed autoloads buffer %s" name)))))
+
+(defun rc/start-python-simple-http-server ()
+  (interactive)
+  (shell-command "python -m SimpleHTTPServer 3001 &"
+                 "*Simple Python HTTP Server*"))
+
+(global-set-key (kbd "C-x p s") 'rc/start-python-simple-http-server)
+
+;;; Taken from here:
+;;; http://blog.bookworm.at/2007/03/pretty-print-xml-with-emacs.html
+(defun bf-pretty-print-xml-region (begin end)
+  "Pretty format XML markup in region. You need to have nxml-mode
+http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
+this.  The function inserts linebreaks to separate tags that have
+nothing but whitespace between them.  It then indents the markup
+by using nxml's indentation rules."
+  (interactive "r")
+  (save-excursion
+    (nxml-mode)
+    (goto-char begin)
+    (while (search-forward-regexp "\>[ \\t]*\<" nil t) 
+      (backward-char) (insert "\n"))
+    (indent-region begin end))
+  (message "Ah, much better!"))
+
+;;; Stolen from http://ergoemacs.org/emacs/emacs_unfill-paragraph.html
+(defun rc/unfill-paragraph ()
+  "Replace newline chars in current paragraph by single spaces.
+This command does the inverse of `fill-paragraph'."
+  (interactive)
+  (let ((fill-column 90002000)) ; 90002000 is just random. you can use `most-positive-fixnum'
+    (fill-paragraph nil)))
+
+(global-set-key (kbd "C-c M-q") 'rc/unfill-paragraph)
+
+(defun rc/load-path-here ()
+  (interactive)
+  (add-to-list 'load-path default-directory))
+
+(defconst rc/frame-transparency 85)
+
+(defun rc/toggle-transparency ()
+  (interactive)
+  (let ((frame-alpha (frame-parameter nil 'alpha)))
+    (if (or (not frame-alpha)
+            (= (cadr frame-alpha) 100))
+        (set-frame-parameter nil 'alpha
+                             `(,rc/frame-transparency
+                               ,rc/frame-transparency))
+      (set-frame-parameter nil 'alpha '(100 100)))))
+
+(defun rc/duplicate-line ()
+  "Duplicate current line"
+  (interactive)
+  (move-beginning-of-line 1)
+  (kill-line)
+  (yank)
+  (newline)
+  (yank))
+
+(global-set-key (kbd "C-,") 'rc/duplicate-line)
+
+;;; A little hack which fixes a problem with meta key in fluxbox under VNC.
+(setq x-alt-keysym 'meta)
+
+(setq confirm-kill-emacs 'y-or-n-p)
+
+(server-start)

.emacs.rc/move-text-rc.el

@@ -0,0 +1,3 @@
+(rc/require 'move-text)
+(global-set-key (kbd "M-p") 'move-text-up)
+(global-set-key (kbd "M-n") 'move-text-down)

.emacs.rc/multiple-cursors-rc.el

@@ -0,0 +1,8 @@
+(rc/require 'multiple-cursors)
+
+(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
+(global-set-key (kbd "C->")         'mc/mark-next-like-this)
+(global-set-key (kbd "C-<")         'mc/mark-previous-like-this)
+(global-set-key (kbd "C-c C-<")     'mc/mark-all-like-this)
+(global-set-key (kbd "C-\"")        'mc/skip-to-next-like-this)
+(global-set-key (kbd "C-:")         'mc/skip-to-previous-like-this)

.emacs.rc/nasm-mode-rc.el

@@ -0,0 +1,2 @@
+(rc/require 'nasm-mode)
+(add-to-list 'auto-mode-alist '("\\.asm\\'" . nasm-mode))

.emacs.rc/nxml-mode-rc.el

@@ -0,0 +1,3 @@
+(add-to-list 'auto-mode-alist '("\\.html\\'" . nxml-mode))
+(add-to-list 'auto-mode-alist '("\\.xsd\\'" . nxml-mode))
+(add-to-list 'auto-mode-alist '("\\.ant\\'" . nxml-mode))

.emacs.rc/openwith-rc.el

@@ -0,0 +1,16 @@
+(rc/require 'openwith)
+
+(openwith-mode 1)
+
+
+(setq openwith-associations
+      (append
+       (when (eq system-type 'gnu/linux)
+         '(("\\.pdf\\'" "evince" (file))
+           ("\\.djvu\\'" "evince" (file))))
+       '(("\\.docx\\'" "libreoffice" (file))
+         ("\\.xlsx\\'" "libreoffice" (file))
+         ("\\.doc\\'" "libreoffice" (file))
+         ("\\.rtf\\'" "libreoffice" (file))
+         ("\\.ods\\'" "libreoffice" (file))
+         ("\\.mp3\\'" "vlc" (file)))))

.emacs.rc/org-babel-rc.el

@@ -0,0 +1 @@
+(require 'ob-python)

.emacs.rc/org-capture-rc.el

@@ -0,0 +1,6 @@
+(setq org-capture-templates
+      '(("p" "Capture task" entry (file "~/Documents/Agenda/Tasks.org")
+         "* TODO %?\n  SCHEDULED: %t\n")
+        ("K" "Cliplink capture task" entry (file "~/Documents/Agenda/Tasks.org")
+         "* TODO %(org-cliplink-capture) \n  SCHEDULED: %t\n" :empty-lines 1)))
+(define-key global-map "\C-cc" 'org-capture)

.emacs.rc/org-cliplink-rc.el

@@ -0,0 +1,19 @@
+(rc/require 'org-cliplink)
+
+(when (eq system-type 'gnu/linux)
+  (custom-set-variables
+   '(org-cliplink-transport-implementation (quote url-el))))
+
+(global-set-key (kbd "C-x p i") 'org-cliplink)
+
+(defun rc/cliplink-task ()
+  (interactive)
+  (org-cliplink-retrieve-title
+   (substring-no-properties (current-kill 0))
+   '(lambda (url title)
+      (insert (if title
+                  (concat "* TODO " title
+                          "\n  [[" url "][" title "]]")
+                (concat "* TODO " url
+                        "\n  [[" url "]]"))))))
+(global-set-key (kbd "C-x p t") 'rc/cliplink-task)

.emacs.rc/org-mode-rc.el

@@ -0,0 +1,59 @@
+(global-set-key (kbd "C-x a") 'org-agenda)
+(global-set-key (kbd "C-c C-x j") #'org-clock-jump-to-current-clock)
+
+(setq org-agenda-files (list "~/Documents/Agenda/"))
+
+(setq org-export-backends '(md))
+
+(custom-set-variables
+ '(org-modules
+   (quote
+    (org-bbdb
+     org-bibtex
+     org-docview
+     org-gnus
+     org-habit
+     org-info
+     org-irc
+     org-mhe
+     org-rmail
+     org-w3m)))
+ '(org-enforce-todo-dependencies nil)
+ '(org-agenda-dim-blocked-tasks nil)
+ '(org-agenda-exporter-settings
+   (quote ((org-agenda-tag-filter-preset (list "+personal")))))
+ '(org-refile-use-outline-path (quote file)))
+
+(defun rc/org-increment-move-counter ()
+  (interactive)
+
+  (defun default (x d)
+    (if x x d))
+
+  (let* ((point (point))
+         (move-counter-name "MOVE_COUNTER")
+         (move-counter-value (-> (org-entry-get point move-counter-name)
+                                 (default "0")
+                                 (string-to-number)
+                                 (1+))))
+    (org-entry-put point move-counter-name
+                   (number-to-string move-counter-value)))
+  nil)
+
+(defun rc/org-get-heading-name ()
+  (nth 4 (org-heading-components)))
+
+(defun rc/org-kill-heading-name-save ()
+  (interactive)
+  (let ((heading-name (rc/org-get-heading-name)))
+    (kill-new heading-name)
+    (message "Kill \"%s\"" heading-name)))
+
+(global-set-key (kbd "C-x p w") 'rc/org-kill-heading-name-save)
+
+(setq org-agenda-custom-commands
+      '(("u" "Unscheduled" tags "+personal-SCHEDULED={.+}-DEADLINE={.+}/!+TODO"
+         ((org-agenda-sorting-strategy '(priority-down))))
+        ("p" "Personal" ((agenda "" ((org-agenda-tag-filter-preset (list "+personal"))))))
+        ("w" "Work" ((agenda "" ((org-agenda-tag-filter-preset (list "+work"))))))
+        ))

.emacs.rc/paredit-rc.el

@@ -0,0 +1,12 @@
+(rc/require 'paredit)
+
+(defun rc/turn-on-paredit ()
+  (interactive)
+  (paredit-mode 1))
+
+(add-hook 'emacs-lisp-mode-hook  'rc/turn-on-paredit)
+(add-hook 'clojure-mode-hook     'rc/turn-on-paredit)
+(add-hook 'lisp-mode-hook        'rc/turn-on-paredit)
+(add-hook 'common-lisp-mode-hook 'rc/turn-on-paredit)
+(add-hook 'scheme-mode-hook      'rc/turn-on-paredit)
+(add-hook 'racket-mode-hook      'rc/turn-on-paredit)

.emacs.rc/powershell-rc.el

@@ -0,0 +1,3 @@
+(rc/require 'powershell)
+(add-to-list 'auto-mode-alist '("\\.ps1\\'" . powershell-mode))
+(add-to-list 'auto-mode-alist '("\\.psm1\\'" . powershell-mode))

.emacs.rc/rainbow-rc.el

@@ -0,0 +1,12 @@
+(rc/require 'rainbow-mode)
+
+(defun rc/turn-on-rainbow-mode ()
+  (interactive)
+  (rainbow-mode 1))
+
+(add-hook 'html-mode-hook 'rc/turn-on-rainbow-mode)
+(add-hook 'css-mode-hook  'rc/turn-on-rainbow-mode)
+(add-hook 'js-mode-hook   'rc/turn-on-rainbow-mode)
+(add-hook 'nxml-mode-hook 'rc/turn-on-rainbow-mode)
+(add-hook 'conf-xdefaults-mode-hook 'rc/turn-on-rainbow-mode)
+(add-hook 'typescript-mode-hook 'rc/turn-on-rainbow-mode)

.emacs.rc/rc.el

@@ -0,0 +1,68 @@
+(add-to-list 'package-archives
+             '("melpa" . "https://melpa.org/packages/") t)
+;; (add-to-list 'package-archives
+;;              '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+
+(defvar rc/package-contents-refreshed nil)
+(defvar rc/required-packages nil)
+
+(defun rc/package-refresh-contents-once ()
+  (when (not rc/package-contents-refreshed)
+    (setq rc/package-contents-refreshed t)
+    (package-refresh-contents)))
+
+(defun rc/require-one-package (package)
+  (push package rc/required-packages)
+  (when (not (package-installed-p package))
+    (rc/package-refresh-contents-once)
+    (package-install package)))
+
+(defun rc/require (&rest packages)
+  (dolist (package packages)
+    (rc/require-one-package package)))
+
+(defun rc/require-theme (theme)
+  (let ((theme-package (->> theme
+                            (symbol-name)
+                            (funcall (-flip #'concat) "-theme")
+                            (intern))))
+    (rc/require theme-package)
+    (load-theme theme t)))
+
+(rc/require 'dash)
+(require 'dash)
+
+(rc/require 'dash-functional)
+(require 'dash-functional)
+
+(defun rc/package-reqs (package)
+  (let ((package-desc
+         (->> package-alist
+              (alist-get package)
+              (car))))
+    (when package-desc
+      (package-desc-reqs package-desc))))
+
+(defun rc/package-dependencies (package)
+  (->> package
+       (rc/package-reqs)
+       (-map #'car)
+       (cons package)))
+
+(defun rc/package-expand-dependencies (packages)
+  (->> packages
+       (-map #'rc/package-dependencies)
+       (-flatten)
+       (remove-duplicates)))
+
+(defun rc/unused-packages ()
+  (let ((all-package (rc/package-expand-dependencies rc/required-packages)))
+    (->> package-alist
+         (-map #'car)
+         (-filter (-lambda (package)
+                    (not (-contains? all-package package)))))))
+
+(defun rc/remove-unused-packages ()
+  (interactive)
+  (message "Unused packages: %s" (rc/unused-packages)))
+

.emacs.rc/recentf-mode-rc.el

@@ -0,0 +1,3 @@
+(require 'recentf)
+(recentf-mode 1)
+(setq recentf-max-menu-items 25)

.emacs.rc/tide-rc.el

@@ -0,0 +1,7 @@
+(rc/require 'tide)
+
+(defun rc/turn-on-tide ()
+  (interactive)
+  (tide-setup))
+
+(add-hook 'typescript-mode-hook 'rc/turn-on-tide)

.emacs.rc/tramp-rc.el

@@ -0,0 +1,2 @@
+;;; http://stackoverflow.com/questions/13794433/how-to-disable-autosave-for-tramp-buffers-in-emacs
+(setq tramp-auto-save-directory "/tmp")

.emacs.rc/whitespace-mode-rc.el

@@ -0,0 +1,32 @@
+(defun rc/set-up-whitespace-handling ()
+  (interactive)
+  (whitespace-mode 1)
+  (add-to-list 'write-file-functions 'delete-trailing-whitespace))
+
+(custom-set-variables
+ '(whitespace-style (quote (face tabs spaces trailing space-before-tab
+                                 newline indentation empty space-after-tab
+                                 space-mark tab-mark))))
+
+(let ((whitespace-enabled-modes
+       '(
+         tuareg-mode-hook
+         c++-mode-hook
+         c-mode-hook
+         emacs-lisp-mode
+         java-mode-hook
+         lua-mode-hook
+         rust-mode-hook
+         scala-mode-hook
+         markdown-mode-hook
+         js2-mode-hook
+         haskell-mode-hook
+         python-mode-hook
+         erlang-mode-hook
+         asm-mode-hook
+         nasm-mode-hook
+         go-mode-hook
+         nim-mode-hook
+         )))
+  (dolist (mode whitespace-enabled-modes)
+    (add-hook mode 'rc/set-up-whitespace-handling)))

.emacs.rc/word-wrap-rc.el

@@ -0,0 +1,6 @@
+(defun rc/enable-word-wrap ()
+  (interactive)
+  (toggle-word-wrap 1))
+
+(add-hook 'markdown-mode-hook 'rc/enable-word-wrap)
+

.emacs.rc/yasnippet-rc.el

@@ -0,0 +1,8 @@
+(rc/require 'yasnippet)
+
+(require 'yasnippet)
+
+(setq yas/triggers-in-field nil)
+(setq yas-snippet-dirs '("~/.emacs.snippets/"))
+
+(yas-global-mode 1)