Move programming language related packages from configuration.org to init.el

init.el

@@ -1661,6 +1661,189 @@ Intended as a value for `bug-referecne-url-format'."
 (use-package tidal
   :mode "\\.tidal\\'")
 
+;; Programming-language specific packages
+
+;; Python
+
+(add-hook 'python-mode-hook
+          (lambda ()
+            (add-to-list 'prettify-symbols-alist
+                         '("not in" . ?∉))
+            (add-to-list 'prettify-symbols-alist
+                         '("in" . ?∈))
+            (add-to-list 'prettify-symbols-alist
+                         '("def" . ?ƒ))
+            (add-to-list 'prettify-symbols-alist
+                         '("is not" . ?≭))
+            (add-to-list 'prettify-symbols-alist
+                         '("is" . ?≍))
+            ))
+
+(use-package poetry
+  :config
+  (poetry-tracking-mode)
+  (remove-hook 'post-command-hook 'poetry-track-virtualenv)
+  :hook
+  (poetry-tracking-mode . (lambda () (remove-hook 'post-command-hook 'poetry-track-virtualenv)))
+  (python-mode . poetry-track-virtualenv)
+  (projectile-after-switch-project-hook . poetry-track-virtualenv)
+  :bind (:map gpolonkai/pers-map
+         ("pp" . poetry)))
+
+(defconst my-c-style
+  '((c-tab-always-indent        . t)
+    (c-comment-only-line-offset . 4)
+    (c-hanging-braces-alist     . ((substatement-open after)
+                                   (brace-list-open)))
+    (c-hanging-colons-alist     . ((member-init-intro before)
+                                   (inher-intro)
+                                   (case-label after)
+                                   (label after)
+                                   (access-label after)))
+    (c-cleanup-list             . (scope-operator
+                                   empty-defun-braces
+                                   defun-close-semi))
+    (c-offsets-alist             . ((arglist-close . +)
+                                    (arglist-intro . +)
+                                    (substatement-open . 0)
+                                    (case-label . 4)
+                                    (block-open . 0)
+                                    (knr-argdecl-intro . -)
+                                    (comment-intro . 0)
+                                    (member-init-intro . ++)))
+    (c-echo-syntactic-information-p . t))
+  "My C Programming Style.")
+(c-add-style "PERSONAL" my-c-style)
+
+(defvaralias 'c-basic-offset 'tab-width)
+(defvaralias 'cperl-indent-level 'tab-width)
+
+(add-hook 'c-mode-common-hook
+          (lambda ()
+            (local-set-key (kbd "C-c o") 'ff-find-other-file)
+            (c-set-style "PERSONAL")
+            (customize-set-variable 'c-basic-offset 4)
+            (customize-set-variable 'tab-width 4)
+            (customize-set-variable 'indent-tabs-mode nil)
+            (c-toggle-auto-newline 1)))
+(add-hook 'c-initialization-hook
+          (lambda ()
+            (define-key c-mode-base-map (kbd "C-m") 'c-context-line-break)))
+
+(use-package web-mode
+  :mode "\\.html?\\'"
+  :custom
+  (web-mode-enable-auto-indentation nil)
+  (web-mode-enable-engine-detection t))
+
+(use-package emmet-mode
+  :custom
+  (emmet-self-closing-tag-style "")
+  :hook
+  (web-mode . emmet-mode)
+  (css-mode . emmet-mode))
+
+(use-package enlive)
+
+(use-package json-mode
+  :mode "\\.json\\'")
+
+(use-package yaml-mode
+  :mode (("\\.yml\\'" . yaml-mode)
+         ("\\.yaml\\'" . yaml-mode))
+  :init
+  (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))
+
+(use-package dockerfile-mode)
+
+(use-package systemd
+  :mode ("\\.\\(?:automount\\|mount\\|path\\|s\\(?:ervice\\|lice\\|ocket\\)\\|t\\(?:arget\\|imer\\)\\|wants\\)\\'" . systemd-mode))
+
+(use-package terraform-mode
+  :mode "\\.tf\\'")
+
+(use-package bats-mode
+  :mode "\\.bats\\'")
+
+(use-package fish-mode
+  :hook
+  (fish-mode . (lambda () (add-hook 'before-save-hook 'fish_indent-before-save)))
+  :mode "\\.fish\\'")
+
+(use-package gitlab-ci-mode
+  :mode "\\.gitlab-ci.yml\\'")
+
+(use-package gitlab-ci-mode-flycheck
+  :after flycheck gitlab-ci-mode
+  :init
+  (gitlab-ci-mode-flycheck-enable))
+
+(use-package csv-mode
+  :mode "\\.csv\\'")
+
+(use-package rust-mode
+  :mode "\\.rs\\'")
+
+(use-package cargo)
+
+(use-package cargo-mode
+  :mode "Cargo\\.toml\\'")
+
+(use-package arduino-mode
+  :mode "\\.ino\\'")
+
+(use-package nginx-mode)
+
+(use-package js2-mode
+  :pin melpa-stable
+  :mode "\\.js\\'")
+
+(use-package typescript-mode
+  :mode "\\.ts\\'")
+
+(use-package less-css-mode
+  :mode "\\.less\\'")
+
+(use-package sass-mode
+  :mode "\\.sass\\'")
+
+(use-package vue-html-mode
+  :mode "\\.vue\\'")
+
+(use-package jinja2-mode
+  :mode "\\.j2\\'")
+
+(use-package markdown-mode
+  :mode (("\\.md\\'" . markdown-mode)
+         ("\\.markdown\\'" . markdown-mode)))
+
+(use-package vala-mode
+  :mode "\\.vala\\'")
+
+(use-package po-mode
+  :ensure nil
+  :mode "\\.po\\'")
+
+(use-package meson-mode
+  :mode "\\.meson\\'")
+
+(defun gpolonkai/cond-enable-ggtags-mode ()
+  "Conditionally enable `ggtags-mode'."
+  (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
+    (ggtags-mode t)))
+
+(use-package ggtags
+  :hook
+  (c-mode-common . gpolonkai/cond-enable-ggtags-mode))
+
+(use-package yuck-mode
+  :mode "\\.yuck\\'")
+
+(use-package ebnf-mode
+  :commands (ebnf-mode))
+
+(use-package ansible-vault)
+
 ;; I started moving my configuration to this Org file.  It’s easier to document this way.
 (org-babel-load-file (expand-file-name "configuration.org" user-emacs-directory))