move org-projectile and other tweaks

This commit is contained in:
Ivan Malison 2016-06-15 17:58:20 -07:00
parent 03730f5a64
commit 3ded6ed793

View File

@ -80,7 +80,7 @@ These definitions silence the byte-compiler
(when imalison:secure (imalison:use-https-and-tls)) (when imalison:secure (imalison:use-https-and-tls))
#+END_SRC #+END_SRC
** Archive Setup ** ELPA Archive Setup
#+BEGIN_SRC emacs-lisp -n -r #+BEGIN_SRC emacs-lisp -n -r
(require 'package) (require 'package)
@ -89,7 +89,7 @@ These definitions silence the byte-compiler
(format "%s://%s" protocol uri)) (format "%s://%s" protocol uri))
(defvar imalison:package-archive-triples (defvar imalison:package-archive-triples
'(("elpa" "tromey.com/elpa/" nil) '(("elpa" "tromey.com/elpa/" "http")
;; ("marmalade" "marmalade-repo.org/packages/") (ref:marmalade) ;; ("marmalade" "marmalade-repo.org/packages/") (ref:marmalade)
("org" "orgmode.org/elpa/" "http") (ref:org setup) ("org" "orgmode.org/elpa/" "http") (ref:org setup)
("melpa" "melpa.org/packages/" nil))) ("melpa" "melpa.org/packages/" nil)))
@ -1082,6 +1082,7 @@ Sets environment variables by starting a shell
;; within the appropriate time period, and there is now no point in ;; within the appropriate time period, and there is now no point in
;; attempting it. ;; attempting it.
'
;; CANCELED - For whatever reason, this TODO should no longer be ;; CANCELED - For whatever reason, this TODO should no longer be
;; attempted. This TODO is typically used in contrast to the ;; attempted. This TODO is typically used in contrast to the
;; EXPIRED TODO to indicate that the owner is not necessarily to ;; EXPIRED TODO to indicate that the owner is not necessarily to
@ -1108,6 +1109,31 @@ Sets environment variables by starting a shell
(add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t))) (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode))) (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)))
#+END_SRC #+END_SRC
*** org-projectile
#+BEGIN_SRC emacs-lisp
(defvar org-projectile-file-path "~/Projects/org-projectile")
(use-package org-projectile
:load-path org-projectile-file-path
:after helm
:bind (("C-c n p" . imalison:helm-org-todo))
:config
(progn
(org-projectile:prompt)
(add-to-list 'org-capture-templates
(org-projectile:project-todo-entry
"l" "* TODO %? %a\n" "Linked Project TODO"))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(setq org-confirm-elisp-link-function nil)
(imalison:add-to-org-agenda-files (org-projectile:todo-files))
(defun imalison:helm-org-todo (&optional arg)
(interactive "P")
(helm :sources (list (helm-source-org-capture-templates)
(org-projectile:helm-source
(if arg (org-capture-make-linked-todo-template)
(org-capture-make-todo-template))))
:candidate-number-limit 99999
:buffer "*helm org capture templates*"))))
#+END_SRC
** Navigation/Completion ** Navigation/Completion
*** helm *** helm
I use helm for almost all emacs completion I use helm for almost all emacs completion
@ -1195,27 +1221,6 @@ I use helm for almost all emacs completion
(let ((option (read-string "Extra options: " (or helm-ag--extra-options "") (let ((option (read-string "Extra options: " (or helm-ag--extra-options "")
'helm-ag--extra-options-history))) 'helm-ag--extra-options-history)))
(setq helm-ag--extra-options option))))) (setq helm-ag--extra-options option)))))
(use-package org-projectile
:demand t
:bind (("C-c n p" . imalison:helm-org-todo))
:config
(progn
(org-projectile:prompt)
(add-to-list 'org-capture-templates
(org-projectile:project-todo-entry
"l" "* TODO %? %a\n" "Linked Project TODO"))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(setq org-confirm-elisp-link-function nil)
(imalison:add-to-org-agenda-files (org-projectile:todo-files))
(defun imalison:helm-org-todo (&optional arg)
(interactive "P")
(helm :sources (list (helm-source-org-capture-templates)
(org-projectile:helm-source
(if arg (org-capture-make-linked-todo-template)
(org-capture-make-todo-template))))
:candidate-number-limit 99999
:buffer "*helm org capture templates*"))))
(helm-mode 1))) (helm-mode 1)))
#+END_SRC #+END_SRC
[[(helm split window)][Ensure that helm buffers are started in the window that currently holds the focus]] [[(helm split window)][Ensure that helm buffers are started in the window that currently holds the focus]]
@ -1858,7 +1863,7 @@ crux-reopen-as-root-mode makes it so that any file owned by root will automatica
The packages in this section provide no functionality on their own, but support other packages by providing useful elisp functions. The packages in this section provide no functionality on their own, but support other packages by providing useful elisp functions.
*** s *** s
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package s) (use-package s :demand t)
#+END_SRC #+END_SRC
*** gh *** gh
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -2143,8 +2148,10 @@ Not really sure what this is
#+END_SRC #+END_SRC
*** mu4e *** mu4e
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 's)
(defvar mu4e-elisp-directory (s-trim (shell-command-to-string "mu4e_directory")))
(use-package mu4e (use-package mu4e
:load-path (s-trim (shell-command-to-string "mu4e_directory")) :load-path mu4e-elisp-directory
:ensure nil :ensure nil
:commands (mu4e mu4e-view-message-with-msgid mu4e-update-index email) :commands (mu4e mu4e-view-message-with-msgid mu4e-update-index email)
:bind ("C-c 0" . email) :bind ("C-c 0" . email)
@ -2495,6 +2502,7 @@ This is useful with server mode when editing gmail messages. I think that it is
*** android-mode *** android-mode
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package android-mode (use-package android-mode
:after s
:config :config
(progn (progn
(setq android-mode-sdk-dir (setq android-mode-sdk-dir