EMACS: lots of changes

* Extended ** emacs.d/functions.el - Added a optional ~else~ part to ~foreach~ in HTML keywords, since smarty *can* also use ~foreachelse~, and this was only fontifying the ~foreach~ part. - Only load (and modify) naquadah-theme when we're running in X. I'd prefer to know if we have 256 colors available, but I haven't found that yet. - Only try to go to fullscreen if X is running. - Show a lambda symbol when the word lambda is found in a prog-mode buffer. - Enable auto-fill-mode when prog-mode is started. - Don't set pear options, pi-php-mode does it. - Added function to show ~lambda~ as a lambda symbol - Added function to create or update gtags file. ** emacs.el - Add pi-php-mode. - Removed muttrc-mode. - Use pi-php-mode instead of php-mode-improved. - Use ~(getenv)~ to get the browser. - Don't care about ~org-babel-confirm-evaluate~ and ~org-ditaa-jar-path~. - Set ~org-return-follows-link~ to ~t~, enter follows a link in ~org-mode~. - Set ~mouse-autoselect-window~ to ~t~, moving the mouse changes buffer focus. - Set ~pop-up-windows~ to ~nil~, so that popup functions use an existing window. - Set ~org-log-into-drawer~ to ~t~, so that activities are put in a drawer in ~org-mode~. - Set ~mail-header-separator~ to an empty string for ~message-mode~. - Use ~message-mode~ instead of ~mail-mode~.
2011-07-15 19:08:07 +02:00 · 2011-07-15 19:08:07 +02:00 · 2e3c5df4d7
commit 2e3c5df4d7
parent ce4e353a70
2 changed files with 141 additions and 71 deletions
--- a/emacs.d/functions.el
+++ b/emacs.d/functions.el
@ -74,7 +74,7 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
  (font-lock-add-keywords
   'html-mode
   '(("{\\(\\*.*\\*\\)}" 1 font-comment-face)
-     ("{\\/?\\(extends\\|block\\|foreach\\|if\\)"
+     ("{\\/?\\(extends\\|block\\|foreach\\(else\\)?\\|if\\)"
      1 font-lock-builtin-face)
     ("\\$\\(\\(?:\\sw\\|\\s_\\)+\\)\\(?:|\\(\\(?:\\sw\\|\\s_\\)+\\):\\)"
      (1 font-lock-variable-name-face)
@ -121,7 +121,24 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
  (insert-char ?\; width))

 (defun x-init ()
-  "Start ide-skel and set some keys")
+  "Initialization only for X"
+  (require 'naquadah-theme)
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  ;;                       THEME SETTINGS                       ;;
+  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  (naquadah-theme-set-faces
+   'naquadah
+
+   ;; markdown-mode
+   '(markdown-link-face (:inherit 'link))
+   '(markdown-header-face-1 (:inherit 'org-level-1))
+   '(markdown-header-face-2 (:inherit 'org-level-2))
+   '(markdown-header-face-3 (:inherit 'org-level-3))
+   '(markdown-header-face-4 (:inherit 'org-level-4))
+   '(markdown-header-face-5 (:inherit 'org-level-5))
+   '(markdown-header-face-6 (:inherit 'org-level-6)))
+
+  (add-hook 'emacs-startup-hook 'fullscreen))

 (defun cli-init ()
  "Add a space to the linum column"
@ -156,7 +173,9 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
     ("\\b\\(\\.[0-9]+\\([eE][-+]?[0-9]+\\)?\\([lL]\\|[fF]\\|[dD]\\)?\\)\\b"
      0 font-lock-constant-face)))
  (set-column-marker)
-  (rainbow-delimiters-mode))
+  (rainbow-delimiters-mode)
+  (pretty-lambdas)
+  (auto-fill-mode 1))

 (defun on-c-mode ()
  (local-set-key [f8]       'c-toggle-header-source)
@ -178,10 +197,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
  (auto-fill-mode 1))

 (defun on-php-mode ()
-  (defvar php-warn-if-mumamo-off nil)
-  (setq case-fold-search t)
-  (c-set-offset 'arglist-intro '+)
-  (c-set-offset 'arglist-close '0)
  (column-marker-1 76)
  (column-marker-2 81)
  (local-set-key [f6] 'comment-line))
@ -189,3 +204,25 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
 (defun on-mail-mode ()
  (turn-on-auto-fill)
  (search-forward "\n\n"))
+
+(defun pretty-lambdas ()
+  (font-lock-add-keywords
+   nil `(("(\\(lambda\\>\\)"
+          (0 (progn
+               (compose-region (match-beginning 1)
+                               (match-end 1)
+                               ?λ)))))))
+
+;; http://emacs-fu.blogspot.com/2009/01/navigating-through-source-code-using.html
+(defun djcb-gtags-create-or-update ()
+  "create or update the gnu global tag file"
+  (interactive)
+  (if (not (= 0 (call-process "global" nil nil nil " -p"))) ; tagfile
+      (let ((olddir default-directory)  ; doesn't exist?
+            (topdir (read-directory-name
+                     "gtags: top of source tree:" default-directory)))
+        (cd topdir)
+        (shell-command "gtags && echo 'created tagfile'")
+        (cd olddir))                    ; restore
+    ;; tagfile already exists; update it
+    (shell-command "global -u && echo 'updated tagfile'")))
--- a/emacs.el
+++ b/emacs.el
@ -7,11 +7,11 @@
 (add-to-list 'load-path "~/.emacs.d/elisp/markdown-mode")
 (add-to-list 'load-path "~/.emacs.d/elisp/git-commit-mode")
 (add-to-list 'load-path "~/.emacs.d/elisp/lua-mode")
+(add-to-list 'load-path "~/.emacs.d/elisp/pi-php-mode")

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                          REQUIRES                          ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(require 'naquadah-theme)
 (require 'autopair)
 (require 'column-marker)
 (require 'git-commit)
@ -21,7 +21,6 @@
 (require 'server)
 (require 'org-publish)
 (require 'htmlize)
-(require 'muttrc-mode)

 (load-file "~/.emacs.d/functions.el")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -32,7 +31,7 @@
 (autoload 'sqlplus-mode      "sqlplus"         "Major mode for PL/SQL" t)
 (autoload 'batch-mode        "batch-mode"       "Major mode for Batch" t)
 (autoload 'lua-mode          "lua-mode"         "A Major mode for Lua" t)
-(autoload 'php-mode          "php-mode-improved"  "Major mode for PHP" t)
+(autoload 'php-mode          "pi-php-mode"        "Major mode for PHP" t)
 (autoload 'graphviz-dot-mode "graphviz-dot-mode"  "Major mode for dot" t)
 (autoload 'cmake-mode        "cmake-mode"       "Major mode for CMake" t)
 (autoload 'markdown-mode     "markdown-mode" "Major mode for Markdown" t)
@ -56,57 +55,6 @@
  (message "Running after frame-initialize")
  (setup-system-frame-colours))

-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;                     FILE ASSOCIATIONS                      ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(add-to-list 'auto-mode-alist '("\\.vala$"            . vala-mode))
-(add-to-list 'auto-mode-alist '("\\.vapi$"            . vala-mode))
-(add-to-list 'auto-mode-alist '("\\.cs$"              . csharp-mode))
-(add-to-list 'auto-mode-alist '("\\.bat$"             . batch-mode))
-(add-to-list 'auto-mode-alist '("\\.lua$"             . lua-mode))
-(add-to-list 'auto-mode-alist '("\\.php[345]?$"       . php-mode))
-(add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$"     . js-mode))
-(add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?do?wn$". markdown-mode))
-(add-to-list 'auto-mode-alist '("CMakeLists\\.txt$"   . cmake-mode))
-(add-to-list 'auto-mode-alist '("\\.cmake$"           . cmake-mode))
-(add-to-list 'auto-mode-alist '("\\.css$"             . css-mode))
-(add-to-list 'auto-mode-alist '("mutt-cloud-"         . mail-mode))
-(add-to-list 'auto-mode-alist '("stumpwmrc"           . stumpwm-mode))
-(add-to-list 'auto-mode-alist '("\\.go$"              . go-mode))
-
-(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
-(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;                          KEYBINDS                          ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(global-set-key "\C-m" 'newline-and-indent)
-(global-set-key (kbd "C-x n r") 'narrow-to-region)
-(global-set-key "\C-cl" 'org-store-link)
-(global-set-key "\C-cc" 'org-capture)
-(global-set-key "\C-ca" 'org-agenda)
-(global-set-key [f5] '(lambda ()
-                        (interactive)
-                        (revert-buffer nil t nil)))
-(global-set-key [M-left]  'windmove-left)
-(global-set-key [M-right] 'windmove-right)
-(global-set-key [M-up]    'windmove-up)
-(global-set-key [M-down]  'windmove-down)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;                       THEME SETTINGS                       ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(naquadah-theme-set-faces
- 'naquadah
-
- ;; markdown-mode
- '(markdown-link-face (:inherit 'link))
- '(markdown-header-face-1 (:inherit 'org-level-1))
- '(markdown-header-face-2 (:inherit 'org-level-2))
- '(markdown-header-face-3 (:inherit 'org-level-3))
- '(markdown-header-face-4 (:inherit 'org-level-4))
- '(markdown-header-face-5 (:inherit 'org-level-5))
- '(markdown-header-face-6 (:inherit 'org-level-6)))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                          SETTINGS                          ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -119,20 +67,23 @@
 (setq inhibit-default-init t)           ; Don't load default library
 (setq scroll-conservatively 101)        ; scroll only one line
 (setq browse-url-browser-function 'browse-url-generic)
-(setq browse-url-generic-program "$BROWSER")
+(setq browse-url-generic-program (getenv "BROWSER"))
 (setq whitespace-style '(face trailing)) ; For use with markdown mode
 (setq uniquify-buffer-name-style 'reverse)
-(setq org-confirm-babel-evaluate nil)
 (setq org-tags-exclude-from-inheritance '("crypt"))
 (setq org-crypt-key "33E8CC1CC4")
 (setq org-use-fast-todo-selection t)
 (setq org-default-notes-file (concat org-directory "/notes.org"))
-(setq org-ditaa-jar-path "/usr/share/java/ditaa/ditaa-0_9.jar")
 (setq jit-lock-defer-time 0.2)          ; Don't fontlock immediately
 (setq htmlize-output-type 'inline-css)
 (setq ido-save-directory-list-file nil)
 (setq ido-auto-merge-delay-time 2)      ; Wait before fixing names
 (setq org-outline-path-complete-in-steps t)
+(setq org-return-follows-link t)
+(setq mouse-autoselect-window t)
+(setq pop-up-windows nil)
+(setq org-log-into-drawer t)
+(setq mail-header-separator "")

 (setq frame-title-format ; I don't like emacs@cloud, must have file
 '(:eval                 ; name
@ -155,9 +106,6 @@
             "DONE(d!/!)"
             "CANCELLED(c@/!)")))

-(setq org-babel-load-languages
- '((ditaa . t)))
-
 (setq org-refile-targets
 '((org-agenda-files :maxlevel . 5)
   (nil              :maxlevel . 5)))
@ -189,6 +137,44 @@

 (add-to-list 'compilation-finish-functions 'my-comp-finish-function)

+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                     FILE ASSOCIATIONS                      ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-to-list 'auto-mode-alist '("\\.vala$"            . vala-mode))
+(add-to-list 'auto-mode-alist '("\\.vapi$"            . vala-mode))
+(add-to-list 'auto-mode-alist '("\\.cs$"              . csharp-mode))
+(add-to-list 'auto-mode-alist '("\\.bat$"             . batch-mode))
+(add-to-list 'auto-mode-alist '("\\.lua$"             . lua-mode))
+(add-to-list 'auto-mode-alist '("\\.php[345]?$"       . php-mode))
+(add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$"     . js-mode))
+(add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?do?wn$". markdown-mode))
+(add-to-list 'auto-mode-alist '("CMakeLists\\.txt$"   . cmake-mode))
+(add-to-list 'auto-mode-alist '("\\.cmake$"           . cmake-mode))
+(add-to-list 'auto-mode-alist '("\\.css$"             . css-mode))
+(add-to-list 'auto-mode-alist '("stumpwmrc"           . stumpwm-mode))
+(add-to-list 'auto-mode-alist '("\\.go$"              . go-mode))
+(add-to-list 'auto-mode-alist '("\\.commitmsg$"       . org-mode))
+(add-to-list 'auto-mode-alist '(".*mutt.*"            . message-mode))
+
+(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
+(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                          KEYBINDS                          ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(global-set-key "\C-m" 'newline-and-indent)
+(global-set-key (kbd "C-x n r") 'narrow-to-region)
+(global-set-key "\C-cl" 'org-store-link)
+(global-set-key "\C-cc" 'org-capture)
+(global-set-key "\C-ca" 'org-agenda)
+(global-set-key [f5] '(lambda ()
+                        (interactive)
+                        (revert-buffer nil t nil)))
+(global-set-key [M-left]  'windmove-left)
+(global-set-key [M-right] 'windmove-right)
+(global-set-key [M-up]    'windmove-up)
+(global-set-key [M-down]  'windmove-down)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                           HOOKS                            ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -200,12 +186,24 @@
 (add-hook 'markdown-mode-hook         'on-markdown-mode)
 (add-hook 'org-mode-hook              'on-org-mode)
 (add-hook 'php-mode-hook              'on-php-mode)
-(add-hook 'mail-mode-hook             'on-mail-mode)
+(add-hook 'message-mode-hook          'on-mail-mode)
 (add-hook 'git-commit-mode-hook       'auto-fill-mode)
-(add-hook 'emacs-startup-hook         'fullscreen)
 (add-hook 'css-mode-hook              'rainbow-mode)
 (add-hook 'after-make-frame-functions 'setup-system-frame-colours t)

+(add-hook 'gtags-mode-hook
+          (lambda ()
+            (local-set-key (kbd "M-,") 'gtags-find-tag) ; find a tag,
+                                        ; also M-.
+            (local-set-key (kbd "M-.") 'gtags-find-rtag))) ; reverse
+                                        ; tag
+
+(add-hook 'c-mode-common-hook
+          (lambda ()
+            (require 'gtags)
+            (gtags-mode t)
+            (djcb-gtags-create-or-update)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                         SKELETONS                          ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -253,6 +251,41 @@
  " characters */"
  '(fill-paragraph))

+(define-skeleton myaethon-simple-entity
+  "A basic database entity"
+  ""
+  '(setq name (skeleton-read "Name: "))
+  "<?php\n"
+  "require_once('classes/dbobject.php');\n"
+  "\n"
+  "/* Entity for the " (downcase name) " table */\n"
+  "class " name " extends DB_Object\n"
+  "{\n"
+  "/* Table to select data from */\n"
+  "protected static $tables = '" (downcase name) "';\n"
+  "\n"
+  "/* Get the name of this class\n"
+  "--\n"
+  "ret: __CLASS__ */\n"
+  "protected static function get_class_name()\n"
+  "{\n"
+  "return __CLASS__;\n"
+  "}\n"
+  "\n"
+  "public function update()\n"
+  "{\n"
+  "throw new Exception('Not Implemented.');\n"
+  "}\n"
+  "\n"
+  "public function insert()\n"
+  "{\n"
+  "throw new Exception('Not Implemented.');\n"
+  "}\n"
+  "}\n"
+  "\n"
+  "?>\n"
+  '(indent-region (point-min) (point-max)))
+
 (org-crypt-use-before-save-magic)
 (ad-activate 'server-create-window-system-frame)
 (add-php-keywords)
@ -267,8 +300,8 @@
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
- '(org-agenda-files (quote ("~/documents/org/main.org")))
- '(safe-local-variable-values (quote ((Mode . shell-script) (ispell-local-dictionary . nl)))))
+ '(org-agenda-files (quote ("~/documents/work/aethon/aethon.org" "~/org/notes.org" "~/development/projects/aethon/myaethon/README.org" "~/documents/org/main.org")))
+ '(safe-local-variable-values (quote ((ispell-dictionary . "nl") (ispell-dictionary . nl) (Mode . shell-script) (ispell-local-dictionary . nl)))))
 (custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.