-
Notifications
You must be signed in to change notification settings - Fork 23
/
user_agents.clj
56 lines (40 loc) · 1.04 KB
/
user_agents.clj
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
(ns optimus.user-agents)
(defn ie10 [user-agent]
(re-find #"MSIE 10\." user-agent))
(defn ie9 [user-agent]
(re-find #"MSIE 9\." user-agent))
(defn ie8 [user-agent]
(re-find #"MSIE 8\." user-agent))
(defn ie7 [user-agent]
(re-find #"MSIE 7\." user-agent))
(defn ie6 [user-agent]
(re-find #"MSIE 6\." user-agent))
(defn ie<6 [user-agent]
(re-find #"MSIE [2345]\." user-agent))
(defn ie<7 [user-agent]
(or (ie6 user-agent)
(ie<6 user-agent)))
(defn ie<8 [user-agent]
(or (ie7 user-agent)
(ie<7 user-agent)))
(defn ie<9 [user-agent]
(or (ie8 user-agent)
(ie<8 user-agent)))
(defn ie<10 [user-agent]
(or (ie9 user-agent)
(ie<9 user-agent)))
(defn ie>9 [user-agent]
(ie10 user-agent))
(defn ie>8 [user-agent]
(or (ie9 user-agent)
(ie>9 user-agent)))
(defn ie>7 [user-agent]
(or (ie8 user-agent)
(ie>8 user-agent)))
(defn ie>6 [user-agent]
(or (ie7 user-agent)
(ie>7 user-agent)))
(defn ie>5 [user-agent]
(not (ie<6 user-agent)))
(defn ie [user-agent]
(re-find #"MSIE " user-agent))