*** Info path
Help emacs to find the info files
-#+BEGIN_SRC emacs-lisp :tangle no
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq Info-directory-list (cons jj-info-dir
'("/usr/local/share/info/"
"/usr/local/info/"
(add-hook 'expand-expand-hook 'indent-according-to-mode)
(add-hook 'expand-jump-hook 'indent-according-to-mode)))))
#+END_SRC
-** ace-jump-mode
+** avy-mode
[2013-04-28 So 11:26]
-Quickly move around in buffers.
+avy is a GNU Emacs package for jumping to visible text using a char-based decision tree.
#+BEGIN_SRC emacs-lisp
-(use-package ace-jump-mode
- :ensure ace-jump-mode
- :commands ace-jump-mode
- :bind ("H-SPC" . ace-jump-mode))
+(use-package avy
+ :ensure avy
+ :commands (avy-goto-char avy-goto-char-2 avy-goto-line avy-goto-word-1 avy-goto-word-0 avy-isearch avy-goto-subword-0 avy-goto-subword-1 avy-copy-line avy-copy-region avy-move-line)
+ :bind (("H-SPC" . avy-goto-char-2)
+ ("M-g g" . avy-goto-line)
+ )
+ :init
+ (progn
+ (setq avy-all-windows 'all-frames)
+ (setq avi-keys '(?a ?s ?d ?e ?f ?h ?j ?k ?l ?n ?m ?v ?r ?u) )
+ )
+ :config
+ (progn
+ (bind-key "C-y" 'avy-isearch isearch-mode-map)
+ )
+)
#+END_SRC
** ace-window
[2013-04-21 So 20:27]
(use-package ace-window
:ensure ace-window
:commands ace-window
- :bind ("H-w" . ace-window))
+ :bind ("H-w" . ace-window)
+ :config
+ (progn
+ (setq aw-keys '(?a ?s ?d ?f ?j ?k ?l))
+ ))
#+END_SRC
** aggressive-indent
[2014-10-27 Mon 13:08]
(setq dired-recursive-copies (quote top))
(setq dired-recursive-deletes (quote top))
(setq dired-guess-shell-alist-user
- '(("\\.pdf\\'" "mupdf" "evince")
+ '(("\\.pdf\\'" "mupdf")
("\\.\\(?:djvu\\|eps\\)\\'" "evince")
("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog")
("\\.\\(?:xcf\\)\\'" "gimp")
** ethan-wspace
[2014-06-01 Sun 15:00]
Proper whitespace handling
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
(use-package ethan-wspace
:ensure ethan-wspace
:diminish (ethan-wspace-mode . "ew")
(setq font-lock-maximum-decoration t)))
#+END_SRC
** git commit mode
-#+BEGIN_SRC emacs-lisp
-(use-package git-commit-mode
- :ensure git-commit-mode
- :commands git-commit-mode
+#+BEGIN_SRC emacs-lisp :tangle no
+(use-package git-commit
+ :commands git-commit
:mode ("COMMIT_EDITMSG" . git-commit-mode))
#+END_SRC
** git rebase mode
-#+BEGIN_SRC emacs-lisp
-(use-package git-rebase-mode
- :ensure git-rebase-mode
- :commands git-rebase-mode
+#+BEGIN_SRC emacs-lisp :tangle no
+(use-package git-rebase
+ :commands git-rebase
:mode ("git-rebase-todo" . git-rebase-mode))
#+END_SRC
** git-gutter+
:diminish guide-key-mode
:init
(progn
- (setq guide-key/guide-key-sequence '("C-x" "C-c" "M-g"))
+ (setq guide-key/guide-key-sequence '("C-x" "C-c" "M-g" "M-s"))
(guide-key-mode 1)
(setq guide-key/recursive-key-sequence-flag t)
(setq guide-key/popup-window-position 'bottom)
:commands magit-blame-mode
:defer t)
- (use-package magit-svn
- :ensure magit-svn
- :commands (magit-svn-mode
- turn-on-magit-svn)
- :defer t)
+ ; (use-package magit-svn
+ ; :ensure magit-svn
+ ; :commands (magit-svn-mode
+ ; turn-on-magit-svn)
+ ; :defer t)
(add-hook 'magit-mode-hook 'hl-line-mode)
(defun magit-status-with-prefix ()
(unbind-key "M-h" magit-mode-map)
(unbind-key "M-s" magit-mode-map)
- (use-package magit-find-file
- :ensure magit-find-file
- :commands (magit-find-file-completing-read)
- :defer t
- :init
- (progn
- (bind-key "C-x C-f" 'magit-find-file-completing-read magit-mode-map)))
+ ; (use-package magit-find-file
+ ; :ensure magit-find-file
+ ; :commands (magit-find-file-completing-read)
+ ; :defer t
+ ; :init
+ ; (progn
+ ; (bind-key "C-x C-f" 'magit-find-file-completing-read magit-mode-map)))
(add-hook 'magit-log-edit-mode-hook
#'(lambda ()
(jump-to-register :magit-fullscreen))
(bind-key "q" 'magit-quit-session magit-status-mode-map)
+
+ (defun magit-rebase-unpushed (commit &optional args)
+ "Start an interactive rebase sequence over all unpushed commits."
+ (interactive (list (magit-get-tracked-branch)
+ (magit-rebase-arguments)))
+ (if (setq commit (magit-rebase-interactive-assert commit))
+ (magit-run-git-sequencer "rebase" "-i" commit args)
+ (magit-log-select
+ `(lambda (commit)
+ (magit-rebase-interactive (concat commit "^") (list ,@args))))))
+
+ (magit-define-popup-action 'magit-rebase-popup ?l "Rebase unpushed" 'magit-rebase-unpushed)
))
#+END_SRC
** markdown-mode
#+BEGIN_SRC emacs-lisp
(use-package tramp
:defer t
+ :disabled t
:config
(progn
(setq tramp-persistency-file-name (expand-file-name "tramp" jj-cache-dir))
Yasnippet is a template system. Type an abbreviation, expand it into
whatever the snippet holds.
#+BEGIN_SRC emacs-lisp
-(setq yas-snippet-dirs (expand-file-name "yasnippet/snippets" jj-elisp-dir))
+;(setq yas-snippet-dirs (expand-file-name "yasnippet/snippets" jj-elisp-dir))
(use-package yasnippet
:ensure yasnippet
:defer t