From 024e3ebf858029cc4d9dd26e4345eda9af6f6093 Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Tue, 16 Jul 2024 03:23:03 -0700
Subject: [PATCH] Add dape

---
 init.el | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 4cb9970..c0b0c13 100644
--- a/init.el
+++ b/init.el
@@ -57,6 +57,10 @@
           (describe-symbol (cadr form))
         (describe-symbol form))))
 
+  ;; Increase responsiveness
+  (setq gc-cons-threshold 80000000
+        read-process-output-max (* 1024 1024)) ;; 1mb
+
   ;; Terminal mouse support
   (xterm-mouse-mode 1)
 
@@ -111,6 +115,9 @@
   ;; Visual line mode
   (global-visual-line-mode 1)
 
+  ;; Make some commands easier to enter multiple times
+  (repeat-mode 1)
+
   ;; Set fonts
   (add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font Mono-12"))
   (add-hook 'server-after-make-frame-hook
@@ -451,7 +458,9 @@ visual states."
     (let ((completion-styles '(basic emacs21 flex)))
       (apply oldfun args)))
   (advice-add 'company-capf :around 'my/-company-set-completion-styles)
-  (setopt company-format-margin-function #'company-text-icons-margin)
+  (setopt company-format-margin-function #'company-text-icons-margin
+          company-require-match nil
+          company-tooltip-align-annotations t)
   (setq company-transformers '(company-sort-by-occurrence))
   (global-company-mode 1))
 (use-package company-quickhelp
@@ -667,6 +676,18 @@ to `posframe-show' if the display is graphical."
     (kbd "RET") #'gdb-select-thread
     (kbd "<mouse-2>") #'gdb-select-thread))
 
+;; dape
+(use-package dape
+  :hook ((after-init . dape-breakpoint-load)
+         (kill-emacs . dape-breakpoint-save)
+         (dape-start . save-some-buffers)
+         (dape-display-source . pulse-momentary-highlight-one-line))
+  :bind (:map dape-info-parent-mode-map
+         ("<tab>" . dape--info-buffer-tab))
+  :config
+  (setopt dape-buffer-window-arrangement 'right)
+  (dape-breakpoint-global-mode 1))
+
 ;; dumb-jump
 (use-package dumb-jump
   :init
@@ -1324,6 +1345,8 @@ If no name is given, list all bookmarks instead."
          ("x" . helpful-command)
          ("F" . helpful-function)
          :map helpful-mode-map
+         ("<mouse-8>" . my/helpful-history-back)
+         ("<mouse-9>" . my/helpful-history-forward)
          ("<normal-state><" . my/helpful-history-back)
          ("<normal-state>>" . my/helpful-history-forward))
   :init