How can i get current programming language at current cursor. For example, if my cursor is inside script tag, then it should return js or javascript and if it is inside style tag, then it should be css and if it is outside both of this tag, then it should be inside html so it should also return html.
<html>
<script>
...
</script>
<style>
...
</style>
</html>
web-mode-language-at-pos function is what are your looking for. Although it is not documented.
Single function to get language at pos that will work across different modes might look like this:
(defun my/language-at-pos (pos)
"Message language at POS."
(interactive "d")
(let ((lang (cond
;; web-mode
((eq major-mode 'web-mode)
(web-mode-language-at-pos pos))
;; mhtml-mode
((derived-mode-p 'mhtml-mode) "HTML")
((eq major-mode 'js-mode) "JS")
((eq major-mode 'css-mode) "CSS")
;; html-mode
((derived-mode-p 'html-mode)
(let ((submode (get-text-property pos 'mhtml-submode)))
(if submode
(mhtml--submode-name submode)
"HTML")))
;TODO: rjsx-mode and other
(t
(message "Don't know how to get language in %s" major-mode)
nil))))
(when lang
(message "Language at point is %s" lang))))
It will work for vue-mode because vue-mode is derived from html-mode.
web-mode, forcing it to font-lock the buffer and then running this function.
Emacs 26.1 uses mhtml-mode for HTML files by default, the new mode supports JavaScript and CSS within HTML. Here is the NEWS from C-u C-h n 26.1:
*** A new submode of 'html-mode', 'mhtml-mode', is now the default mode for *.html files. This mode handles indentation, fontification, and commenting for embedded JavaScript and CSS.
You can use the text properties at the point to get the language, the following returns one of "HTML", "CSS" and "JS".
(pcase (get-text-property (point) 'mhtml-submode)
('nil "HTML")
(submode (mhtml--submode-name submode)))
