diff options
| -rw-r--r-- | c-conf.el | 32 |
1 files changed, 28 insertions, 4 deletions
@@ -33,18 +33,18 @@ (define-key c-mode-map (vector 'S-tab) #'ff-find-other-file) ;;; prefix map -(defvar durand-c-prefix-map '(keymap) +(defvar durand-c-prefix-map (make-sparse-keymap) "The keymap of my custom functions. This will be bound to the key ù.") (let ((map durand-c-prefix-map)) (define-key map (vector ?i) #'durand-c-include) - (define-key map (vector ?p) #'c-generate-pragma)) + (define-key map (vector ?p) #'c-generate-pragma) + (define-key map (vector ?t) #'c-generate-test)) ;; generate pragmas automatically. (define-key c-mode-map (vector ?ù) durand-c-prefix-map) -;;;###autoload (defun c-generate-pragma () "Generate default pragmas for a C header file. If invoked on a C file, include the corresponding header file." @@ -74,7 +74,6 @@ If invoked on a C file, include the corresponding header file." "c\\(p*\\)$" "h\\1" (buffer-name)))) (newline)))) -;;;###autoload (defun durand-c-include (&optional arg) "Include a library. If ARG is non-nil, ask for the type of the include: whether the @@ -106,5 +105,30 @@ angle bracket type or the quote type." ((eq type 'quote) "\"")) "\n"))))) +(defun c-generate-test () + "Generate or find a test file for the current C file." + (interactive) + (cond + ((derived-mode-p 'c-mode)) + ((user-error "Not in C-mode"))) + (let* ((f-name (buffer-file-name)) + (base (file-name-base f-name)) + (t-name + (cond + ((null f-name) + (user-error "Buffer not associated to a file")) + ((expand-file-name + (expand-file-name + (format "check_%s.c" base) "test") + (file-name-directory f-name)))))) + (cond + ((file-exists-p t-name)) + ((write-region + (format "#include \"../%s.h\"\n\n%s" + base + "int main(int argc, char **argv)\n{\n return 0;\n}\n") + nil t-name))) + (find-file t-name))) + (provide 'c-conf) ;;; c-conf.el ends here |