diff --git a/emacs/init.el b/emacs/init.el index 669c99e..ebfd8eb 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -141,9 +141,23 @@ :ensure t :mode (("\\.org$" . org-mode)) :bind (("C-x O a" . org-agenda) - ("C-x O c" . org-capture)) + ("C-x O c" . org-capture) + ("C-x O A" . close-all-org-agenda-buffers)) :config + (defun close-all-org-agenda-buffers () + "Close all org-agenda-related buffers." + (interactive) + (dolist (buffer (buffer-list)) + (with-current-buffer buffer + (when (or (derived-mode-p 'org-agenda-mode) + (and (buffer-file-name) + (member (buffer-file-name) (org-agenda-files)))) + (kill-buffer buffer)))) + (message "Closed all org-agenda-related buffers.")) + (defun my/org-config () + (setq org-agenda-inhibit-startup t) + (setq org-todo-keywords '((sequence "HOLD(h)" "TODO(t)" "|" "DONE(d)" "CNCL(x)"))) @@ -437,6 +451,7 @@ ;;(add-hook 'completion-at-point-functions #'cape-elisp-symbol) ;;(add-hook 'completion-at-point-functions #'cape-line)) + ;; coding ;; === (use-package fic-mode :ensure t :defer t) @@ -527,3 +542,30 @@ (global-set-key (kbd "C-x c O") 'reload-org-config) (global-set-key (kbd "C-x c r") #'reload-init-file) + + +(setq hippie-expand-try-functions-list + '(try-expand-dabbrev + try-expand-dabbrev-all-buffers + try-expand-dabbrev-from-kill + cape-file + cape-keyword + cape-elisp-symbol + cape-elisp-block + cape-abbrev + cape-line + cape-dict + cape-emoji + cape-tex + cape-sgml + cape-rfc1345 + try-complete-file-name-partially + try-complete-file-name + try-expand-all-abbrevs + try-expand-list + try-expand-line + try-complete-lisp-symbol-partially + try-complete-lisp-symbol)) + +(global-set-key (kbd "M-/") 'hippie-expand) +