1 files changed, 79 insertions, 0 deletions
diff --git a/modules/prog-webdev.el b/modules/prog-webdev.el
new file mode 100644
index 00000000..2d5fc5da
--- /dev/null
+++ b/modules/prog-webdev.el
@@ -0,0 +1,79 @@
+;;; prog-webdev.el --- Web Development Packages and Settings -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+;; --------------------------------- JSON Mode ---------------------------------
+;; mode for editing JavaScript Object Notation (JSON) data files
+
+(use-package json-mode
+  :mode ("\\.json\\'" . json-mode)
+  :defer .5)
+
+;; ---------------------------------- JS2 Mode ---------------------------------
+;; javascript editing mode
+
+(use-package js2-mode
+  :mode ("\\.js\\'" . js2-mode)
+  :defer .5)
+
+;; --------------------------------- CSS Eldoc ---------------------------------
+;; CSS info in the echo area
+
+(use-package css-eldoc
+  :defer .5)
+
+;; ------------------------------------ Tide -----------------------------------
+;; typescript interactive development environment
+
+(use-package tide
+  :defer .5)
+
+(defun cj/activate-tide ()
+  (interactive)
+  (tide-setup)
+  (eldoc-mode 1)
+  (tide-hl-identifier-mode 1))
+
+;; ---------------------------------- Web Mode ---------------------------------
+;; major mode for editing web templates
+
+(use-package web-mode
+  :defer .5
+  :after (tide css-eldoc)
+  :custom
+  (web-mode-enable-current-element-highlight t)
+  :bind
+  ([(control return)] . cj/complete-web-mode)
+  :mode
+  (("\\.html?$" . cj/setup-web-mode-mixed)))
+
+(defun cj/complete-web-mode ()
+  (interactive)
+  (let ((current-scope (web-mode-language-at-pos (point))))
+	(cond ((string-equal "javascript" current-scope)
+		   (company-tide 'interactive))
+		  ((string-equal "css" current-scope)
+		   (company-css 'interactive))
+		  (t
+		   (company-dabbrev-code 'interactive)))))
+
+(defun cj/eldoc-web-mode ()
+  (let ((current-scope (web-mode-language-at-pos (point))))
+	(cond ((string-equal "javascript" current-scope)
+		   (tide-eldoc-function))
+		  ((string-equal "css" current-scope)
+		   (css-eldoc-function))
+		  (t
+		   nil))))
+
+(defun cj/setup-web-mode-mixed ()
+  (web-mode)
+  (cj/activate-tide)
+  (setq-local eldoc-documentation-function #'cj/eldoc-web-mode))
+
+
+(provide 'prog-webdev)
+;;; prog-webdev.el ends here.