Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add dape

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-07-16 03:23:03 -07:00
parent 9c0a9df549
commit 024e3ebf85
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
init.el
View File

@ -57,6 +57,10 @@
(describe-symbol (cadr form)) (describe-symbol (cadr form))
(describe-symbol form)))) (describe-symbol form))))
;; Increase responsiveness
(setq gc-cons-threshold 80000000
read-process-output-max (* 1024 1024)) ;; 1mb
;; Terminal mouse support ;; Terminal mouse support
(xterm-mouse-mode 1) (xterm-mouse-mode 1)
@ -111,6 +115,9 @@
;; Visual line mode ;; Visual line mode
(global-visual-line-mode 1) (global-visual-line-mode 1)
;; Make some commands easier to enter multiple times
(repeat-mode 1)
;; Set fonts ;; Set fonts
(add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font Mono-12")) (add-to-list 'default-frame-alist '(font . "FiraCode Nerd Font Mono-12"))
(add-hook 'server-after-make-frame-hook (add-hook 'server-after-make-frame-hook
@ -451,7 +458,9 @@ visual states."
(let ((completion-styles '(basic emacs21 flex))) (let ((completion-styles '(basic emacs21 flex)))
(apply oldfun args))) (apply oldfun args)))
(advice-add 'company-capf :around 'my/-company-set-completion-styles) (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)) (setq company-transformers '(company-sort-by-occurrence))
(global-company-mode 1)) (global-company-mode 1))
(use-package company-quickhelp (use-package company-quickhelp
@ -667,6 +676,18 @@ to `posframe-show' if the display is graphical."
(kbd "RET") #'gdb-select-thread (kbd "RET") #'gdb-select-thread
(kbd "<mouse-2>") #'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 ;; dumb-jump
(use-package dumb-jump (use-package dumb-jump
:init :init
@ -1324,6 +1345,8 @@ If no name is given, list all bookmarks instead."
("x" . helpful-command) ("x" . helpful-command)
("F" . helpful-function) ("F" . helpful-function)
:map helpful-mode-map :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-back)
("<normal-state>>" . my/helpful-history-forward)) ("<normal-state>>" . my/helpful-history-forward))
:init :init