This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun my-qt-assistant () | |
"Assess documentation in an instance of Assistant." | |
(interactive) | |
(let* ((procname "qt-assistant") | |
(search (my-word-at-point))) | |
(if (not (process-status procname)) | |
(start-process | |
procname procname | |
"/Developer/Applications/Qt/Assistant.app/Contents/MacOS/Assistant" | |
"-enableRemoteControl")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; ----------------------------------------- | |
;; List of visited files - for reversion (V) | |
;; eg when external process visits files. | |
;; ----------------------------------------- | |
(require 'ibuffer) | |
(require 'ibuf-ext) | |
(define-ibuffer-filter my-revisited-buffers | |
"Filter buffers that have been revisited" | |
(:description "revisited buffers" | |
:reader (ido-read-directory-name "dname")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Add QTestlib regex to compile buffer parse - eg | |
;; FAIL! : testQmvSqlUtils::helloWorld() 'sm.rowCount() > 0' returned FALSE. () | |
;; Loc: [test-qmvdbsettingsmodel.h(27)] | |
;; | |
(if (boundp 'compilation-error-regexp-alist-alist) | |
(progn | |
(add-to-list | |
'compilation-error-regexp-alist-alist | |
'(qt-test | |
"[\s]*FAIL![\s:]*\\([[:alnum:]:]*()\\)[\s]\\(.*\\)\n[\s]*Loc:[\s]*\\[\\(.*\\)(\\([0-9]*\\))" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; ---------------------------------------- | |
; recent files and directories | |
; ---------------------------------------- | |
(require 'recentf) | |
(setq | |
recentf-exclude '(".*_flymake.*" ".ftp:.*" ".sudo:.*" "~/.emacs.d/tmp/*") | |
recentf-keep '(file-remote-p file-readable-p) | |
recentf-max-saved-items 100 ; this was set to 500, and things were slow | |
recentf-save-file "~/.emacs.d/save-recentf.el") | |
(recentf-mode t) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; ---------------------------------------- | |
;; dired ediff | |
; ---------------------------------------- | |
(defun my-dired-ediff-marked-files () | |
"Run ediff on 2 or 3 marked dired files." | |
(interactive) | |
(let ((marked-files (dired-get-marked-files))) | |
(if (= (safe-length marked-files) 2) | |
(ediff-files (nth 0 marked-files) (nth 1 marked-files)) | |
(if (= (safe-length marked-files) 3) |