Emacs: Free pascal interaction
Хм... гуглил, гуглил, не нашел. Видимо никто еще не озадачивался проблемой взаимодействия emacs'а и fpc.
Ладно, что умею подкрутил - подсвечивание uses, поддержку сообшений ошибок компиляции, и дефолтную compile-command.
;;Pascal mode
(require 'compile)
(pushnew '("^\\([a-zA-Z0-9\\.]+\\)(\\([0-9]+\\),\\([0-9]+\\))\s\\(.*$\\)" 1 2 3)
compilation-error-regexp-alist)
(defun pascal-mode-additional-init ()
(local-set-key "\C-c\C-c" 'compile)
(unless (or (file-exists-p "makefile")
(file-exists-p "Makefile"))
(set (make-local-variable 'compile-command)
(concat "fpc -g " buffer-file-name)))
(font-lock-add-keywords 'pascal-mode
'(("^[ \t]*\\(uses\\)\\>[ \t]*\\([a-z]\\)" 1 font-lock-keyword-face prepend))))
Че бы такого, сделать еще хорошего?
Ладно, что умею подкрутил - подсвечивание uses, поддержку сообшений ошибок компиляции, и дефолтную compile-command.
;;Pascal mode
(require 'compile)
(pushnew '("^\\([a-zA-Z0-9\\.]+\\)(\\([0-9]+\\),\\([0-9]+\\))\s\\(.*$\\)" 1 2 3)
compilation-error-regexp-alist)
(defun pascal-mode-additional-init ()
(local-set-key "\C-c\C-c" 'compile)
(unless (or (file-exists-p "makefile")
(file-exists-p "Makefile"))
(set (make-local-variable 'compile-command)
(concat "fpc -g " buffer-file-name)))
(font-lock-add-keywords 'pascal-mode
'(("^[ \t]*\\(uses\\)\\>[ \t]*\\([a-z]\\)" 1 font-lock-keyword-face prepend))))
Че бы такого, сделать еще хорошего?