Added support PHP and smarty-mode

custom.el

@@ -10,7 +10,7 @@
  '(anzu-search-threshold 1000)
  '(package-selected-packages
    (quote
-    (pkgbuild-mode markdown-mode sublime-themes sml-modeline smart-mode-line-powerline-theme nlinum flycheck anzu))))
+    (ac-php smarty-mode php-mode pkgbuild-mode markdown-mode flycheck anzu sml-modeline smart-mode-line-powerline-theme smart-mode-line nlinum sublime-themes))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

init.el

@@ -39,6 +39,7 @@
 ;; Languages
 (require 'init-markdown)
 (require 'init-pkgbuild)
+(require 'init-php)
 
 ;;; Loads custom file
 (when (file-exists-p custom-file)

lisp/init-php.el

@@ -0,0 +1,65 @@
+(require-package 'php-mode)
+
+(require-package 'smarty-mode)
+
+;; From EmacsWiki: https://www.emacswiki.org/emacs/PhpMode
+(defun my/php-symbol-lookup ()
+  (interactive)
+  (let ((symbol (symbol-at-point)))
+    (if (not symbol)
+        (message "No symbol at point.")
+
+      (browse-url (concat "https://php.net/manual-lookup.php?pattern="
+                          (symbol-name symbol))))))
+
+
+(defun my/php-function-lookup ()
+  (interactive)
+  (let* ((function (symbol-name (or (symbol-at-point)
+                                    (error "No function at point."))))
+         (buf (url-retrieve-synchronously (concat "https://php.net/manual-lookup.php?pattern=" function))))
+    (with-current-buffer buf
+      (goto-char (point-min))
+        (let (desc)
+          (when (re-search-forward "<div class=\"methodsynopsis dc-description\">\\(\\(.\\|\n\\)*?\\)</div>" nil t)
+            (setq desc
+              (replace-regexp-in-string
+                " +" " "
+                (replace-regexp-in-string
+                  "\n" ""
+                  (replace-regexp-in-string "<.*?>" "" (match-string-no-properties 1)))))
+
+            (when (re-search-forward "<p class=\"para rdfs-comment\">\\(\\(.\\|\n\\)*?\\)</p>" nil t)
+              (setq desc
+                    (concat desc "\n\n"
+                            (replace-regexp-in-string
+                             " +" " "
+                             (replace-regexp-in-string
+                              "\n" ""
+                              (replace-regexp-in-string "<.*?>" "" (match-string-no-properties 1))))))))
+
+          (if desc
+              (message desc)
+            (message "Could not extract function info. Press C-F1 to go the description."))))
+    (kill-buffer buf)))
+
+(require-package 'ac-php)
+
+(defun my/php-mode-stuff ()
+  (local-set-key (kbd "<f1>") 'my/php-function-lookup)
+  (local-set-key (kbd "C-<f1>") 'my/php-symbol-lookup)
+  ;; New versions of PHP have this :)
+  (php-enable-psr2-coding-style)
+  (fci-mode 0)
+  (auto-complete-mode t)
+  (require 'ac-php)
+  (setq ac-sources  '(ac-source-dictionary ac-source-abbrev ac-source-php ) )
+  (ac-php-core-eldoc-setup ) ;enable eldoc
+  (define-key php-mode-map  (kbd "C-]") 'ac-php-find-symbol-at-point) ;goto define
+  (define-key php-mode-map  (kbd "C-t") 'ac-php-location-stack-back)  ;go back
+  )
+
+(add-hook 'php-mode-hook 'my/php-mode-stuff)
+
+(myemacs/elapsed-time)
+(provide 'init-php)