37 lines
1.8 KiB
EmacsLisp
37 lines
1.8 KiB
EmacsLisp
((nil . ((eval . (progn
|
|
(defvar context-mode-map (make-sparse-keymap)
|
|
"Keymap while context-mode is active.")
|
|
(define-minor-mode context-mode
|
|
"A temporary minor mode to be activated only specific to a buffer."
|
|
nil
|
|
:lighter " [f2]-Context"
|
|
context-mode-map)
|
|
(context-mode 1)
|
|
|
|
(defun start-debugger ()
|
|
(async-shell-command
|
|
(concat
|
|
"cdbg64.exe" " -t "
|
|
(expand-windows-path (concat (projectile-project-root)
|
|
"bin/slime.exe")))))
|
|
|
|
(defhydra hydra-context (context-mode-map "<f2>")
|
|
"Context Actions:"
|
|
("b" save-and-find-build-script-and-compile "build" :color blue)
|
|
("d" start-debugger "debug" :color blue)
|
|
("o" browse-file-directory "open" :color blue)
|
|
("q" nil "quit" :color blue))
|
|
|
|
(define-key context-mode-map (kbd "<f2>") 'hydra-context/body)
|
|
|
|
(font-lock-add-keywords
|
|
'c++-mode
|
|
'(("\\<\\(if_debug\\|if_windows\\|if_linux\\|defer\\|proc\\|try\\|try_void\\|for_array_list\\|for_lisp_vector\\|in_caller_env\\|for_lisp_list\\|ignore_logging\\|dont_break_on_errors\\)\\>" .
|
|
font-lock-keyword-face)))))))
|
|
|
|
(c++-mode . ((eval . (company-clang-set-prefix "slime.h"))
|
|
(eval . (flycheck-mode 0))
|
|
(eval . (rainbow-mode 0))
|
|
(eval . (setq c-backslash-max-column 99))
|
|
)))
|