helm-spotify, helm-org-headlines.
This commit is contained in:
parent
c44db990f3
commit
c311adc0cd
@ -370,7 +370,7 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
;; Make mouse scrolling less jumpy.
|
;; Make mouse scrolling less jumpy.
|
||||||
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
|
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
|
||||||
|
|
||||||
(eval-after-load "subword-mode" '(progn (diminish 'subword-mode)))
|
(eval-after-load "subword-mode" '(diminish 'subword-mode))
|
||||||
|
|
||||||
(use-package load-dir
|
(use-package load-dir
|
||||||
:ensure t
|
:ensure t
|
||||||
@ -414,6 +414,7 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
(progn
|
(progn
|
||||||
(use-package ace-window
|
(use-package ace-window
|
||||||
:ensure t
|
:ensure t
|
||||||
|
:config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
|
||||||
:bind ("C-c w" . ace-select-window)))
|
:bind ("C-c w" . ace-select-window)))
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
@ -543,6 +544,16 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
;; Non-Programming Stuff
|
;; Non-Programming Stuff
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
|
|
||||||
|
(use-package helm-spotify
|
||||||
|
:ensure t
|
||||||
|
:commands helm-spotify)
|
||||||
|
|
||||||
|
(use-package edit-server
|
||||||
|
:ensure t
|
||||||
|
:disabled t
|
||||||
|
:commands edit-server-start
|
||||||
|
:idle (edit-server-start))
|
||||||
|
|
||||||
(use-package jabber
|
(use-package jabber
|
||||||
:ensure t
|
:ensure t
|
||||||
:commands jabber-connect
|
:commands jabber-connect
|
||||||
@ -570,6 +581,8 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
("C-c C-S-t" . org-todo-no-note))
|
("C-c C-S-t" . org-todo-no-note))
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
|
(setq org-habit-graph-column 50)
|
||||||
|
(setq org-habit-show-habits-only-for-today nil)
|
||||||
(unless (boundp 'org-gtd-file)
|
(unless (boundp 'org-gtd-file)
|
||||||
(defvar org-gtd-file "~/org/gtd.org"))
|
(defvar org-gtd-file "~/org/gtd.org"))
|
||||||
(unless (boundp 'org-habits-file)
|
(unless (boundp 'org-habits-file)
|
||||||
@ -797,7 +810,6 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
:idle-priority 1
|
:idle-priority 1
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(message "Setting up projectile.")
|
|
||||||
(projectile-global-mode)
|
(projectile-global-mode)
|
||||||
(setq projectile-enable-caching t)
|
(setq projectile-enable-caching t)
|
||||||
(setq projectile-completion-system 'helm)
|
(setq projectile-completion-system 'helm)
|
||||||
@ -816,6 +828,7 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
|
|
||||||
(use-package smex
|
(use-package smex
|
||||||
:ensure t
|
:ensure t
|
||||||
|
:disabled t
|
||||||
:commands smex
|
:commands smex
|
||||||
;; This is here because smex feels like part of ido
|
;; This is here because smex feels like part of ido
|
||||||
:bind ("M-x" . smex))
|
:bind ("M-x" . smex))
|
||||||
|
46
dotfiles/emacs.d/load.d/helm-org-headlines.el
Normal file
46
dotfiles/emacs.d/load.d/helm-org-headlines.el
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
(defun helm-org-agenda-files-headlines (&optional min-depth max-depth)
|
||||||
|
(interactive)
|
||||||
|
(helm :sources (helm-source-org-headlines-for-files org-agenda-files)))
|
||||||
|
|
||||||
|
|
||||||
|
(defun helm-org-goto-marker (marker)
|
||||||
|
(switch-to-buffer (marker-buffer marker))
|
||||||
|
(goto-char (marker-position marker))
|
||||||
|
(org-show-entry))
|
||||||
|
|
||||||
|
|
||||||
|
(defun helm-source-org-headlines-for-files (filenames &optional min-depth max-depth)
|
||||||
|
(unless min-depth (setq min-depth 1))
|
||||||
|
(unless max-depth (setq max-depth 8))
|
||||||
|
(helm-build-sync-source "Org Headlines"
|
||||||
|
:candidates (helm-org-get-candidates filenames)
|
||||||
|
:action 'helm-org-goto-marker
|
||||||
|
:action-transformer
|
||||||
|
(lambda (actions candidate)
|
||||||
|
'(("Go to line" . helm-org-goto-marker)
|
||||||
|
("Refile to this headline" . helm-org-headline-refile)
|
||||||
|
("Insert link to this headline"
|
||||||
|
. helm-org-headline-insert-link-to-headline)))))
|
||||||
|
|
||||||
|
(defun helm-org-headline-refile (marker)
|
||||||
|
(with-helm-current-buffer
|
||||||
|
(org-cut-subtree))
|
||||||
|
(helm-org-goto-marker marker)
|
||||||
|
(goto-char (marker-position marker))
|
||||||
|
(let (destination-level (org-current-level))
|
||||||
|
(org-end-of-subtree t t)
|
||||||
|
(org-paste-subtree (+ destination-level 1))))
|
||||||
|
|
||||||
|
(defun helm-org-get-candidates (filenames)
|
||||||
|
(-flatten
|
||||||
|
(mapcar (lambda (filename)
|
||||||
|
(helm-get-org-candidates-in-file
|
||||||
|
filename min-depth max-depth))
|
||||||
|
org-agenda-files)))
|
||||||
|
|
||||||
|
(defun helm-get-org-candidates-in-file (filename min-depth max-depth)
|
||||||
|
(with-current-buffer (find-file-noselect filename)
|
||||||
|
(save-excursion
|
||||||
|
(beginning-of-buffer)
|
||||||
|
(cl-loop while (re-search-forward org-complex-heading-regexp nil t)
|
||||||
|
collect `(,(match-string-no-properties 0) . ,(point-marker))))))
|
Loading…
Reference in New Issue
Block a user