Checpoint. Org agenda does not start on today

master
Kuba Orlik 4 years ago
parent 0df5e3a2b3
commit 5e338da158

5
.gitignore vendored

@ -0,0 +1,5 @@
.DS_Store
.idea
*.log
tmp/
mu4e-accounts.el

@ -54,3 +54,168 @@
;; they are implemented. ;; they are implemented.
(setq +mu4e-backend 'offlineimap) (setq +mu4e-backend 'offlineimap)
(defun kuba/generate-mu4-context (key_ category_ name_ addresses_ fullname_ smtp-server_ smtp-port_ smtp-user_ smtp-stream-type_ inbox-prefix_)
"NAME is the name in offlineimap directory"
(let (
(key key_)
(category category_)
(name name_)
(addresses addresses_)
(fullname fullname_)
(smtp-server smtp-server_)
(smtp-port smtp-port_)
(smtp-user smtp-user_)
(smtp-stream-type smtp-stream-type_)
(inbox-prefix inbox-prefix_)
)
(message "!!! addresses %S" addresses)
(make-mu4e-context
:name (concat key "-" name)
:enter-func (lambda () (mu4e-message (concat "Entering " name " context")))
:leave-func (lambda () (setq mu4e-maildir-list nil) (mu4e-message (concat "Leaving " name " context")))
:match-func (lambda (msg)
(when msg (some
(lambda (any) any)
(mapcar (lambda (addr) (or (mu4e-message-contact-field-matches msg :to addr) (mu4e-message-contact-field-matches msg :cc addr))) addresses))))
:vars (list
`(user-mail-address . ,(car addresses))
`(user-full-name . ,fullname)
`(mu4e-compose-signature . ,fullname)
`(mu4e-drafts-folder . ,(concat "/" name "/" inbox-prefix "Drafts"))
`(mu4e-sent-folder . ,(concat "/" name "/" inbox-prefix "Sent"))
`(mu4e-trash-folder . ,(concat "/" name "/" inbox-prefix "Trash"))
`(mu4e-refile-folder . ,(lambda (msg)
(or
(some
'identity
(mapcar (lambda (addr)
(cond
((mu4e-message-contact-field-matches msg :to addr) (concat "/" name "/" inbox-prefix "Archives"))
((mu4e-message-contact-field-matches msg :from addr) (concat "/" name "/" inbox-prefix "Sent"))
(t nil)
)
)
addresses
)
)
(concat "/" name "/" inbox-prefix "Archives")
)
))
`(smtpmail-smtp-server . ,smtp-server)
`(smtpmail-smtp-service . ,smtp-port)
`(smtpmail-smtp-user . ,smtp-user)
`(smtpmail-stream-type . ,smtp-stream-type)
)
)
)
)
(defun kuba/setup-mu4e-accounts (deflist)
(setq mu4e-contexts (mapcar (lambda (def) (apply 'kuba/generate-mu4-context def)) deflist))
(setq mu4e-user-mail-address-list (apply 'append (mapcar (lambda (def) (nth 3 def)) deflist)))
(push (list (mapconcat 'identity (mapcar (lambda (def) (concat "maildir:/" (nth 2 def) "/INBOX")) deflist) " OR ") "Merged inbox" 109) mu4e-bookmarks)
(-each
(seq-group-by (lambda (def) (nth 1 def)) deflist)
(lambda (defgroup) (push (list (mapconcat 'identity (mapcar (lambda (def) (concat "maildir:/" (nth 2 def) "/INBOX")) (-slice defgroup 1)) " OR ") (nth 0 defgroup) (aref (nth 0 defgroup) 0)) mu4e-bookmarks))
)
)
(load "~/.doom.d/mu4e-accounts")
(defun mu4e-compose-new-ask-context ()
(interactive)
(mu4e-context-switch)
(mu4e-compose)
)
(custom-set-faces!
'(mu4e-header-face :inherit 'font-lock-keyword-face :weight normal)
'(mu4e-replied-face :inherit 'mu4e-header-face :slant italic)
'(mu4e-replied-face :inherit 'mu4e-header-face :slant italic)
'(mu4e-unread-face :inherit 'font-lock-keyword-face)
'(mu4e-header-marks-face :inherit 'font-lock-preprocessor-face)
'(mu4e-header-highlight-face :inherit 'hl-line :underline t :extend t)
'(org-headline-done :inherit 'org-headline-todo :foreground "#268BD2")
)
;; to fix the highlight in mu4e disappearing (https://github.com/hlissner/emacs-doom-themes/issues/504):
(after! hl-line
(setq hl-line-sticky-flag t
global-hl-line-sticky-flag t)
)
;;;;;;;;;;;;; ORG
(defun sync-org ()
(interactive)
(org-save-all-org-buffers)
(message "downloading inbox...")
;; (org-mobile-pull)
(shell-command "/home/kuba/scripts/inbox-download.sh")
;; (org-mobile-push)
(shell-command "notify-send \"org-sync finished\" --icon=ok")
(find-file "~/org/inbox.org")
(revert-buffer 1 1)
)
(map! :g "C-c m s" #'sync-org)
(defun kuba/open-org-main ()
(interactive)
(find-file "~/org/main.org")
)
(defun kuba/open-org-inbox ()
(interactive)
(find-file "~/org/inbox.org")
)
(defun kuba/open-notes ()
(interactive)
(find-file "~/Nextcloud/Notes")
)
(map! :g "M-1" #'kuba/open-org-main)
(map! :g "M-3" #'kuba/open-org-inbox)
(map! :g "M-4" #'kuba/open-notes)
(map! :g "M-c" #'org-capture)
;;;;;;;;;;;;;;; spell-fu
(after! spell-fu
(global-spell-fu-mode 0)
(add-hook 'org-mode-hook
(lambda ()
(setq spell-fu-faces-exclude '(org-meta-line org-link org-code))
(spell-fu-mode 0)))
)
;;;; popup
;;disable hiding modeline in popups
(plist-put +popup-defaults :modeline t)
;;;;;;;;;;;;;;; prettier
(after! prettier-js
(add-hook 'js2-mode-hook 'prettier-js-mode)
(add-hook 'web-mode-hook 'prettier-js-mode)
)
;;;; file editing shortcuts
(map! :g "C-a" #'move-beginning-of-line)

@ -0,0 +1,66 @@
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-agenda-custom-commands
'(("n" "Agenda and all TODOs"
((agenda "" nil)
(alltodo "" nil))
nil)
("p" . "Personal context")
("pa" "Agenda + todo"
((agenda ""
((org-agenda-span 'day)
(org-agenda-category-filter-preset 'nil)))
(alltodo "" nil))
((org-agenda-category-filter-preset
'("-work")))
nil)
("h" "Tasks on hold" todo "HOLD" nil)
("w" . "Work context")
("wa" "Agenda + todo"
((agenda ""
((org-agenda-span 'day)))
(alltodo "" nil))
nil nil)
("x" "Describe command here" alltodo ""
((org-agenda-files
'("~/org/praca.org"))))))
'(org-agenda-files '("~/org/main.org"))
'(org-agenda-span 1)
'(org-agenda-todo-ignore-scheduled 'future)
'(org-capture-templates
'(("t" "Inbox item" entry
(file "~/org/inbox.org")
"* TODO %?
CREATED: %U")
("T" "Inbox item with Capture Target" entry
(file "~/org/inbox.org")
"* TODO %? (link)
%a")
("s" "test" entry
(file "~/org/inbox.org")
"* TODO %a %?")) t)
'(org-fontify-done-headline nil)
'(org-fontify-quote-and-verse-blocks t)
'(org-fontify-whole-heading-line t)
'(org-modules '(org-bbdb org-docview org-gnus org-habit org-info))
'(org-priority-lowest 70)
'(org-refile-targets
'(("/home/kuba/org/ideas.org" :maxlevel . 2)
("/home/kuba/org/main.org" :level . 2)
("/home/kuba/org/entertainment.org" :level . 1)))
'(org-todo-keywords '((sequence "TODO" "DONE(!)" "HOLD"))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(mu4e-header-face ((t (:inherit 'font-lock-keyword-face :weight normal))))
'(mu4e-header-highlight-face ((t (:inherit 'hl-line :underline t :extend t))))
'(mu4e-header-marks-face ((t (:inherit 'font-lock-preprocessor-face))))
'(mu4e-ok-face ((t (:inherit font-lock-comment-face :foreground "black" :slant normal :weight bold))))
'(mu4e-replied-face ((t (:inherit 'mu4e-header-face :slant italic))))
'(mu4e-unread-face ((t (:inherit 'font-lock-keyword-face))))
'(org-headline-done ((t (:inherit org-headline-todo)))))

@ -112,7 +112,7 @@
;;agda ; types of types of types of types... ;;agda ; types of types of types of types...
;;cc ; C/C++/Obj-C madness ;;cc ; C/C++/Obj-C madness
;;clojure ; java with a lisp ;;clojure ; java with a lisp
;;common-lisp ; if you've seen one lisp, you've seen them all common-lisp ; if you've seen one lisp, you've seen them all
;;coq ; proofs-as-programs ;;coq ; proofs-as-programs
;;crystal ; ruby at the speed of c ;;crystal ; ruby at the speed of c
;;csharp ; unity, .NET, and mono shenanigans ;;csharp ; unity, .NET, and mono shenanigans
@ -145,7 +145,7 @@
;;nim ; python + lisp at the speed of c ;;nim ; python + lisp at the speed of c
;;nix ; I hereby declare "nix geht mehr!" ;;nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel ;;ocaml ; an objective camel
org ; organize your plain life in plain text (org +dragndrop ) ; organize your plain life in plain text
php ; perl's insecure younger brother php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more ;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional ;;purescript ; javascript, but functional
@ -164,11 +164,11 @@
;;solidity ; do you need a blockchain? No. ;;solidity ; do you need a blockchain? No.
;;swift ; who asked for emoji variables? ;;swift ; who asked for emoji variables?
;;terra ; Earth and Moon in alignment for performance. ;;terra ; Earth and Moon in alignment for performance.
web ; the tubes ;; web ; the tubes
yaml ; JSON, but readable yaml ; JSON, but readable
:email :email
(mu4e +gmail) mu4e
;;notmuch ;;notmuch
;;(wanderlust +gmail) ;;(wanderlust +gmail)

@ -48,3 +48,5 @@
;(unpin! pinned-package another-pinned-package) ;(unpin! pinned-package another-pinned-package)
;; ...Or *all* packages (NOT RECOMMENDED; will likely break things) ;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
;(unpin! t) ;(unpin! t)
(package! prettier-js)

Loading…
Cancel
Save