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