[emacs][urxvt] bunch of small changes

- add org clock string to frame title
- add ansi color to compilation buffer
- look for project source dir from build dir
- fix my-kill-sexp-or-comment
- more lines in urxvt

1 files changed, 9 insertions, 5 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-mariadb.el b/emacs/.emacs.d/lisp/my/my-mariadb.el
index 984cc29..52ca8bc 100644
--- a/emacs/.emacs.d/lisp/my/my-mariadb.el
+++ b/emacs/.emacs.d/lisp/my/my-mariadb.el
@@ -63,6 +63,7 @@
             (replace-regexp-in-string
              "/src"
              "/build/mysql-test/var/log/mysqld.1.1.rr/latest-trace"
+             ;; "/build/mysql-test/var/log/mysqld.3.1.rr/latest-trace"
              (project-root (project-current t))))
            (expand-file-name "~/bin/gdb-mi.sh"))))
 
@@ -185,12 +186,15 @@
         (goto-char (point-min))
         (while (re-search-forward
                 (concat
-                 "\\(spider_alloc_calc_mem_init\\|init_calc_mem\\|spider_malloc\\|"
-                 "spider_bulk_alloc_mem\\|spider_bulk_malloc\\)"
-                 "\\(([^0-9)_]*\\)\\([0-9]+\\)")
+                 "\\(spider_alloc_calc_mem_init(.*?, \\|init_calc_mem(\\|"
+                 "spider_malloc(.*?, \\|"
+                 "spider_bulk_alloc_mem(.*?, \\|spider_bulk_malloc.*?, \\)"
+                 "\\([0-9]+\\)"
+                 ;; "\\(([^0-9)]*\\)\\([0-9]+\\)"
+                 )
                 nil t)
-          (let ((beg (match-beginning 3))
-                (end (match-end 3)))
+          (let ((beg (match-beginning 2))
+                (end (match-end 2)))
             (replace-region-contents beg end #'my-mdev-32524-make-id)))
         (save-buffer)))))