Browse Source

agenda with month view instead of dashboard

dev
Gator 4 months ago
parent
commit
66b94f9071
  1. 82
      init.el
  2. 72
      init.org

82
init.el

@ -8,7 +8,7 @@
;; packages
(require 'package)
(package-initialize)
;; (package-initialize)
;; (setq package-enable-at-startup nil)
(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")))
@ -361,7 +361,8 @@
(marginalia-mode))
(use-package dashboard
:ensure t
:disabled
;; :ensure t
:general
(leader-def "D"
'((lambda () (interactive) (switch-to-buffer "*dashboard*"))
@ -402,7 +403,8 @@
;; Global settings (defaults)
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
doom-themes-enable-italic t) ; if nil, italics is universally disabled
(load-theme 'doom-plain-dark t)
;; (load-theme 'doom-plain-dark t)
(load-theme 'doom-rouge t)
;; Corrects (and improves) org-mode's native fontification.
(doom-themes-org-config)
;; A cosmetic bug is making org blocks header and footer "leak" through section header when folded
@ -417,19 +419,21 @@
;; :ensure t
:hook (after-init . doom-modeline-mode))
;; display battery power
;; (setq battery-mode-line-format "[%p (%t)] ")
;; (display-battery-mode t)
;; display battery power
;; (setq battery-mode-line-format "[%p (%t)] ")
;; (display-battery-mode t)
;; display time
;; display time
;; (display-time-mode t)
(setq display-time-mail-string "")
(setq display-time-mail-string "")
;; (setq display-time-day-and-date t)
;; (setq display-time-24hr-format t)
;; (setq display-time-format "%R (%d/%m/%y) ")
(setq inhibit-startup-screen t)
(setq inhibit-startup-echo-area-message t)
(column-number-mode)
(setq inhibit-startup-screen t)
(add-hook 'after-init-hook #'org-todo-list)
(setq inhibit-startup-echo-area-message t)
(column-number-mode)
(use-package diminish
:ensure t
@ -443,8 +447,7 @@
(leader-def
"o" '(:ignore t :which-key "Org Mode")
"A" '(org-todo-list :which-key "Todo list")
"oa" '(org-agenda-show-scheduled :which-key "Show scheduled tasks")
"A" '((lambda () (interactive) (org-agenda nil "c")) :which-key "Agenda")
"ob" '(org-capture-goto-target :which-key "Browse capture files")
"oc" '(org-capture :which-key "Capture notes")
"oT" '(org-babel-tangle :which-key "Tangle")
@ -472,18 +475,23 @@
;; (setq-default org-display-custom-times t)
;; (setq org-time-stamp-custom-formats '("<%d/%m/%y>" . "<%d/%m/%y - %R>"))
(defun org-agenda-show-scheduled (&optional arg)
(interactive "P")
(org-agenda arg "n"))
(setq org-agenda-window-setup (quote current-window))
(setq org-agenda-files (list
"~/Documents/orgfiles/todo.org"))
(setq org-agenda-todo-list-sublevels nil)
(setq org-todo-keywords
'((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d)" "DELAYED(D)")))
(use-package org-agenda
:after org
:config
(setq org-agenda-window-setup 'current-window ;; Open org-agenda in current window
org-agenda-span 'month
org-agenda-skip-scheduled-if-done nil
org-agenda-start-on-weekday 1
org-agenda-files (list "~/Documents/orgfiles/todo.org")
org-todo-keywords
'((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d)" "DELAYED(D)"))
)
(setq org-agenda-custom-commands
'(("c" "Simple agenda view"
((agenda "")
(alltodo "")))))
)
(setq org-support-shift-select 'always)
(add-hook 'org-shiftup-final-hook 'windmove-up)
@ -993,17 +1001,17 @@
:config
(setq typescript-indent-level 2))
(use-package vue-mode
:ensure t
:defer t
:config
(setq mmm-js-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(setq mmm-typescript-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(add-hook 'mmm-mode-hook
(lambda ()
(set-face-background 'mmm-default-submode-face nil)))
(add-to-list 'auto-mode-alist '("\\.vue\\'" . vue-mode))
)
(use-package vue-mode
:ensure t
:defer t
:config
;;(setq mmm-js-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
;; (setq mmm-typescript-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(add-hook 'mmm-mode-hook
(lambda ()
(set-face-background 'mmm-default-submode-face nil)))
(add-to-list 'auto-mode-alist '("\\.vue\\'" . vue-mode))
)
(use-package yaml-mode
:ensure t
@ -1018,7 +1026,7 @@
;;(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(use-package esup
:disabled
;;:disabled
:ensure t
;; To use MELPA Stable use ":pin melpa-stable",
:pin melpa

72
init.org

@ -11,7 +11,7 @@
;; packages
(require 'package)
(package-initialize)
;; (package-initialize)
;; (setq package-enable-at-startup nil)
(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")))
@ -473,7 +473,8 @@ Use counsel for autocompleting projectile things like =projectile-grep=
** Dashboard
#+BEGIN_SRC emacs-lisp
(use-package dashboard
:ensure t
:disabled
;; :ensure t
:general
(leader-def "D"
'((lambda () (interactive) (switch-to-buffer "*dashboard*"))
@ -516,7 +517,8 @@ Use counsel for autocompleting projectile things like =projectile-grep=
;; Global settings (defaults)
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
doom-themes-enable-italic t) ; if nil, italics is universally disabled
(load-theme 'doom-plain-dark t)
;; (load-theme 'doom-plain-dark t)
(load-theme 'doom-rouge t)
;; Corrects (and improves) org-mode's native fontification.
(doom-themes-org-config)
;; A cosmetic bug is making org blocks header and footer "leak" through section header when folded
@ -533,19 +535,21 @@ Use counsel for autocompleting projectile things like =projectile-grep=
;; :ensure t
:hook (after-init . doom-modeline-mode))
;; display battery power
;; (setq battery-mode-line-format "[%p (%t)] ")
;; (display-battery-mode t)
;; display battery power
;; (setq battery-mode-line-format "[%p (%t)] ")
;; (display-battery-mode t)
;; display time
;; display time
;; (display-time-mode t)
(setq display-time-mail-string "")
(setq display-time-mail-string "")
;; (setq display-time-day-and-date t)
;; (setq display-time-24hr-format t)
;; (setq display-time-format "%R (%d/%m/%y) ")
(setq inhibit-startup-screen t)
(setq inhibit-startup-echo-area-message t)
(column-number-mode)
(setq inhibit-startup-screen t)
(add-hook 'after-init-hook #'org-todo-list)
(setq inhibit-startup-echo-area-message t)
(column-number-mode)
#+END_SRC
** Diminish (Stop displaying some minor modes)
#+BEGIN_SRC emacs-lisp
@ -564,8 +568,7 @@ Use counsel for autocompleting projectile things like =projectile-grep=
#+BEGIN_SRC emacs-lisp
(leader-def
"o" '(:ignore t :which-key "Org Mode")
"A" '(org-todo-list :which-key "Todo list")
"oa" '(org-agenda-show-scheduled :which-key "Show scheduled tasks")
"A" '((lambda () (interactive) (org-agenda nil "c")) :which-key "Agenda")
"ob" '(org-capture-goto-target :which-key "Browse capture files")
"oc" '(org-capture :which-key "Capture notes")
"oT" '(org-babel-tangle :which-key "Tangle")
@ -613,21 +616,20 @@ Just a slight bit of eye-candy. Successor to ~org-bullets~
:after org
:config
(setq org-agenda-window-setup 'current-window ;; Open org-agenda in current window
org-agenda-span 'day
org-agenda-span 'month
org-agenda-skip-scheduled-if-done nil
org-agenda-start-on-weekday 1
org-agenda-files (list "~/Documents/orgfiles/todo.org")
org-todo-keywords
'((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d)" "DELAYED(D)"))
)
(setq org-agenda-custom-commands
'(("c" "Simple agenda view"
((agenda "")
(alltodo "")))))
)
#+end_src
** Agenda view functions
#+begin_src elisp
(defun org-agenda-show-scheduled (&optional arg)
(interactive "P")
(org-agenda arg "n"))
#+end_src
** Switching between windows
There is a conflict between the bindings of org-selection-mode and some other modes (CUA, moving through windows, etc.)
Those settings correct this problem. See this link for more details : [[https://orgmode.org/manual/Conflicts.html][15.12.2 Packages that conflict with Org mode]]
@ -1263,17 +1265,17 @@ From https://arenzana.org/2019/12/emacs-go-mode-revisited/
#+END_SRC
** Vue.js
#+BEGIN_SRC emacs-lisp
(use-package vue-mode
:ensure t
:defer t
:config
(setq mmm-js-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(setq mmm-typescript-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(add-hook 'mmm-mode-hook
(lambda ()
(set-face-background 'mmm-default-submode-face nil)))
(add-to-list 'auto-mode-alist '("\\.vue\\'" . vue-mode))
)
(use-package vue-mode
:ensure t
:defer t
:config
;;(setq mmm-js-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
;; (setq mmm-typescript-mode-enter-hook (lambda () (setq syntax-ppss-table nil)))
(add-hook 'mmm-mode-hook
(lambda ()
(set-face-background 'mmm-default-submode-face nil)))
(add-to-list 'auto-mode-alist '("\\.vue\\'" . vue-mode))
)
#+END_SRC
** Yaml
#+BEGIN_SRC emacs-lisp
@ -1296,7 +1298,7 @@ For docker-compose completion
#+begin_src elisp
(use-package esup
:disabled
:ensure t
;; :ensure t
;; To use MELPA Stable use ":pin melpa-stable",
:pin melpa
:config
@ -1317,3 +1319,9 @@ For docker-compose completion
* Resources
- [[https://blog.d46.us/advanced-emacs-startup/][Joe Schafer's Blog - advanced Techniques for Reducing Emacs Startup Time]]
- [[http://cachestocaches.com/2017/3/complete-guide-email-emacs-using-mu-and-/][Caches to Caches - A Complete Guide to Email in Emacs using Mu and Mu4e]]
* Todo
- Enable auto-revert globally
- Enable the "stop clocking when inactive during x amount of time" thingie
- Set up LSP
- Set up autocomplete

Loading…
Cancel
Save