[elpa] master 0e55815: Moved to external.

[Phillip Lord]

branch: master
commit 0e558159be3ef43c1a2dbef07edd01dcf17bb960
Author: Phillip Lord <address@hidden>
Commit: Phillip Lord <address@hidden>

    Moved to external.
    
    This was originally installed as a subtree but I dislike the workflow
    for dealing with subtrees so I have moved it to an external.
---
 externals-list                |    1 +
 packages/omn-mode/omn-mode.el |  240 -----------------------------------------
 2 files changed, 1 insertions(+), 240 deletions(-)

diff --git a/externals-list b/externals-list
index 1e58239..84d4d53 100644
--- a/externals-list
+++ b/externals-list
@@ -37,6 +37,7 @@
  ("gnorb"               :subtree "https://github.com/girzel/gnorb";)
  ("ioccur"             :subtree 
"https://github.com/thierryvolpiatto/ioccur.git";)
  ("js2-mode"           :subtree "https://github.com/mooz/js2-mode.git";)
+ ("omn-mode"            :external nil)
  ("pabbrev"             :external "https://github.com/phillord/pabbrev.git";)
  ("pinentry"           :subtree "https://github.com/ueno/pinentry-el.git";)
  ;;FIXME:("org"                :external ??) ;; Need to introduce snapshots!!
diff --git a/packages/omn-mode/omn-mode.el b/packages/omn-mode/omn-mode.el
deleted file mode 100644
index 1e3e7a6..0000000
--- a/packages/omn-mode/omn-mode.el
+++ /dev/null
@@ -1,240 +0,0 @@
-;;; omn-mode.el --- Support for OWL Manchester Notation
-
-;; Copyright (C) 2013  Free Software Foundation, Inc.
-
-;; Author: Phillip Lord <address@hidden>
-;; Maintainer: Phillip Lord <address@hidden>
-;; Website: http://www.russet.org.uk/blog
-;; Version: 1.0
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Defines a major mode for editing the Manchester OWL syntax.
-;; Basically, this is just a bit of font locking.
-
-;;; Code:
-
-;; (defgroup omn-mode nil
-;;   "Major mode to edit OWL Manchester Notation."
-;;   :group 'languages)
-
-(defvar omn-obsolete-electric-indent nil
-  "Set to t to use the old electric indent.  Better use 
`electric-indent-mode'.")
-
-(defvar omn-imenu-generic-expression
-  '(
-    ("Class"  "Class: \\([a-zA-Z:_]+\\)" 1)
-    ("ObjectProperty" "ObjectProperty: \\([a-zA-Z:_]+\\)" 1)
-    ("Individual" "Individual: \\([a-zA-Z:_]+\\)" 1)
-    )
-
-  "Imenu support for OMN.
-See `imenu-generic-expression' for details")
-
-
-(defvar omn-mode-entity-keywords
-  '(
-    "Ontology:"
-    "Namespace:"
-    "Class:"
-    "Individual:"
-    "ObjectProperty:"
-    "Import:"
-    "Datatype:"
-    "AnnotationProperty:"
-    "DisjointClasses:"
-    "Prefix:"
-    "owl:Thing"))
-
-(defvar omn-mode-property-keywords
-  '(
-    "EquivalentTo:"
-    "SubClassOf:"
-    "Annotations:"
-    "Characteristics:"
-    "DisjointUnion:"
-    "DisjointWith:"
-    "Domain:"
-    "Range:"
-    "InverseOf:"
-    "SubPropertyOf:"
-    "Types:"
-    "Facts:"
-    ))
-
-
-;; indentation engine
-(defun omn-indent-line()
-  (indent-line-to
-   (omn-determine-line-indent)))
-
-(defun omn-determine-line-indent()
-  (save-excursion
-    (beginning-of-line)
-    ;; check the first word
-
-    (let* ((match (re-search-forward "\\w+" (line-end-position) t))
-           (word (if match
-                     (match-string 0)
-                   "")))
-
-      (cond
-       ;; ((not match)
-       ;;  (progn
-       ;;    (if (not (forward-line -1))
-       ;;        (omn-determine-line-indent)
-       ;;      0)))
-
-       ;; if it is string, ident should be 0.
-       ((nth 3 (syntax-ppss (point)))
-        0)
-
-       ;; if it is a comment
-       ((nth 4 (syntax-ppss (point)))
-        ;; if there is a next line, indent the same as that
-        (cond
-         ((eq 0 (forward-line 1))
-          (omn-determine-line-indent))
-         ;; if there isn't return the same as the line before
-         ((eq 0 (forward-line -1))
-          (omn-determine-line-indent))
-         ;; who knows?
-         (t 0)))
-
-       ;; if it is one of Class:, Prefix: or so on, then indent should be 0
-       ((member word omn-mode-entity-keywords)
-        0)
-       ;; if it is Annotations:, SubClassOf: or so on, then indent should be 4
-       ((member word omn-mode-property-keywords)
-        4)
-
-       ;; if it is something else, then 8
-       (t 8)))))
-
-(add-to-list 'auto-mode-alist '("\\.pomn\\'" . omn-mode))
-
-(add-to-list 'auto-mode-alist '("\\.omn\\'" . omn-mode))
-
-(defvar omn-font-lock-defaults
-  `(,(concat "\\_<"
-             (regexp-opt omn-mode-entity-keywords t)
-             "\\_>")
-    (,(mapconcat
-       (lambda(x) x)
-       '("\\<some\\>"
-         "\\<only\\>"
-         "\\<and\\>"
-         "\\<or\\>"
-         "\\<exactly\\>"
-         "\\<max\\>"
-         "\\<min\\>"
-         "Transitive"
-         "Functional"
-         "InverseFunctional"
-         )
-       "\\|")
-     . font-lock-type-face)
-    (,(regexp-opt omn-mode-property-keywords)
-     . font-lock-builtin-face)
-    ("\\w+:\\w+" . font-lock-function-name-face)))
-
-
-(defvar omn-mode-syntax-table
-  (let ((st (make-syntax-table)))
-    ;; string quotes
-    (modify-syntax-entry ?\" "\"" st)
-    ;; This is a bit underhand, but we define the < and > characters to be
-    ;; "generic-string" delimiters. This results in fontification for URLs
-    ;; which is no bad thing. Additionally, it makes the comment character
-    ;; work, as "#" is a valid in a URL. The semantics of this isn't quite
-    ;; right, because the two characters are not paired. So <url> is
-    ;; recognised, but so is <url< or >url>.
-    ;; We could use a syntax-propertize-function to do more carefully.
-    (modify-syntax-entry ?\< "|" st)
-    (modify-syntax-entry ?\> "|" st)
-    ;; define comment characters for syntax
-    (modify-syntax-entry ?\# "<" st)
-    (modify-syntax-entry ?\n ">" st)
-    ;; Let's not confuse "words" and "symbols": "_" should not be part of the
-    ;; definition of a "word".
-    ;;(modify-syntax-entry ?\_ "w" st)
-    ;; For name space prefixes.
-    (modify-syntax-entry ?\: "w" st)
-    st))
-
-(defvar omn-mode-map
-  (let ((map (make-sparse-keymap)))
-    (when omn-obsolete-electric-indent
-      (dolist (x `(" " "," ":"))
-        (define-key map x 'omn-mode-electric-indent))
-      ;; need to bind to return as well
-      (define-key map (kbd "RET") 'omn-mode-electric-newline))
-    map))
-
-(defun omn-mode-electric-indent()
-  (interactive)
-  (self-insert-command 1)
-  (omn-mode-indent-here))
-
-(defun omn-mode-indent-here()
-  (let ((m (point-marker)))
-    (omn-indent-line)
-    (goto-char (marker-position m))))
-
-(defun omn-mode-electric-newline()
-  (interactive)
-  (newline)
-  (save-excursion
-    (forward-line -1)
-    (omn-indent-line)))
-
-(define-derived-mode omn-mode fundamental-mode "Omn"
-  "Doc string to add"
-
-  ;; font-lock stuff
-  (setq font-lock-defaults
-        '(omn-font-lock-defaults))
-
-  (set (make-local-variable 'comment-start) "#")
-  (set (make-local-variable 'comment-end) "")
-  ;; no idea what this is about -- stolen from generic
-  (set (make-local-variable 'comment-start-skip) "#+\\s-*")
-
-  (set (make-local-variable 'imenu-generic-expression)
-       omn-imenu-generic-expression)
-
-  (set (make-local-variable 'electric-indent-chars)
-       (append `(?\  ?\, ?\:)
-               (if (boundp 'electric-indent-chars)
-                   (default-value 'electric-indent-chars)
-                 '(?\n))))
-  
-  (set (make-local-variable 'indent-line-function) 'omn-indent-line))
-
-
-;; interaction with a reasoner.....
-;; Define a struct using CL, which defines a command. Then send this to the 
command line
-;; program as a single key-value pair line.
-;;
-;; Write a parser for this in Java.
-;; Write a "command" interface, use annotation to mark each of the command 
setMethods.
-;;
-;; Have the command interface return results between tags as lisp. We can eval
-;; this, and get the result in that way.
-
-(provide 'omn-mode)
-
-;;; omn-mode.el ends here