diff options
Diffstat (limited to 'emacs/.emacs.d/init')
-rw-r--r-- | emacs/.emacs.d/init/ycp-basic.el | 2 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-complete.el | 2 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-editing.el | 7 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-emms.el | 3 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-gnus.el | 9 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-help.el | 2 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-prog.el | 4 |
7 files changed, 23 insertions, 6 deletions
diff --git a/emacs/.emacs.d/init/ycp-basic.el b/emacs/.emacs.d/init/ycp-basic.el index b03d0d4..12c21d1 100644 --- a/emacs/.emacs.d/init/ycp-basic.el +++ b/emacs/.emacs.d/init/ycp-basic.el @@ -49,6 +49,8 @@ (setq attempt-stack-overflow-recovery nil) (setq confirm-kill-processes nil) (setq attempt-orderly-shutdown-on-fatal-signal nil) + ;; Use visible bell instead of beeping + (setq visible-bell t) ) (my-package my-utils diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el index bd3b3ca..16ddbfe 100644 --- a/emacs/.emacs.d/init/ycp-complete.el +++ b/emacs/.emacs.d/init/ycp-complete.el @@ -155,7 +155,7 @@ #'my-corfu-enable-always-in-minibuffer 1) ;;; corfu does not work well in gud as it "flushes" completion ;;; suggestions to the buffer - (setq corfu-exclude-modes '(gud-mode)) + (setq global-corfu-modes '((not gud-mode) t)) ) ;;; We still need company mode because corfu does not work well in diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el index 203b185..81a46b1 100644 --- a/emacs/.emacs.d/init/ycp-editing.el +++ b/emacs/.emacs.d/init/ycp-editing.el @@ -38,9 +38,10 @@ (setq window-divider-default-bottom-width 1) (setq line-number-display-limit-width 9999) (setq window-divider-default-places 'bottom-only) -;; don't interpret C-m as RET -(define-key input-decode-map [?\C-m] [C-m]) -(define-key input-decode-map [?\C-i] [C-i]) +;; If run in gui, don't interpret C-m as RET +(when (display-graphic-p) + (define-key input-decode-map [?\C-m] [C-m]) + (define-key input-decode-map [?\C-i] [C-i])) ;; fixme: the line below does not work ;; (define-key input-decode-map [?\C-M-m] [C-M-m]) (setq save-place-file (locate-user-emacs-file "saveplace")) diff --git a/emacs/.emacs.d/init/ycp-emms.el b/emacs/.emacs.d/init/ycp-emms.el index d83b53b..a3a4604 100644 --- a/emacs/.emacs.d/init/ycp-emms.el +++ b/emacs/.emacs.d/init/ycp-emms.el @@ -40,7 +40,7 @@ (setq emms-source-playlist-default-format 'native) (setq emms-repeat-playlist t) (my-keybind emms-playlist-mode-map "C-x C-f" #'emms-play-playlist) - (setq emms-player-list '(emms-player-mpv)) + (setq emms-player-list '(emms-player-mpv emms-player-vlc)) (setq emms-player-vlc-parameters '("--intf=qt" "--extraintf=rc")) (setq emms-playlist-buffer-name "*EMMS Playlist*") (setq emms-source-file-directory-tree-function @@ -91,6 +91,7 @@ (add-hook 'emms-playlist-selection-changed-hook 'my-emms-output-current-track-to-i3bar-file) (setq emms-player-next-function 'my-emms-next-track-or-random-album) + (setq emms-players-preference-f 'my-emms-players-preference) (my-keybind dired-mode-map "e" #'my-dired-add-to-emms) (my-override emms-track-simple-description) (my-emms-add-all) diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index 90a2c5a..305225f 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -97,6 +97,15 @@ "C-c n u" #'gnus-group-get-new-news) (my-server-timer my-gnus-new-news-timer nil 300 'my-gnus-group-get-new-news-quietly) + ;; https://superuser.com/questions/519685/gnus-get-rid-of-mail-and-news-folders + ;; this also fixes issues with presumably nonexisting + ;; nndraft-directory causing + ;; (wrong-type-argument stringp nndraft-directory) + ;; which may require a restart of gnus to fix + (setq message-directory "~/.emacs.d/mail/") + (setq gnus-directory "~/.emacs.d/news/") + (setq nnfolder-directory "~/.emacs.d/mail/archive") + (setq nndraft-directory "~/.emacs.d/mail/drafts/") ) (my-configure diff --git a/emacs/.emacs.d/init/ycp-help.el b/emacs/.emacs.d/init/ycp-help.el index 3503a6d..5cbbed0 100644 --- a/emacs/.emacs.d/init/ycp-help.el +++ b/emacs/.emacs.d/init/ycp-help.el @@ -81,7 +81,7 @@ (my-package my-help (:delay 10) (my-keybind global-map - "C-h M" #'my-woman-man + "C-h M" #'man "C-h i" #'my-info-display-manual "C-h ." #'my-describe-symbol-at-point "\C-h!" #'my-external-command-open-source) diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el index e2d7451..f77a8bd 100644 --- a/emacs/.emacs.d/init/ycp-prog.el +++ b/emacs/.emacs.d/init/ycp-prog.el @@ -81,6 +81,7 @@ (setq gdb-many-windows t) (setq gdb-default-window-configuration-file (locate-user-emacs-file "gdb-window-conf")) + (setq gdb-debuginfod-enable-setting t) (require 'my-prog) (my-keybind global-map "C-c d q" 'my-gdb-quit @@ -108,6 +109,9 @@ "C-c C-n" 'comint-next-prompt) (add-hook 'gud-mode-hook 'my-gud-comint-set-prompt-regexp) (add-hook 'gud-mode-hook 'company-mode) + ;; Don't make this a general comint-mode hook, as it will overwrite + ;; bash history rather than append to it. + (add-hook 'gud-mode-hook 'my-comint-add-write-history-hook) ) (my-package my-prog |