From 002c98545eb799b2293ee98459d534339739b032 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Tue, 27 Jun 2023 19:53:06 +1000
Subject: buncha changes

- add gdbinit
- attempt to fix tempel in eglot (not working)
- add qutebrowser to hmm browser
- allow find file to open file:line_no
---
 emacs/.emacs.d/init/ycp-complete.el |  7 ++++---
 emacs/.emacs.d/init/ycp-editing.el  |  2 ++
 emacs/.emacs.d/init/ycp-org.el      | 10 +++++++---
 emacs/.emacs.d/init/ycp-prog.el     |  2 ++
 4 files changed, 15 insertions(+), 6 deletions(-)

(limited to 'emacs/.emacs.d/init')

diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el
index 4243311..fefe711 100644
--- a/emacs/.emacs.d/init/ycp-complete.el
+++ b/emacs/.emacs.d/init/ycp-complete.el
@@ -246,9 +246,9 @@
     "<backtab>" #'tempel-previous
     "C-S-<iso-lefttab>" #'tempel-previous)
   (require 'my-tempel)
-    (dolist (hook '(prog-mode-hook text-mode-hook))
-    (add-hook hook 'my-tempel-setup-capf))
-    )
+  (my-add-hooks #'my-tempel-setup-capf '(prog-mode-hook text-mode-hook))
+  (add-hook 'eglot-managed-mode-hook #'my-tempel-setup-capf)
+  )
 
 ;; consult-recoll
 (my-package consult-recoll
@@ -266,6 +266,7 @@
           (:name firefox :command browse-url-firefox)
           (:name firefox-private :command my-browse-url-firefox-private)
           (:name tor-browser :command my-browse-url-tor-browser)
+          (:name qutebrowser :command my-browse-url-qutebrowser)
           (:name download-and-open :command my-fetch-url)))
   (my-setq-from-local hmm-handlers)
   (setq hmm-external-handlers
diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el
index 5ed3eca..b77f1ea 100644
--- a/emacs/.emacs.d/init/ycp-editing.el
+++ b/emacs/.emacs.d/init/ycp-editing.el
@@ -73,6 +73,8 @@
     )
   (electric-pair-mode)
   (my-add-hooks #'my-non-special-modes-setup '(text-mode-hook prog-mode-hook))
+  (advice-add 'find-file :around 'my-find-file-line-number)
+  (advice-add 'find-file-other-window :around 'my-find-file-line-number)
   )
 
 (setq viper-mode nil)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index a5917a6..578932e 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -267,7 +267,7 @@
 (my-package org-clock
   (setq org-clock-history-length 100)
   (setq org-clock-in-switch-to-state "DOIN")
-  (setq org-clock-idle-time 10)
+  (setq org-clock-idle-time 15)
   (setq org-clock-mode-line-total 'auto)
   (setq org-clock-persist 'history)
   (org-clock-persistence-insinuate))
@@ -407,7 +407,8 @@
   (:delay 10)
   (require 'my-buffer)
   (add-to-list 'org-link-frame-setup
-               (cons 'file 'my-find-file-maybe-other-window)))
+               (cons 'file 'my-find-file-maybe-other-window))
+  )
 
 (my-package my-org
   (:delay 10)
@@ -416,11 +417,14 @@
     "C-c ns" #'my-org-substitute-gnus-link-after-archiving
     "C-x w" #'my-org-copy-link-at-point
     "C-'" #'my-org-store-link-and-return
-    "C-c M-w" #'my-org-copy-dwim    
+    "C-c M-w" #'my-org-copy-dwim
     "C-c <f7>" #'my-org-open-shell-at-attach-dir
     "C-M-n" #'my-org-next-block-or-results
     "C-M-p" #'my-org-previous-block-or-results)
   (add-hook 'org-follow-link-hook 'my-org-follow-link-after)
+  ;; When in prog-mode, use line number as search item.
+  (add-to-list 'org-create-file-search-functions
+               'my-link-to-line-number-in-prog-mode)
   (my-override org-insert-all-links)
   (my-override org-open-at-point-global)
   (my-override org-refile-get-targets)
diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el
index 27d860b..003e862 100644
--- a/emacs/.emacs.d/init/ycp-prog.el
+++ b/emacs/.emacs.d/init/ycp-prog.el
@@ -237,6 +237,8 @@
 
 (setq debugger-stack-frame-as-list t)
 (setq display-raw-bytes-as-hex t)
+(setq eval-expression-print-length 300)
+(setq eval-expression-print-level 10)
 
 ;;; paredit
 (my-package paredit
-- 
cgit v1.2.3