add objective-j support for emacs
This commit is contained in:
Sami Samhuri
parent
5fe5323355
commit
4dd7470dda
3 changed files with 322 additions and 0 deletions
7
emacs
7
emacs
|
|
@ -155,6 +155,13 @@
|
|||
(add-hook 'js2-mode-hook 'c-subword-mode)
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;
|
||||
;; objective j ;;
|
||||
;;;;;;;;;;;;;;;;;
|
||||
|
||||
(require 'objj-mode)
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
;; mojo (webOS) ;;
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
|||
284
emacs.d/objc-c-mode.el
Normal file
284
emacs.d/objc-c-mode.el
Normal file
|
|
@ -0,0 +1,284 @@
|
|||
;;; objc-c-mode.el --- improvements for the XEmacs Objective-C mode
|
||||
|
||||
;; Author: Michael Weber <michaelw@foldr.org>
|
||||
;; Version: 20020527
|
||||
;; Keywords: Objective-C, ObjC
|
||||
;; Depends: cc-mode, font-lock
|
||||
;; Tested with: XEmacs 21.4 (patch 6) "Common Lisp" [Lucid]
|
||||
|
||||
;;; Documentation:
|
||||
;;; ==============
|
||||
;;; To use this style for your Objective-C buffers, just add
|
||||
;;; (require 'objc-c-mode)
|
||||
;;;
|
||||
;;; to your XEmacs dot-file. It creates a new style `objc',
|
||||
;;; which is set as default for all objc-mode buffers.
|
||||
;;;
|
||||
;;; To further customize, try this:
|
||||
|
||||
;;; (defconst my-c-style
|
||||
;;; '("objc"
|
||||
;;; (c-indent-comments-syntactically-p . t)
|
||||
;;; (c-comment-only-line-offset . 0)
|
||||
;;; ;;; whatever else here...
|
||||
;;;
|
||||
;;; (c-cleanup-list . (brace-else-brace
|
||||
;;; brace-elseif-brace
|
||||
;;; empty-defun-braces
|
||||
;;; defun-close-semi
|
||||
;;; compact-empty-funcall
|
||||
;;; )))
|
||||
;;; "My C Programming style")
|
||||
;;;
|
||||
;;; (defun my-c-mode-common-hook ()
|
||||
;;; (c-add-style "PERSONAL" my-c-style t)
|
||||
;;; (setq comment-column 40
|
||||
;;; tab-width 4
|
||||
;;; c-basic-offset tab-width)
|
||||
;;;
|
||||
;;; (c-toggle-auto-state 1))
|
||||
;;;
|
||||
;;; ;; activate customizations for all cc-mode derived modes
|
||||
;;; (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
|
||||
|
||||
;;; If you want to specifically change the "objc" style,
|
||||
;;; probably use something like:
|
||||
|
||||
;;; (defconst my-objc-style
|
||||
;;; '(("objc"
|
||||
;;; (...)
|
||||
;;; "My ObjC style")))
|
||||
;;; (defun my-objc-mode-hook ()
|
||||
;;; (c-add-style "objc" my-objc-style))
|
||||
;;; (add-hook 'objc-mode-hook 'my-objc-mode-hook)
|
||||
|
||||
|
||||
;;; Code:
|
||||
;;; =====
|
||||
|
||||
(require 'cc-mode)
|
||||
|
||||
;;; Default values. Do not change them here, instead change them like
|
||||
;;; any other style variable in your customized style.
|
||||
;;; NOTE: These numbers are ignored anyway, below they are set based on
|
||||
;;; `c-basic-offset' which is usually what one wants anyway...
|
||||
(defcustom-c-stylevar objc-method-arg-min-delta-to-bracket 2
|
||||
"*Minimun number of chars to the opening bracket.
|
||||
|
||||
Consider this ObjC snippet:
|
||||
|
||||
[foo blahBlah: fred
|
||||
|<-x->|barBaz: barney
|
||||
|
||||
If `x' is less than this number then `c-lineup-ObjC-method-call-colons'
|
||||
will defer the indentation decision to the next function. By default
|
||||
this is `c-lineup-ObjC-method-call', which would align it like:
|
||||
|
||||
[foo blahBlahBlah: fred
|
||||
thisIsTooDamnLong: barney
|
||||
|
||||
This behaviour can be overridden by customizing the indentation of
|
||||
`objc-method-call-cont' in the \"objc\" style."
|
||||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar objc-method-arg-unfinished-offset 4
|
||||
"*Offset relative to bracket if first selector is on a new line.
|
||||
|
||||
[aaaaaaaaa
|
||||
|<-x->|bbbbbbb: cccccc
|
||||
ddddd: eeee];"
|
||||
:group 'c)
|
||||
|
||||
(defcustom-c-stylevar objc-method-parameter-offset 4
|
||||
"*Offset for selector parameter on a new line (relative to first selector.
|
||||
|
||||
[aaaaaaa bbbbbbbbbb:
|
||||
|<-x->|cccccccc
|
||||
ddd: eeee
|
||||
ffff: ggg];"
|
||||
:group 'c)
|
||||
|
||||
;; These are the real defaults (set here, because otherwise the
|
||||
;; indentation whines about them not being defined... *shrug*
|
||||
(setq c-style-variables (append
|
||||
'(objc-method-arg-min-delta-to-bracket
|
||||
objc-method-arg-unfinished-offset
|
||||
objc-method-parameter-offset)
|
||||
c-style-variables)
|
||||
|
||||
c-offsets-alist (append
|
||||
'((objc-method-arg-min-delta-to-bracket . *)
|
||||
(objc-method-arg-unfinished-offset . +)
|
||||
(objc-method-parameter-offset . +))
|
||||
c-offsets-alist))
|
||||
|
||||
|
||||
(defun c-lineup-ObjC-method-call-colons (langelem)
|
||||
"Line up the colons of selector args with the first selector.
|
||||
|
||||
If no decision can be made return NIL, so that other lineup methods can be
|
||||
tried. This is typically chained with `c-lineup-ObjC-method-call'."
|
||||
|
||||
(save-excursion
|
||||
(catch 'no-idea
|
||||
(let* ((method-arg-len (progn
|
||||
(back-to-indentation)
|
||||
(if (search-forward ":" (c-point 'eol) 'move)
|
||||
(- (point) (c-point 'boi))
|
||||
; no complete argument to indent yet
|
||||
(throw 'no-idea nil))))
|
||||
|
||||
(extra (save-excursion
|
||||
; indent parameter to argument if needed
|
||||
(back-to-indentation)
|
||||
(c-backward-syntactic-ws (cdr langelem))
|
||||
(if (eq ?: (char-before))
|
||||
(c-get-offset '(objc-method-parameter-offset . nil))
|
||||
0)))
|
||||
|
||||
(open-bracket-col (c-langelem-col langelem))
|
||||
|
||||
(arg-ralign-colon-ofs (progn
|
||||
(forward-char) ; skip over '['
|
||||
; skip over object/class name
|
||||
; and first argument
|
||||
(c-forward-sexp 2)
|
||||
(if (search-forward ":" (c-point 'eol) 'move)
|
||||
(- (current-column) open-bracket-col
|
||||
method-arg-len extra)
|
||||
; previous arg has no param
|
||||
(c-get-offset '(objc-method-arg-unfinished-offset . nil))))))
|
||||
|
||||
(if (>= arg-ralign-colon-ofs
|
||||
(c-get-offset '(objc-method-arg-min-delta-to-bracket . nil)))
|
||||
(+ arg-ralign-colon-ofs extra)
|
||||
(throw 'no-idea nil)
|
||||
)))))
|
||||
|
||||
|
||||
;;; create and add style
|
||||
(c-add-style "objc"
|
||||
'("gnu"
|
||||
(c-offsets-alist . ((objc-method-call-cont .
|
||||
(c-lineup-ObjC-method-call-colons
|
||||
c-lineup-ObjC-method-call
|
||||
+))
|
||||
))
|
||||
))
|
||||
|
||||
(setq c-default-style (cons '(objc-mode . "objc")
|
||||
c-default-style))
|
||||
|
||||
|
||||
;;
|
||||
;; Now for the font-locking part... :)
|
||||
;;
|
||||
(require 'font-lock)
|
||||
|
||||
(put 'objc-mode 'font-lock-defaults
|
||||
'((objc-font-lock-keywords
|
||||
objc-font-lock-keywords-1
|
||||
objc-font-lock-keywords-2
|
||||
objc-font-lock-keywords-3)
|
||||
;; TODO: ?_ is not a good idea in ObjC specifiers...
|
||||
nil nil ((?_ . "w")) beginning-of-defun))
|
||||
|
||||
(let* ((ctoken "\\(?:\\sw\\|\\s_\\|[:~*&]\\)+")
|
||||
(objc-keywords "YES\\|NO\\|[Nn]il\\|self\\|super")
|
||||
(objc-type-types "id\\|Class\\|SEL\\|IMP\\|BOOL")
|
||||
(addon-objc-font-lock-keywords-1
|
||||
(list ;; nothing to do here...
|
||||
))
|
||||
(addon-objc-font-lock-keywords-2
|
||||
(append addon-objc-font-lock-keywords-1
|
||||
(list
|
||||
;; first part of selector (in a declaration)
|
||||
(list (concat "^[+-][ \t]*"
|
||||
"\\((" ctoken "[ \t]*[*]*)\\)?[ \t]*"
|
||||
"\\(\\sw+\\)"
|
||||
)
|
||||
'(2 font-lock-function-name-face))
|
||||
;; part of a selector
|
||||
'("\\sw*:" 0 font-lock-function-name-face t)
|
||||
;; Fontify all type specifiers.
|
||||
(cons (concat "\\<\\(" objc-type-types "\\)\\>")
|
||||
'font-lock-type-face)
|
||||
;; Fontify all builtin keywords
|
||||
(cons (concat "\\<\\(" objc-keywords "\\)\\>")
|
||||
'font-lock-keyword-face)
|
||||
;; Fontify specific keywords
|
||||
(cons (concat "^" (regexp-opt (list
|
||||
"@implementation" "@interface"
|
||||
"@protocol" "@end" "@public"
|
||||
"@private" "@protected"
|
||||
) t))
|
||||
'font-lock-keyword-face)
|
||||
|
||||
(list (concat "\\("
|
||||
(regexp-opt (list
|
||||
"@class" "@defs" "@encode" "@selector"
|
||||
"@protocol"
|
||||
))
|
||||
"\\)[ \t]*(")
|
||||
1 'font-lock-keyword-face)
|
||||
|
||||
'("^#[ \t]*import[ \t]+\\(<[^>\"\n]+>\\)"
|
||||
1 font-lock-string-face)
|
||||
)
|
||||
))
|
||||
(addon-objc-font-lock-keywords-3
|
||||
(append addon-objc-font-lock-keywords-2
|
||||
(list
|
||||
;; get argument-less selectors' highlighting right
|
||||
;; [[foo _bar_] _baz_] -> bar, baz are highlighted
|
||||
(cons (concat "\\(\\sw+\\)" "[ \t]*" "[]]")
|
||||
'(1 (let ((non-ws-before-match (char-before
|
||||
(save-excursion
|
||||
(goto-char (match-beginning 1))
|
||||
;; expensive!
|
||||
(c-backward-syntactic-ws (c-point 'bol))
|
||||
))))
|
||||
(unless (or (eq ?: non-ws-before-match)
|
||||
(eq ?\[ non-ws-before-match))
|
||||
'font-lock-function-name-face))))
|
||||
|
||||
(cons (concat "\\<\\(" objc-type-types "\\)\\>"
|
||||
"\\([ \t*&]+\\sw+\\>\\)*")
|
||||
;; taken verbatim from font-lock.el
|
||||
'(font-lock-match-c++-style-declaration-item-and-skip-to-next
|
||||
(goto-char (or (match-beginning 8) (match-end 1)))
|
||||
(goto-char (match-end 1))
|
||||
(1 (if (match-beginning 4)
|
||||
font-lock-function-name-face
|
||||
font-lock-variable-name-face))))
|
||||
(cons (concat "\\<"
|
||||
(regexp-opt (list
|
||||
"NS_DURING" "NS_HANDLER" "NS_ENDHANDLER"
|
||||
"RECREATE_AUTORELEASE_POOL"
|
||||
"CREATE_AUTORELEASE_POOL"
|
||||
"ASSIGNCOPY" "ASSIGN" "RETAIN"
|
||||
"DESTROY" "AUTORELEASE" "RELEASE"
|
||||
) t)
|
||||
"\\>")
|
||||
'font-lock-preprocessor-face)
|
||||
)))
|
||||
)
|
||||
|
||||
(setq objc-font-lock-keywords-1 (append c-font-lock-keywords-1
|
||||
addon-objc-font-lock-keywords-1)
|
||||
|
||||
objc-font-lock-keywords-2 (append c-font-lock-keywords-2
|
||||
addon-objc-font-lock-keywords-2)
|
||||
|
||||
objc-font-lock-keywords-3 (append c-font-lock-keywords-3
|
||||
addon-objc-font-lock-keywords-3)
|
||||
))
|
||||
|
||||
|
||||
(defvar objc-font-lock-keywords objc-font-lock-keywords-1
|
||||
"Default expressions to highlight in ObjC mode.")
|
||||
|
||||
|
||||
(provide 'objc-c-mode)
|
||||
|
||||
;;; objc-c-mode.el ends here
|
||||
31
emacs.d/objj-mode.el
Normal file
31
emacs.d/objj-mode.el
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
;;; objj-mode.el --- Major mode for editing Objective-J (Cappuccino) files
|
||||
;;; Written by Geoffrey Grosenbach http://peepcode.com
|
||||
|
||||
;;; Builds on the excellent objc-mode from http://www.foldr.org/~michaelw/objective-c/objc-c-mode.el
|
||||
|
||||
;;; To install, save this somewhere and add the following to your .emacs file:
|
||||
;;;
|
||||
;;; (add-to-list 'load-path "/path/to/objc-c-mode.el")
|
||||
;;; (add-to-list 'load-path "/path/to/objj-mode.el")
|
||||
;;; (require 'objj-mode)
|
||||
;;;
|
||||
;;; Features:
|
||||
;;; * Syntax highlighting
|
||||
;;; * Indentation (minimal adherence to Obj-J coding style guidelines)
|
||||
|
||||
(require 'objc-c-mode)
|
||||
|
||||
(define-derived-mode objj-mode objc-mode
|
||||
"Objective-J"
|
||||
"Major mode for editing Objective-J files."
|
||||
(setq c-basic-offset 4) ;; 4 spaces for tab
|
||||
(setq indent-tabs-mode nil) ;; Spaces, not tabs
|
||||
(c-set-offset 'substatement-open 0) ;; Curly brace on next line
|
||||
)
|
||||
|
||||
;; TODO: Define more syntax settings to comply with http://cappuccino.org/contribute/coding-style.php
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.j$" . objj-mode))
|
||||
|
||||
(provide 'objj-mode)
|
||||
|
||||
Loading…
Reference in a new issue