[emacs] eval expr in gud source and infobox value transform

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"))