Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F90514465
lammps.el
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Sat, Nov 2, 09:16
Size
5 KB
Mime Type
text/x-lisp
Expires
Mon, Nov 4, 09:16 (2 d)
Engine
blob
Format
Raw Data
Handle
21881035
Attached To
rLAMMPS lammps
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))
))
Event Timeline
Log In to Comment