rmcm

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

rmcm

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

rmcm

;; 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]*\\))"

rmcm

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

rmcm

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