org customizations

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)
+