-
Notifications
You must be signed in to change notification settings - Fork 0
/
php.el
175 lines (161 loc) · 6.23 KB
/
php.el
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
(defun use-superglobals ()
"Replace HTTP_X_VARS with _X in current buffer"
(interactive)
(save-excursion
(goto-char (point-min))
(query-replace-regexp "HTTP_\\(POST\\|GET\\|SERVER\\|SESSION\\|COOKIE\\)_VARS" "_\\1")))
(global-set-key "\C-cs" 'use_superglobals)
(defun php-run-string (code doInsert)
"Run a line! of PHP code. Use echo to see a result. Call with any
prefix to insert the result"
(interactive "sPHP Code: \nP")
(let* ((code (shell-quote-argument code))
(result (shell-command-to-string (format "php -r %s" code))))
(if doInsert
(insert result)
(message "php -r \"%s;\"" code)
(message "%s" result))))
;; Syntax check the current buffer
;; using CLI php -l
;; (Buffer has to be saved)
(defun php-run-buffer ()
"Run buffer in the PHP CLI"
(interactive)
(let ((msg nil))
(if (not (buffer-modified-p))
(setq msg (shell-command-to-string (format "php -f %s" (buffer-file-name))))
(let ((tmp-name (make-temp-name "/tmp/phprun"))
(content (buffer-string)))
(with-temp-file tmp-name
(insert content))
(setq msg (shell-command-to-string (format "php -f %s" tmp-name)))
(delete-file tmp-name)))
(message msg)
t))
(defun php-debug-file ()
"Run file in CLI with debugger enabled. geben is an emacs
frontend for xdebug"
(interactive)
(if (not (buffer-modified-p))
(async-shell-command (format "export XDEBUG_CONFIG=\"idekey=geben-xdebug\"; php -f %s" (buffer-file-name)))
(message "Save file before debugging!"))
t)
;; Notes:
;; - This updates into the current TAGS file. So if you switch
;; between projects make sure you visit the right TAGS file before
;; using this
;; - I don't know if it works with multiple TAGS files
;; - uses php-etags.php so either use that & my modified php-mode
;; or modify it to use etags ( "etags -o- <file>" prints)
(defun update-tag-file ()
"update the TAGS from the current buffer"
(when (and tags-file-name buffer-file-name)
(let* ((tags-file (file-truename tags-file-name))
(root (file-name-directory tags-file)))
(save-current-buffer
(let ((buf (find-file-noselect tags-file))
(php-file (substring (file-truename buffer-file-name) (length root))))
(set-buffer buf)
(goto-char (point-min))
(when (search-forward php-file nil t)
(let ((start (search-backward " "))
(end (search-forward " " nil t 2)))
(delete-region start (or (and end (1- end)) (point-max)))
(save-buffer buf)))
(shell-command
(format "php-etags.php %s >> %s" php-file tags-file) nil)
(revert-buffer t t)))
(visit-tags-table tags-file-name (local-variable-p 'tags-file-name)))
nil))
;; shortcut to rebuild table
(defun php-rebuild-completion-table ()
(interactive)
(setq php-completion-table nil)
(php-completion-table))
(defun php-after-save-hook ()
"check syntax after saving php-file. Also update the TAGS file
iff the file is in the same path as the TAGS file"
(when (and buffer-file-name
(string-suffix-p ".php" buffer-file-name)
(not (file-remote-p (buffer-file-name))))
(when tags-file-name
(let ((dir (file-name-directory (file-truename tags-file-name)))
(file (expand-file-name buffer-file-truename)))
(when (string-prefix-p dir file)
(update-tag-file))))
(php-check-syntax)))
(add-hook 'php-mode-hook '(lambda () (add-hook 'after-save-hook 'php-after-save-hook nil t)) t)
(defun php-get-function-name ()
(interactive)
(save-excursion
(when (re-search-backward php-beginning-of-defun-regexp nil t)
(message "closest function: %s" (match-string-no-properties 1)))))
;;
;; Indentation in PHP could be better by imho following Java coding
;; standards closer:
;; if (longline
;; && another line)
;; should be
;; if (longline
;; && another line)
;;
;; but array(stuff,
;; more)
;; should still line up (they're using the same var for indentation:
;; arglist-cont-nonempty)
;;
;; missing: get-block, split-string
;; check: dolist
(defun php-get-undeclared-variables (start end)
"Get a list of undeclared variables of the surrounding block.
\(Doesn't deal with list\(...\) = yet\)"
(interactive "r")
(let ((code-block (buffer-substring start end))
(tmp-name (make-temp-name "/tmp/phpvars"))
vars)
;; use call-process-region ?
(with-temp-file tmp-name
(insert code-block))
(setq ret (shell-command-to-string (format "get-undeclared-vars.php -r %s" tmp-name)))
(delete-file tmp-name)
(if (string= ret "")
(message "No undeclared variables")
(message (substring ret 0 -1)))
(setq deactivate-mark t)))
(defun css-charset-auto-coding-function (size)
"If the buffer has a @charset at-rule, use it to determine encoding.
This function is intended to be added to `auto-coding-functions'."
(let ((case-fold-search t))
(setq size (min (+ (point) size)
;; In case of no header, search only 10 lines.
(save-excursion
(forward-line 10)
(point))))
(when
(re-search-forward "@charset \"\\([a-z0-8-]+\\)\"" size t)
(let* ((match (match-string 1))
(sym (intern (downcase match))))
(if (coding-system-p sym)
sym
(message "Warning: unknown coding system \"%s\"" match)
nil)))))
(add-to-list 'auto-coding-functions 'css-charset-auto-coding-function)
(c-add-style
"php-ees"
'("php"
(c-basic-offset . 4)
(c-doc-comment-style . javadoc)
(c-offsets-alist . ((arglist-close . php-lineup-arglist-close)
(arglist-cont . (first php-lineup-cascaded-calls 0))
(arglist-cont-nonempty . (first php-lineup-cascaded-calls c-lineup-arglist))
(arglist-intro . php-lineup-arglist-intro)
(case-label . +)
(class-open . -)
(comment-intro . 0)
(inlambda . 0)
(inline-open . 0)
(label . +)
(statement-cont . +)
(substatement-open . 0)
(brace-list-entry . 0)
(topmost-intro-cont . +)))))