From 06914aff2b0011d41bc50447965a8d7c6ef52c9b Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Mon, 19 Jun 2023 11:19:19 +1000
Subject: precision fixes

- Adding org-jira
- Also fixed getting builders in buildbot
- Adding gdb-mi and gud
- Adding gdb and shell configs
- Also mariadb dev related stuff
- A few more modes
- some more updates
---
 emacs/.emacs.d/init/ycp-complete.el | 75 +++++++------------------------------
 1 file changed, 14 insertions(+), 61 deletions(-)

(limited to 'emacs/.emacs.d/init/ycp-complete.el')

diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el
index aed7b3b..57e5667 100644
--- a/emacs/.emacs.d/init/ycp-complete.el
+++ b/emacs/.emacs.d/init/ycp-complete.el
@@ -111,7 +111,8 @@
     "C-s"  #'icomplete-forward-completions
     "C-r"  #'icomplete-backward-completions
     "C-v" #'my-icomplete-vertical-forward-page
-    "M-v" #'my-icomplete-vertical-backward-page))
+    "M-v" #'my-icomplete-vertical-backward-page
+    "<ret>" nil))
 
 (my-package recentf
   (setq recentf-max-saved-items 1000)
@@ -148,9 +149,19 @@
     "C-s" #'corfu-next
     "C-r" #'corfu-previous)
   (require 'my-corfu)
-  (add-hook 'minibuffer-setup-hook #'my-corfu-enable-always-in-minibuffer 1)
+  (add-hook 'minibuffer-setup-hook
+            #'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))
   )
 
+;;; We still need company mode because corfu does not work well in gud
+;;; mode yet
+(my-package company
+  (:install t)
+  (:delay 5))
+
 ;;; cape
 (my-package cape
   (:install t)
@@ -248,65 +259,7 @@
           (:name firefox-private :command my-browse-url-firefox-private)
           (:name tor-browser :command my-browse-url-tor-browser)
           (:name download-and-open :command my-fetch-url)))
-  (setq hmm-handlers
-        '(:query
-          ((:command servall-ytdl-search)
-           (:command servall-wikipedia-open)
-           (:command servall-wikipedia-search)
-           (:command hcel-global-ids)
-           (:command osm-search)
-           (:command my-org-recoll-mdn)
-           (:command consult-recoll)
-           (:command locate)
-           (:command project-or-external-find-regexp)
-           (:command dictionary-search)
-           (:command my-libgen-search)
-           (:command my-libgen-search-isbn)
-           (:command my-openlibrary-search)
-           ;; TODO: sx, grep-somewhere, grep-here, gnus news, gnus email
-           ;; rt-liber (some sort of smart search)
-           )
-
-          ;; URL handlers handle all schemes, including file:
-          ;; We want to add all file-handlers here with regex that filters
-          ;; file: in scheme
-          :url
-          ((:schemes ("http" "https")
-                     :regex "^en.wikipedia.org/wiki/.*$"
-                     :command servall-wikipedia-open)
-           (:schemes ("http" "https")
-                     :regex
-                     "^\\(?:.*\\.\\)?\\(?:stackexchange\\|stackoverflow\\|mathoverflow\\|askubuntu\\)\\.com/.*$"
-                     :command sx-open-link)
-           (:schemes ("http" "https")
-                     :regex
-                     "^\\(?:.*\\.\\)?news.ycombinator.com/.*$"
-                     :command hnreader-comment)
-           (:schemes ("http" "https")
-                     :command my-org-grok)
-           (:schemes ("mailto") :command browse-url-mail)
-           (:schemes ("mailto") :command my-gnus-fastmail-mail-url)
-           (:schemes ("http" "https") :command my-ytdl-audio)
-           (:schemes ("http" "https") :command my-ytdl-video)
-           (:schemes ("http" "https") :command my-describe-package-from-url
-                     :regex
-                     "^\\(?:elpa.gnu.org/packages\\|elpa.gnu.org/devel\\|elpa.nongnu.org/nongnu\\)\\(?:/.*\\).html")
-           (:command emms-play-url
-                     :schemes
-                     ("ftp" "http" "https" "mms" "rtmp" "rtsp" "sftp" "smb" "srt")
-                     ) ;;FIXME: buggy
-           ;; TODO: magit-clone-shallow, osm
-           )
-
-          :file
-          ;; by mimetypes / extensions etc, most can be handled by find-file?
-          ;; shell can be used for dir
-          ((:command find-file)
-           (:command dired :mimetypes ("inode/directory"))
-           (:command my-shell-with-directory :mimetypes ("inode/directory"))
-           (:command magit-status :mimetypes ("inode/directory"))
-           (:command byte-compile-file :mimetypes ("text/x-lisp"))
-           (:command hmm-file-mime-type))))
+  (my-setq-from-local hmm-handlers)
   (setq hmm-external-handlers
         '((:name mpv
                  :external-command "mpv %U"
-- 
cgit v1.2.3