From ac5580082d352b449767a432e44799d86a090d2f Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 19:07:59 +0000 Subject: added DEFERRED todo keyword --- init.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 30f3ffb..e19d971 100644 --- a/init.el +++ b/init.el @@ -800,7 +800,8 @@ If failed try to complete the common part with `company-complete-common'" '("+LEVEL=2/+PROJECT" ("NEXT" "DOING") nil "")) (setq org-todo-keywords - (quote ((sequence "TODO(t)" "NEXT(n)" "DOING(D)" "PROJECT(p)" "|" "DONE(d!)") + (quote ((sequence "TODO(t)" "|" "DEFERRED(r@/!)") + (sequence "TODO(t)" "NEXT(n)" "DOING(D)" "PROJECT(p)" "|" "DONE(d!)") (sequence "WAITING(w@/!)" "SOMEDAY(s@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) -- cgit v1.2.3 From 591f62b2ea58fb93035355033c0591c6de4a2e09 Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 19:08:25 +0000 Subject: babel for python --- init.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/init.el b/init.el index e19d971..983b640 100644 --- a/init.el +++ b/init.el @@ -31,6 +31,13 @@ ;; Garbage collection (setq gc-cons-percentage 0.6) +;; Babel +(org-babel-do-load-languages + 'org-babel-load-languages + '((emacs-lisp . t) + (python . t) + (clojure . t))) + ;; MISC optimizations (setq idle-update-delay 1.0) (setq-default bidi-display-reordering 'left-to-right -- cgit v1.2.3 From c98e9a1656137157f212bd4bf38726835ca2dbe2 Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 19:08:41 +0000 Subject: added some comments --- init.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 983b640..da1ec8f 100644 --- a/init.el +++ b/init.el @@ -53,21 +53,23 @@ ;; turn off flycheck-mode (add-hook 'org-mode-hook (lambda () flycheck-mode -1)) +;; ID basics (setq user-full-name "Matthew Lemon" user-mail-address "matt@matthewlemon.com") +;; redundant function (defun establish-machine () (let ((sys (system-name))) (if (string= sys "archdesk") (setq mrl/computer 'desktop) (setq mrl/computer 'laptop)))) - (establish-machine) ;; handier undo (global-unset-key "\C-z") (global-set-key "\C-z" 'advertised-undo) +;; UI (setq inhibit-startup-message 1) (scroll-bar-mode -1) (tool-bar-mode -1) @@ -111,6 +113,7 @@ ;; Display the current time (display-time-mode t) +;; Simply has to be done (setq visible-bell t) ;; font @@ -122,6 +125,7 @@ (when (member "Hack" (font-family-list)) (add-to-list 'default-frame-alist '(font . "Hack-10"))))) +;; theme (use-package gruber-darker-theme :ensure t :config -- cgit v1.2.3 From 35d521e395a29a416c7c8e9f8a762b2585a90c41 Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 19:59:42 +0000 Subject: added calfw calendar --- custom.el | 2 +- init.el | 13 +++++++++++++ 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/custom.el b/custom.el index 39fa61d..463885c 100644 --- a/custom.el +++ b/custom.el @@ -9,7 +9,7 @@ '(display-line-numbers-type 'relative t) '(display-time-mode t) '(package-selected-packages - '(unicode-fonts deft cider org-roam org yasnippet-snippets which-key vterm use-package rainbow-delimiters pdf-tools paredit notmuch magit ledger-mode gruvbox-theme flycheck expand-region evil elpy elfeed-score diminish counsel cmake-mode browse-kill-ring beacon auto-package-update amx ace-window ace-jump-mode)) + '(calfw-org calfw unicode-fonts deft cider org-roam org yasnippet-snippets which-key vterm use-package rainbow-delimiters pdf-tools paredit notmuch magit ledger-mode gruvbox-theme flycheck expand-region evil elpy elfeed-score diminish counsel cmake-mode browse-kill-ring beacon auto-package-update amx ace-window ace-jump-mode)) '(tool-bar-mode nil)) (custom-set-faces ;; custom-set-faces was added by Custom. diff --git a/init.el b/init.el index da1ec8f..4b24a65 100644 --- a/init.el +++ b/init.el @@ -165,6 +165,19 @@ (prefer-coding-system 'utf-8) (setq coding-system-for-read 'utf-8) (setq coding-system-for-write 'utf-8) +(setq coding-system-for-write 'utf-8) + +;; calfw +(use-package calfw-org + :ensure t + :config + (setq cfw:org-agenda-schedule-args '(:timestamp)) + (defun mrl/calf-org-calendar () + (interactive) + (cfw:open-calendar-buffer + :contents-sources + (list + (cfw:org-create-source "Orange"))))) ;; Yasnippet (use-package yasnippet -- cgit v1.2.3 From ce6687682e8afbffe9fa5c7ad59a98125f79ac8e Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 19:59:58 +0000 Subject: formatting changes --- init.el | 52 ++++++++++++++++++++++++---------------------------- 1 file changed, 24 insertions(+), 28 deletions(-) diff --git a/init.el b/init.el index 4b24a65..45f1c30 100644 --- a/init.el +++ b/init.el @@ -164,7 +164,6 @@ ;; encoding (prefer-coding-system 'utf-8) (setq coding-system-for-read 'utf-8) - (setq coding-system-for-write 'utf-8) (setq coding-system-for-write 'utf-8) ;; calfw @@ -181,25 +180,25 @@ ;; Yasnippet (use-package yasnippet -:diminish yas-minor-mode - :hook ((prog-mode LaTeX-mode org-mode) . yas-minor-mode) - :bind - (:map yas-minor-mode-map ("C-c C-n" . yas-expand-from-trigger-key)) - (:map yas-keymap - (("TAB" . smarter-yas-expand-next-field) - ([(tab)] . smarter-yas-expand-next-field))) - :config - (use-package yasnippet-snippets) - (yas-reload-all) - (defun smarter-yas-expand-next-field () - "Try to `yas-expand' then `yas-next-field' at current cursor position." - (interactive) - (let ((old-point (point)) - (old-tick (buffer-chars-modified-tick))) - (yas-expand) - (when (and (eq old-point (point)) - (eq old-tick (buffer-chars-modified-tick))) - (ignore-errors (yas-next-field)))))) + :diminish yas-minor-mode + :hook ((prog-mode LaTeX-mode org-mode) . yas-minor-mode) + :bind + (:map yas-minor-mode-map ("C-c C-n" . yas-expand-from-trigger-key)) + (:map yas-keymap + (("TAB" . smarter-yas-expand-next-field) + ([(tab)] . smarter-yas-expand-next-field))) + :config + (use-package yasnippet-snippets) + (yas-reload-all) + (defun smarter-yas-expand-next-field () + "Try to `yas-expand' then `yas-next-field' at current cursor position." + (interactive) + (let ((old-point (point)) + (old-tick (buffer-chars-modified-tick))) + (yas-expand) + (when (and (eq old-point (point)) + (eq old-tick (buffer-chars-modified-tick))) + (ignore-errors (yas-next-field)))))) ;; this config works better with yasnippet (use-package company @@ -210,7 +209,7 @@ ([tab] . smarter-yas-expand-next-field-complete) ("TAB" . smarter-yas-expand-next-field-complete)) :custom - (company-tooltip-align-annotations t) + (company-tooltip-align-annotations t) (company-begin-commands '(self-insert-command)) (company-require-match 'never) ;; Don't use company in the following modes @@ -221,8 +220,8 @@ (company-show-numbers t) :config ;; clangd variable not present which was a problem -;; (unless *clangd* (delete 'company-clang company-backends)) -;; (global-company-mode 1) + ;; (unless *clangd* (delete 'company-clang company-backends)) + ;; (global-company-mode 1) (setq company-idle-delay 0) (setq company-minimum-prefix-length 3) (defun smarter-yas-expand-next-field-complete () @@ -752,10 +751,6 @@ If failed try to complete the common part with `company-complete-common'" :prepend t) ("hS" "Home Someday" entry (file+headline "~/org/home.org" "Someday") "** SOMEDAY %?\nEntered on %U\n") - ;; ("hN" "Home Note" entry (file+headline "~/org/home.org" "Notes") - ;; "** %?\nEntered on %U\n") - ;; ("hj" "Journal" entry (file+olp+datetree "~/org/home.org" "Journal") - ;; "* %?\nEntered on %U\n") ("hi" "Home Idea" entry (file+headline "~/org/home.org" "Notes") "** %? :idea:\nEntered on %U\n") ("hs" "Home Calendar - Single" entry (file+headline "~/org/home.org" "Calendar") @@ -801,13 +796,14 @@ If failed try to complete the common part with `company-complete-common'" ("idea" . ?d) ;; Context ("work" . ?w) + ("computer" .?c) ("home" . ?h) ("errand" . ?e) ("emacs" . ?E) ("orgmode" . ?o) ("joanna" . ?j) ("harvey" . ?H) - ("sophie" . ?s))) + ("sophie" . ?S))) (defun open-agenda () "Open the org-agenda." -- cgit v1.2.3 From 9dba651fd5620d5618a5b538e007a2415693a62b Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Sun, 20 Nov 2022 20:00:06 +0000 Subject: bookmarks --- bookmarks | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/bookmarks b/bookmarks index 22e5d99..c8cda0e 100644 --- a/bookmarks +++ b/bookmarks @@ -35,12 +35,12 @@ (position . 2261)) ("org-refile-last-stored" (filename . "~/org/home.org") - (front-context-string . "*** NEXT Add chr") - (rear-context-string . " Christmas 2021\n") - (position . 2261)) + (front-context-string . "** DEFERRED Chec") + (rear-context-string . ":55]\n* Deferred\n") + (position . 5024)) ("org-capture-last-stored" - (filename . "~/org-roam/daily/2022-11-18.org") - (front-context-string . "* 09:05:43: Yay!") - (rear-context-string . "tle: 2022-11-18\n") - (position . 88)) + (filename . "~/org/emacs-tips.org") + (front-context-string . "** To evaluate a") + (rear-context-string . "1-14 Mon 16:44]\n") + (position . 26724)) ) -- cgit v1.2.3