sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 11:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(emacs): startup with trello-files in agenda

Browse source
This commit is contained in:
Pavel Korytov 2021-10-25 10:41:43 +03:00
parent 515101ffcd
commit 770a2421a6
2 changed files with 26 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
.emacs.d/init.el
View file

@ -1327,6 +1327,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t
:if (not my/remote-server)
:defer t
:init
(setq org-directory (expand-file-name "~/Documents/org-mode"))
:config
(setq org-startup-indented t)
(setq org-return-follows-link t)
@ -1451,7 +1453,6 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(general-nmap :keymaps 'org-mode-map
"C-x C-l" 'my/org-link-copy)
(setq org-directory (expand-file-name "~/Documents/org-mode"))
(setq org-agenda-files '("inbox.org" "projects.org" "work.org" "sem-11.org" "life.org"))
;; (setq org-default-notes-file (concat org-directory "/notes.org"))
(add-to-list 'org-global-properties
@ -1653,18 +1654,21 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"/Entered on/ %U\n"
"%a\n"))))
(setq org-trello-files
(thread-last (concat org-directory "/trello")
(directory-files)
(seq-filter
(lambda (f) (string-match-p (rx ".org" eos) f)))
(mapcar
(lambda (f) (concat org-directory "/trello/" f)))))
(use-package org-trello
:straight (:build (:not native-compile))
:commands (org-trello-mode)
:init
(setq org-trello-current-prefix-keybinding "C-c o")
(setq org-trello-files
(thread-last (concat org-directory "/trello")
(directory-files)
(seq-filter
(lambda (f) (string-match-p (rx ".org" eos) f)))
(mapcar
(lambda (f) (concat org-directory "/trello/" f)))))
(setq org-trello-add-tags nil)
(add-hook 'org-mode-hook
(lambda ()
(when (string-match-p (rx "trello") (or (buffer-file-name) ""))
@ -1696,7 +1700,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(todo)
(deadline))
((org-agenda-files ',org-trello-files)
(org-ql-block-header "Trello")))
(org-ql-block-header "Trello assigned")))
(tags-todo "inbox"
((org-agenda-overriding-header "Inbox")
(org-agenda-prefix-format " %i %-12:c")

21
Emacs.org
View file

@ -2348,6 +2348,8 @@ Use the built-in org mode.
:straight t
:if (not my/remote-server)
:defer t
:init
(setq org-directory (expand-file-name "~/Documents/org-mode"))
:config
(setq org-startup-indented t)
(setq org-return-follows-link t)
@ -2686,7 +2688,6 @@ Some inspiration:
Used files
#+begin_src emacs-lisp :tangle no :noweb-ref org-productivity-setup
(setq org-directory (expand-file-name "~/Documents/org-mode"))
(setq org-agenda-files '("inbox.org" "projects.org" "work.org" "sem-11.org" "life.org"))
;; (setq org-default-notes-file (concat org-directory "/notes.org"))
#+end_src
@ -2745,6 +2746,16 @@ Some of the projects I'm participating in are managed via Trello, so I use [[htt
Also, trello files are huge and have a lot of information and tasks which do not concern me, so I don't add them to =org-agenda-files=.
#+begin_src emacs-lisp
(setq org-trello-files
(thread-last (concat org-directory "/trello")
(directory-files)
(seq-filter
(lambda (f) (string-match-p (rx ".org" eos) f)))
(mapcar
(lambda (f) (concat org-directory "/trello/" f)))))
#+end_src
#+begin_src emacs-lisp
(use-package org-trello
:straight (:build (:not native-compile))
@ -2752,13 +2763,7 @@ Also, trello files are huge and have a lot of information and tasks which do not
:init
(setq org-trello-current-prefix-keybinding "C-c o")
(setq org-trello-add-tags nil)
(setq org-trello-files
(thread-last (concat org-directory "/trello")
(directory-files)
(seq-filter
(lambda (f) (string-match-p (rx ".org" eos) f)))
(mapcar
(lambda (f) (concat org-directory "/trello/" f)))))
(add-hook 'org-mode-hook
(lambda ()
(when (string-match-p (rx "trello") (or (buffer-file-name) ""))