Homec4science
Diffusion lammps (lammps-icms) Browse

lammps/tools/emacs/lammps.el
5302ad50d7delammps-icms

Last Change
Raw File

lammps.el
View Options

This document is not UTF8. It was detected as Shift JIS and converted to UTF8 for display.
;; LAMMPS auto-mode
;; translation of keyword classes from tools/vim
;; see http://xahlee.org/emacs/elisp_syntax_coloring.html
;; define several keyword classes
(defvar lammps-output
'("log"
"write_restart"
"dump"
"undump"
"thermo"
"thermo_modify"
"thermo_style"
"print")
"LAMMPS output.")
(defvar lammps-read
'("include"
"read"
"read_restart"
"read_data")
"LAMMPS read.")
(defvar lammps-lattice
'("boundary"
"units"
"atom_style"
"lattice"
"region"
"create_box"
"create_atoms"
"dielectric"
"delete_atoms"
"change_box"
"dimension"
"replicate")
"LAMMPS lattice.")
(defvar lammps-define
'("variable"
"group")
"LAMMPS define.")
(defvar lammps-run
'("minimize"
"run")
"LAMMPS run.")
(defvar lammps-setup
'("min_style"
"fix_modify"
"run_style"
"timestep"
"neighbor"
"neigh_modify"
"fix"
"unfix"
"communicate"
"newton"
"nthreads"
"processors"
"reset_timestep")
"LAMMPS setup.")
(defvar lammps-particle
'("pair_coeff"
"pair_style"
"pair_modify"
"mass"
"velocity"
"angle_coeff"
"angle_style"
"atom_modify"
"atom_style"
"bond_coeff"
"bond_style"
"delete_bonds"
"kspace_style"
"kspace_modify"
"dihedral_style"
"dihedral_coeff"
"improper_style"
"improper_coeff")
"LAMMPS particle.")
(defvar lammps-repeat
'("jump"
"next"
"loop")
"LAMMPS repeat.")
(defvar lammps-operator
'("equal"
"add"
"sub"
"mult"
"div")
"LAMMPS operator.")
(defvar lammps-conditional
'("if"
"then"
"elif"
"else")
"LAMMPS conditional.")
(defvar lammps-special
'("EDGE"
"NULL")
"LAMMPS special.")
;; create the regex string for each class of keywords
(defvar lammps-output-regexp (regexp-opt lammps-output 'words))
(defvar lammps-read-regexp (regexp-opt lammps-read 'words))
(defvar lammps-lattice-regexp (regexp-opt lammps-lattice 'words))
(defvar lammps-define-regexp (regexp-opt lammps-define 'words))
(defvar lammps-run-regexp (regexp-opt lammps-run 'words))
(defvar lammps-setup-regexp (regexp-opt lammps-setup 'words))
(defvar lammps-particle-regexp (regexp-opt lammps-particle 'words))
(defvar lammps-repeat-regexp (regexp-opt lammps-repeat 'words))
(defvar lammps-operator-regexp (regexp-opt lammps-operator 'words))
(defvar lammps-conditional-regexp (regexp-opt lammps-conditional 'words))
(defvar lammps-special-regexp (regexp-opt lammps-special 'words))
;; Add some more classes using explicit regexp
(defvar lammps-number-regexp
"\\<[0-9]\\>")
(defvar lammps-float-regexp
"\\<[0-9-+]+.[0-9-+]*\\>")
(defvar lammps-comment-regexp
"#*")
(defvar lammps-variable-regexp
"\\$\\({[a-zA-Z0-9_]+}\\)\\|\\$[A-Za-z]")
;; clear memory
(setq lammps-output nil)
(setq lammps-read nil)
(setq lammps-lattice nil)
(setq lammps-define nil)
(setq lammps-run nil)
(setq lammps-setup nil)
(setq lammps-particle nil)
(setq lammps-repeat nil)
(setq lammps-operator nil)
(setq lammps-conditional nil)
(setq lammps-special nil)
;; create the list for font-lock.
;; each class of keyword is given a particular face
(setq
lammps-font-lock-keywords
`((,lammps-output-regexp . font-lock-function-name-face)
(,lammps-read-regexp . font-lock-preprocessor-face)
(,lammps-lattice-regexp . font-lock-type-face)
(,lammps-define-regexp . font-lock-variable-name-face)
(,lammps-run-regexp . font-lock-keyword-face)
(,lammps-setup-regexp . font-lock-type-face)
(,lammps-particle-regexp . font-lock-type-face)
(,lammps-repeat-regexp . font-lock-string-face)
(,lammps-operator-regexp . font-lock-warning-face)
(,lammps-conditional-regexp . font-lock-builtin-face)
(,lammps-special-regexp . font-lock-constant-face)
(,lammps-float-regexp . font-lock-constant-face)
(,lammps-number-regexp . font-lock-constant-face)
(,lammps-comment-regexp . font-lock-constant-face)
(,lammps-variable-regexp . font-lock-function-name-face)
;; note: order above matters. lammps-variable-regexp｡ goes last because
;; otherwise the keyword ｴstate｡ in the variable ｴstate_entry｡
;; would be highlighted.
))
;; define the mode
(define-derived-mode lammps-mode shell-script-mode
"lammps mode"
"Major mode for editing LAMMPS input scripts ..."
;; ...
;; code for syntax highlighting
(setq font-lock-defaults '((lammps-font-lock-keywords)))
;; clear memory
(setq lammps-output-regexp nil)
(setq lammps-read-regexp nil)
(setq lammps-lattice-regexp nil)
(setq lammps-define-regexp nil)
(setq lammps-run-regexp nil)
(setq lammps-setup-regexp nil)
(setq lammps-particle-regexp nil)
(setq lammps-repeat-regexp nil)
(setq lammps-operator-regexp nil)
(setq lammps-conditional-regexp nil)
(setq lammps-special-regexp nil)
(setq lammps-number-regexp nil)
(setq lammps-float-regexp nil)
(setq lammps-comment-regexp nil)
(setq lammps-variable-regexp nil))
;; apply it to specified filename patterns
(setq
auto-mode-alist
(append
auto-mode-alist
'(("in\\." . lammps-mode))
'(("\\.lmp\\'" . lammps-mode))
))
c4science · Help