quote eval define print read

.dir-locals.el

@@ -0,0 +1,36 @@
+((c-mode . ((eval . (company-clang-set-prefix "main.c"))
+            (eval . (flycheck-mode 0))
+            (eval . (rainbow-mode 0))))
+ (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 " Context"
+                     context-mode-map)
+                   (context-mode 1)
+
+                   ;; additional scripts
+                   (defun save-and-find-test-script-and-compile ()
+                     (interactive)
+                     (let ((build-script-name "test.bat"))
+                       (save-and-find-build-script-and-compile)))
+                   (defun save-and-find-run-script-and-compile ()
+                     (interactive)
+                     (let ((build-script-name "run.bat"))
+                       (save-and-find-build-script-and-compile)))
+                   (defun save-and-find-debug-script-and-compile ()
+                     (interactive)
+                     (let ((build-script-name "debug.bat"))
+                       (save-and-find-build-script-and-compile)))
+
+                   (defhydra hydra-context (context-mode-map "<f2>")
+                     "Context Actions:"
+                     ("b" save-and-find-build-script-and-compile "build" :color blue)
+                     ("r" save-and-find-run-script-and-compile   "run"   :color blue)
+                     ("d" save-and-find-debug-script-and-compile "debug" :color blue)
+                     ("t" save-and-find-test-script-and-compile  "test"  :color blue)
+                     ("q" nil                                    "quit"  :color blue))
+                   (define-key context-mode-map (kbd "<f2>") 'hydra-context/body)
+                   )))))