normalize-languages 0.3.1

Tree-sitter language support and dynamic grammar loading
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

;;; sample.el --- Sample Emacs Lisp file  -*- lexical-binding: t -*-

(require 'cl-lib)
(require 'subr-x)

;;; Variables

(defvar sample-counter 0
  "A simple counter variable.")

(defconst sample-max-value 100
  "Maximum allowed value.")

(defcustom sample-greeting "Hello"
  "Greeting string used by sample functions."
  :type 'string
  :group 'sample)

;;; Functions

(defun sample-greet (name)
  "Greet NAME with the configured greeting."
  (message "%s, %s!" sample-greeting name))

(defun sample-factorial (n)
  "Return the factorial of N."
  (if (<= n 1)
      1
    (* n (sample-factorial (- n 1)))))

(defun sample-sum-list (lst)
  "Return the sum of all elements in LST."
  (let ((total 0))
    (dolist (item lst)
      (setq total (+ total item)))
    total))

(defun sample-filter (pred lst)
  "Return elements of LST satisfying PRED."
  (let ((result '()))
    (dolist (item lst)
      (when (funcall pred item)
        (push item result)))
    (nreverse result)))

;;; Struct

(cl-defstruct sample-point
  "A 2D point."
  (x 0 :type number)
  (y 0 :type number))

(defun sample-distance (p1 p2)
  "Return Euclidean distance between P1 and P2."
  (let ((dx (- (sample-point-x p2) (sample-point-x p1)))
        (dy (- (sample-point-y p2) (sample-point-y p1))))
    (sqrt (+ (* dx dx) (* dy dy)))))

(provide 'sample)
;;; sample.el ends here