forked from colonelpanic/dotfiles
Add 'dotfiles/emacs.d/' from commit 'c5f9655b3168095e1bbea6c597a72d9f226d1fc0'
git-subtree-dir: dotfiles/emacs.d
git-subtree-mainline: 9204319d7d29f2e51905435b589167adc368f1c9
git-subtree-split: c5f9655b31
This commit is contained in:
parent
49fd48cca7
commit
66697f744a
25
dotfiles/emacs.d/.gitignore
vendored
Normal file
25
dotfiles/emacs.d/.gitignore
vendored
Normal file
@ -0,0 +1,25 @@
|
||||
ac-comphist.dat
|
||||
auto-save-list
|
||||
eproject.lst
|
||||
*.elc
|
||||
.smex-items
|
||||
places
|
||||
backups
|
||||
eshell
|
||||
url
|
||||
bookmarks
|
||||
|
||||
elpa
|
||||
.python-environments/
|
||||
tramp
|
||||
server
|
||||
.project-roots
|
||||
custom.el
|
||||
smex-items
|
||||
ido.last
|
||||
session.*
|
||||
var
|
||||
skewer-cache
|
||||
.org-id-locations
|
||||
jabber-avatar-cache
|
||||
this-machine.el
|
0
dotfiles/emacs.d/.gitmodules
vendored
Normal file
0
dotfiles/emacs.d/.gitmodules
vendored
Normal file
34
dotfiles/emacs.d/.mc-lists.el
Normal file
34
dotfiles/emacs.d/.mc-lists.el
Normal file
@ -0,0 +1,34 @@
|
||||
;; This file is automatically generated by the multiple-cursors extension.
|
||||
;; It keeps track of your preferences for running commands with multiple cursors.
|
||||
|
||||
(setq mc/cmds-to-run-for-all
|
||||
'(
|
||||
backward-sexp
|
||||
dired-do-rename
|
||||
eval-last-sexp
|
||||
forward-sexp
|
||||
git-rebase-squash
|
||||
git-rebase-undo
|
||||
helm-show-kill-ring
|
||||
isearch-forward-regexp
|
||||
isearch-other-control-char
|
||||
isearch-printing-char
|
||||
keyboard-quit
|
||||
kill-region
|
||||
org-self-insert-command
|
||||
phi-search
|
||||
python-indent-electric-colon
|
||||
sgml-slash
|
||||
skeleton-pair-insert-maybe
|
||||
tern-ac-dot-complete
|
||||
universal-argument-minus
|
||||
wdired-finish-edit
|
||||
))
|
||||
|
||||
(setq mc/cmds-to-run-once
|
||||
'(
|
||||
delete-horizontal-space
|
||||
dired-toggle-read-only
|
||||
isearch-delete-char
|
||||
smex
|
||||
))
|
1220
dotfiles/emacs.d/init.el
Normal file
1220
dotfiles/emacs.d/init.el
Normal file
File diff suppressed because it is too large
Load Diff
87
dotfiles/emacs.d/load.d/ensime-imenu.el
Normal file
87
dotfiles/emacs.d/load.d/ensime-imenu.el
Normal file
@ -0,0 +1,87 @@
|
||||
;; (setq imenu-max-item-length 2000)
|
||||
;; (setq imenu-space-replacement nil)
|
||||
;; (setq scala-imenu:build-imenu-candidate 'ensime-imenu)
|
||||
;; (setq scala-imenu:should-flatten-index t)
|
||||
;; (defvar ensime-imenu-cache nil)
|
||||
;; (add-to-list 'scala-imenu:cleanup-hooks (lambda () (setq ensime-imenu-cache nil)))
|
||||
|
||||
|
||||
;; (defun ensime-imenu (member-name definition-type marker parents)
|
||||
;; `(,(ensime-imenu-string member-name definition-type marker parents) .
|
||||
;; ,marker))
|
||||
|
||||
;; (defun ensime-imenu-string (member-name definition-type marker parents)
|
||||
;; (let ((scala-imenu-string (car (scala-imenu:default-build-imenu-candidate
|
||||
;; member-name definition-type marker parents))))
|
||||
;; (if (equal definition-type "def")
|
||||
;; (let ((ensime-type-string
|
||||
;; (get-ensime-type member-name definition-type marker parents)))
|
||||
;; (message ensime-type-string)
|
||||
;; (format "%s%s" scala-imenu-string ensime-type-string))
|
||||
;; scala-imenu-string)))
|
||||
|
||||
;; (defun get-ensime-type (member-name definition-type marker parents)
|
||||
;; (let ((parent-name (caar parents))
|
||||
;; (parent-marker (caddar parents)))
|
||||
;; (build-method-type
|
||||
;; (plist-get (type-info member-name parent-name parent-marker) :type))))
|
||||
|
||||
;; (defun build-method-type (type-info)
|
||||
;; (format "%s: %s"
|
||||
;; (build-argument-lists (plist-get type-info :param-sections))
|
||||
;; (build-type-string (plist-get type-info :result-type))))
|
||||
|
||||
;; (defun build-argument-lists (param-list-infos)
|
||||
;; (mapconcat 'build-argument-list param-list-infos ""))
|
||||
|
||||
;; (defun build-argument-list (param-list-info)
|
||||
;; (format "(%s)" (mapconcat 'build-argument-string
|
||||
;; (plist-get param-list-info :params) ", ")))
|
||||
|
||||
;; (defun build-argument-string (param-info)
|
||||
;; (format "%s: %s" (car param-info)
|
||||
;; (build-type-string (cadr param-info))))
|
||||
|
||||
;; (defun build-type-string (type-info)
|
||||
;; (let ((name (plist-get type-info :name))
|
||||
;; (type-args (plist-get type-info :type-args)))
|
||||
;; (format "%s%s" name
|
||||
;; (if type-args
|
||||
;; (format "[%s]" (mapconcat
|
||||
;; 'build-type-string type-args ", ")) ""))))
|
||||
|
||||
;; (defun type-info (member-name type-name marker)
|
||||
;; (get-plist-by-keys '(:name) member-name
|
||||
;; (get-members type-name
|
||||
;; (get-ensime-type-info-from-mark marker))))
|
||||
|
||||
;; (defun get-members (type-name type-info-plist)
|
||||
;; (plist-get-deep (get-plist-by-keys
|
||||
;; '(:type :name) type-name
|
||||
;; (plist-get type-info-plist :interfaces)) '(:type :members)))
|
||||
|
||||
;; (defun plist-get-deep (plist keys)
|
||||
;; (cl-reduce 'plist-get keys :initial-value plist))
|
||||
|
||||
;; (defun get-plist-by-keys (keys value plist)
|
||||
;; (cl-find value plist :test 'equal
|
||||
;; :key (lambda (member)
|
||||
;; (plist-get-deep member keys))))
|
||||
|
||||
;; (defun get-ensime-type-info-from-mark (marker)
|
||||
;; (let ((cached-value (assoc marker ensime-imenu-cache)))
|
||||
;; (when (not cached-value)
|
||||
;; (progn (setq cached-value
|
||||
;; `(,marker . ,(ensime-rpc-inspect-type-at-range (get-eol-range marker))))
|
||||
;; (setq ensime-imenu-cache (cons cached-value ensime-imenu-cache))))
|
||||
;; (cdr cached-value)))
|
||||
|
||||
;; (defun get-eol-range (marker)
|
||||
;; (interactive)
|
||||
;; `(,(marker-position marker)
|
||||
;; ,(save-excursion (goto-char marker) (end-of-line) (point))))
|
||||
|
||||
;; (defun msg-type-info ()
|
||||
;; (interactive)
|
||||
;; (message "%s" (build-method-type
|
||||
;; (plist-get (type-info "testFunction" "DFA" (point-marker)) :type))))
|
60
dotfiles/emacs.d/load.d/mu4e.el
Normal file
60
dotfiles/emacs.d/load.d/mu4e.el
Normal file
@ -0,0 +1,60 @@
|
||||
(use-package s :ensure t)
|
||||
(add-to-list 'load-path (s-trim (shell-command-to-string "mu4e_directory")))
|
||||
|
||||
(use-package mu4e
|
||||
:commands mu4e
|
||||
:config
|
||||
(progn
|
||||
(setq mu4e-compose-complete-only-after nil)
|
||||
(setq mu4e-maildir "~/Mail")
|
||||
|
||||
(setq mu4e-drafts-folder "/[Gmail].Drafts")
|
||||
(setq mu4e-sent-folder "/[Gmail].Sent Mail")
|
||||
(setq mu4e-trash-folder "/[Gmail].Trash")
|
||||
|
||||
;; don't save message to Sent Messages, Gmail/IMAP takes care of this
|
||||
(setq mu4e-sent-messages-behavior 'delete)
|
||||
|
||||
;; setup some handy shortcuts
|
||||
;; you can quickly switch to your Inbox -- press ``ji''
|
||||
;; then, when you want archive some messages, move them to
|
||||
;; the 'All Mail' folder by pressing ``
|
||||
|
||||
;; allow for updating mail using 'U' in the main view:
|
||||
(setq mu4e-get-mail-command "offlineimap")
|
||||
;; show images
|
||||
(setq mu4e-show-images t)
|
||||
(add-hook 'mu4e-compose-mode-hook
|
||||
(defun my-do-compose-stuff () (flyspell-mode)))
|
||||
(setq mu4e-update-interval (* 60 20))
|
||||
|
||||
;; ;; something about ourselves
|
||||
;; (setq
|
||||
;; mu4e-compose-signature
|
||||
;; (concat
|
||||
;; "Foo X. Bar\n"
|
||||
;; "http://www.example.com\n"))
|
||||
|
||||
;; sending mail -- replace USERNAME with your gmail username
|
||||
;; also, make sure the gnutls command line utils are installed
|
||||
;; package 'gnutls-bin' in Debian/Ubuntu
|
||||
|
||||
(require 'smtpmail)
|
||||
;; (setq message-send-mail-function 'smtpmail-send-it
|
||||
;; starttls-use-gnutls t
|
||||
;; smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
|
||||
;; smtpmail-auth-credentials
|
||||
;; '(("smtp.gmail.com" 587 "USERNAME@gmail.com" nil))
|
||||
;; smtpmail-default-smtp-server "smtp.gmail.com"
|
||||
;; smtpmail-smtp-server "smtp.gmail.com"
|
||||
;; smtpmail-smtp-service 587)
|
||||
|
||||
;; alternatively, for emacs-24 you can use:
|
||||
(setq message-send-mail-function 'smtpmail-send-it
|
||||
smtpmail-stream-type 'starttls
|
||||
smtpmail-default-smtp-server "smtp.gmail.com"
|
||||
smtpmail-smtp-server "smtp.gmail.com"
|
||||
smtpmail-smtp-service 587)
|
||||
|
||||
;; don't keep message buffers around
|
||||
(setq message-kill-buffer-on-exit t)))
|
Loading…
Reference in New Issue
Block a user