hacs.el

;;; hacs.el --- HACS editing commands for GNU Emacs

;; Copyright (C) 2015 John Downs

;; Author: John Downs
;; URL: https://github.com/jdowns/hacsel
;; Version: 0.0.2
;; Maintainer: John Downs
;; Keywords: languages, compilers

;; This file is not part of GNU Emacs.

;;; Commentary:

;; This file provides syntax highlighting and keybindings for
;; writing hacs source files.

;;; License:

;; 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 GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:
(setq myKeywords
  '(("//.*$" . font-lock-comment-face)
    ("[/][*].*[*][/]" . font-lock-comment-face)
    ("\\(⟦\\|⟩\\)[^⟦⟧⟨⟩]*\\(⟨\\|⟧\\)" . font-lock-string-face)
    ("[#][A-Za-z0-9_#]*" . font-lock-variable-name-face)
    ("[@][0-9]+" . font-lock-reference-face)
    ("\\(↑\\|↓\\)[ ]*[a-z][A-Za-z0-9_]*" . font-lock-function-name-face)
    ("[A-Z][A-Za-z0-9_]*" . font-lock-type-face)
    ("\\<\\(module\\|space\\|token\\|fragment\\|main\\|sort\\|sugar\\|symbol\\|scheme\\|attribute\\|binds\\|as\\)\\>" . font-lock-keyword-face)))

(define-derived-mode hacs-mode c-mode
  (setq font-lock-defaults '(myKeywords))
   (setq mode-name "hacs lang"))

;(setq font-lock-defaults '(myKeywords))

(global-set-key
(kbd "C-c ~")
'(lambda ()
   (interactive) (insert "¬")))

(global-set-key
 (kbd "C-c x")
 '(lambda ()
    (interactive) (insert "×")))

(global-set-key
 (kbd "C-c /")
 '(lambda ()
    (interactive) (insert  "÷")))

(global-set-key
 (kbd "C-c <RET>")
 '(lambda ()
    (interactive) (insert "¶")))

(global-set-key
 (kbd "C-c <up>")
 '(lambda ()
    (interactive) (insert "↑")))

(global-set-key
 (kbd "C-c =")
 '(lambda ()
    (interactive) (insert "→")))

(global-set-key
 (kbd "C-c <down>")
 '(lambda ()
    (interactive) (insert "↓")))

(global-set-key
 (kbd "C-c [")
 '(lambda ()
    (interactive) (insert "⟦")))

(global-set-key
 (kbd "C-c ]")
 '(lambda ()
    (interactive) (insert "⟧")))

(global-set-key
 (kbd "C-c <")
 '(lambda ()
    (interactive) (insert "⟨")))

(global-set-key
 (kbd "C-c >")
 '(lambda ()
    (interactive) (insert "⟩")))


;(provide 'hacs)
;;; hacs.el ends here