pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Rework this so magit doesn't rename my window every time

Browse source
This commit is contained in:
Benson Chu 2021-03-07 14:46:00 -06:00
parent 3b48440923
commit 5d0ebaa05c
2 changed files with 27 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/org-config/my-org-agenda-commands.el
View file

@ -156,14 +156,24 @@
(org-ql-indent-levels t)))
(org-ql-block '(tags "pinned")
((org-ql-block-header "Pinned Projects")
(org-ql-indent-levels nil)
(org-ql-indent-levels t)
(org-use-tag-inheritance nil)))
(agenda ""
((org-agenda-tag-filter-preset (quote ("+dev")))
(org-agenda-skip-function (lambda ()
(when (member (org-get-todo-state) '("HOLD" "TICKLER"))
(when (or (when-let (delayed (org-entry-get (point) "DELAYED"))
(org-time< (org-matcher-time "<now>") delayed))
(member (org-get-todo-state) '("HOLD" "TICKLER")))
(outline-next-heading))))
(org-super-agenda-groups '((:name "The Plan" :and (:tag "PLAN" :log nil) )
(org-super-agenda-groups '((:name "Delayed" :pred
((lambda (item)
(when-let (marker (or (get-text-property 0 'org-marker item)
(get-text-property 0 'org-hd-marker item)))
(with-current-buffer (marker-buffer marker)
(goto-char marker)
(and ;; (not (string-match-p "SCHEDULED" item))
(org-entry-get (point) "DELAYED")))))))
(:name "The Plan" :and (:tag "PLAN" :log nil))
(:name "Overdue" :and (:deadline past :log nil))
(:name "Upcoming" :and (:deadline future :not (:todo "DONE")))
(:name "Should do" :and (:scheduled past :log nil))
@ -198,11 +208,11 @@
:not (:deadline today)))))))))))
("h" "\tDev Hold and Delay"
((org-ql-block '(and (tags "dev")
(todo "TODO" "ONE" "META" "META1" "EMPTY" "SEQ")
(property "DELAYED")
(org-time<= (org-entry-get (point) "DELAYED")
(org-matcher-time "<now>")))
((org-ql-block-header "Past Delayed Projects")))
(todo "TODO" "ONE" "META" "META1" "EMPTY" "SEQ")
(property "DELAYED")
(org-time<= (org-entry-get (point) "DELAYED")
(org-matcher-time "<now>")))
((org-ql-block-header "Past Delayed Projects")))
(org-ql-block '(and (tags "dev")
(todo "TODO" "ONE" "META" "META1" "EMPTY" "SEQ")
(property "DELAYED")

12
lisp/switch-tabs.el
View file

@ -97,9 +97,15 @@
(define-minor-mode tab-switch-mode ""
nil nil tab-switch-mode-map :global t)
;; (add-hook 'after-make-frame-functions
;; #'(lambda ()
;; (tab-bar-rename-tab "scratch1")))
(defun init-tab-name (&optional frame)
(interactive)
(let* ((tab (assq 'current-tab (frame-parameter frame 'tabs)))
(tab-explicit-name (alist-get 'explicit-name tab)))
(unless tab-explicit-name
(tab-bar-rename-tab "scratch1"))))
(add-hook 'after-make-frame-functions
#'init-tab-name)
(provide 'switch-tabs)
;;; switch-tabs.el ends here