diff options
Diffstat (limited to 'emacs/.emacs.d/init')
| -rw-r--r-- | emacs/.emacs.d/init/ycp-prog.el | 4 | ||||
| -rw-r--r-- | emacs/.emacs.d/init/ycp-web.el | 20 |
2 files changed, 16 insertions, 8 deletions
diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el index 39427e8..3209e81 100644 --- a/emacs/.emacs.d/init/ycp-prog.el +++ b/emacs/.emacs.d/init/ycp-prog.el @@ -191,6 +191,8 @@ (:delay 5) (define-key c-mode-map (kbd "C-c C-c") 'compile) (define-key c++-mode-map (kbd "C-c C-c") 'project-compile) + (define-key c-mode-map (kbd "C-x C-e") 'my-gud-print-expr-region) + (define-key c++-mode-map (kbd "C-x C-e") 'my-gud-print-expr-region) (add-to-list 'auto-mode-alist '("\\.inl\\'" . c++-mode)) (setq c-default-style '((java-mode . "java") @@ -211,7 +213,7 @@ (add-hook 'c-mode-hook 'my-c-set-compile-command) (define-key c-mode-map (kbd "C-c s") 'my-c-switch-between-header-and-source) (define-key c++-mode-map (kbd "C-c s") - 'my-c-switch-between-header-and-source) + 'my-c-switch-between-header-and-source) (my-override bookmark-make-record) ) diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index f72c609..6083b35 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -260,7 +260,12 @@ "b" #'my-eww-switch-by-title) (my-keybind global-map "\C-c\C-o" #'my-browse-url-at-point) (my-setq-from-local my-newscorp-au-amp-nk) - ) + (add-to-list 'browse-url-handlers + `(my-newscorp-au-url-p + . ,(lambda (url &rest _) (my-open-newscorp-au url)))) + (add-to-list 'browse-url-handlers + `("^https?://www.spectator.com.au\\>" . + ,(lambda (url &rest _) (my-fetch-browse-as-googlebot url)))) ) (my-package my-gitlab (:delay 60) @@ -269,6 +274,13 @@ . ,(lambda (url &rest _) (my-gitlab-project-infobox url)))) ) +(my-package my-github + (:delay 60) + (add-to-list 'browse-url-handlers + `(my-github-project-url-p + . ,(lambda (url &rest _) (my-github-project-infobox url)))) + ) + (my-package my-ytdl (:delay 60) (add-to-list 'browse-url-handlers @@ -329,12 +341,6 @@ (add-to-list 'browse-url-handlers `(my-mastodon-url-p . ,(lambda (url &rest _) (mastorg-open url)))) - (add-to-list 'browse-url-handlers - `(my-newscorp-au-url-p - . ,(lambda (url &rest _) (my-open-newscorp-au url)))) - (add-to-list 'browse-url-handlers - `("^https?://www.spectator.com.au\\>" . - ,(lambda (url &rest _) (my-fetch-browse-as-googlebot url)))) ) (add-to-list 'load-path (locate-user-emacs-file "lisp/servall/lisp")) |