Add temp hoon spacemacs layer

.spacemacs.d/init.el

@@ -34,6 +34,7 @@ values."
      emacs-lisp
      git
      github
+     hoon
      markdown
      org
      puppet

.spacemacs.d/private/hoon/README.org

@@ -0,0 +1,24 @@
+#+TITLE: hoon layer
+
+# The maximum height of the logo should be 200 pixels.
+[[img/hoon.png]]
+
+* Table of Contents                                        :TOC_4_gh:noexport:
+ - [[#description][Description]]
+ - [[#install][Install]]
+ - [[#key-bindings][Key bindings]]
+
+* Description
+This layer does wonderful things:
+  - thing01
+
+* Install
+To use this configuration layer, add it to your =~/.spacemacs=. You will need to
+add =hoon= to the existing =dotspacemacs-configuration-layers= list in this
+file.
+
+* Key bindings
+
+| Key Binding     | Description    |
+|-----------------+----------------|
+| ~<SPC> x x x~   | Does thing01   |

.spacemacs.d/private/hoon/local/hoon-mode/hoon-mode.el

@@ -0,0 +1,180 @@
+;;; hoon-mode.el --- Major mode for editing hoon files for urbit
+
+;; Copyright (C) 2014–2015 Urbit
+
+;; Author: 
+;;    * Adam Bliss     https://github.com/abliss          <abliss@gmail.com>
+;; Contributors: 
+;;    * N Gvrnd        https://github.com/ngvrnd
+;;    * TJamesCorcoran https://github.com/TJamesCorcoran <jamescorcoran@gmail.com>
+;;    * Rastus Vernon  https://github.com/rastus-vernon  <rastus.vernon@protonmail.ch>
+;;
+;; Keywords: extensions, hoon, nock, urbit, neoreaction, Mars
+
+;; This file 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 2, or (at your option)
+;; any later version.
+
+;; This file 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., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This is my first Major Mode, so don't expect much. It's heavily based on
+;; SampleMode from the emacs wiki.
+
+
+;;; Code:
+
+(defvar hoon-mode-hook nil)
+
+(defvar hoon-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-j" 'newline-and-indent)
+    map)
+  "Keymap for `hoon-mode'.")
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.hoon$" . hoon-mode))
+(add-to-list 'auto-mode-alist '("\\.hook$" . hoon-mode))
+
+(defvar hoon-mode-syntax-table
+  (let ((st (make-syntax-table lisp-mode-syntax-table)))
+    (modify-syntax-entry ?\' "\"" st)
+    (modify-syntax-entry ?| "." st)
+    (modify-syntax-entry ?\; "." st)
+    (modify-syntax-entry ?\" "\"" st)
+    (modify-syntax-entry ?: ". 12b" st)
+    (modify-syntax-entry ?\n "> b" st)
+    st)
+  "Syntax table for `hoon-mode'.")
+
+(defvar hoon-font-lock-keywords
+  '(
+    ("\\+\\+  \\(\\w+\\)" (1 font-lock-function-name-face))
+    ("\\(%\\w+\\)" (1 font-lock-keyword-face))
+    ("\\(\\w+\\)=" (1 font-lock-variable-name-face))
+    ("[=,]\\(\\w+\\|@\\w*\\)" (1 font-lock-type-face))
+    )
+  "Keyword highlighting specification for `hoon-mode'.")
+
+(defvar hoon-imenu-generic-expression ".*")
+
+(defvar hoon-outline-regexp ":::")
+
+;;;###autoload
+(define-derived-mode hoon-mode fundamental-mode "Hoon"
+  "A major mode for editing Hoon files."
+  :syntax-table hoon-mode-syntax-table
+  (set (make-local-variable 'comment-start) "::")
+  (set (make-local-variable 'comment-end) "")
+  (set (make-local-variable 'comment-use-syntax) nil)
+  (set (make-local-variable 'comment-start-skip) "\\(::+\\)\\s *")
+  (set (make-local-variable 'font-lock-defaults) '(hoon-font-lock-keywords))
+  (set (make-local-variable 'indent-tabs-mode) nil) ;; tabs zutiefst verboten
+  (set (make-local-variable 'indent-line-function) 'indent-relative)
+  (set (make-local-variable 'imenu-generic-expression)
+       hoon-imenu-generic-expression)
+  (set (make-local-variable 'outline-regexp) hoon-outline-regexp)
+  )
+
+;;; Indentation
+
+(defun hoon-indent-line ()
+  "Indent current line of Hoon code."
+  (interactive)
+  (let ((savep (> (current-column) (current-indentation)))
+        (indent (condition-case nil (max (hoon-calculate-indentation) 0)
+                  (error 0))))
+    (if savep
+        (save-excursion (indent-line-to indent))
+      (indent-line-to indent))))
+
+(defun hoon-calculate-indentation ()
+  "Return the column to which the current line should be indented."
+  0) ;;TODO
+
+
+
+;;----------
+;; hack the mode line
+;;----------
+
+;  In the urbit webserver a directory is basically a resource fork,
+;  and contains a single file, always named "hymn.hook". Emacs'
+;  default buffer-naming will, of course, name this hymn.hook.
+;
+;  But if you are visitng two files, 5/hymn.hook and 6/hymn.hook, they
+;  will both appear the same on the mode line.
+;
+;  This sucks, and we'd rather have them appear as "5/hymn.hook" and "6/hymn.hook".
+;
+;  Trivial, right? No.
+
+; The mode line is an interesting beast.
+;   1) it's defined in two variables:
+;        * mode-line-format, which includes in turn the variable...
+;        * mode-line-buffer-identification
+;   2) both of these include "magic" string components which
+;      constitute a micro-DSL (domain specific language), which includes tags like
+;      '%b', indicating that the buffer-name should be substituted in
+;      (see emacs variable docs for 'mode-line-format')
+;   3) this magic DSL is evaluated by lisp funcs that are written in C
+;      and thus which can not be monkey-patched
+;        https://www.gnu.org/software/emacs/manual/html_node/elisp/Primitive-Function-Type.html
+;      translation: "do not sharpen chainsaw while it is running"
+;   4) the commands that are executed when the DSL is interpreted are likewise written in C
+;
+; The upshot is... 
+;
+; WAIT. A better way exists. Instead of hacking the mode-line format,
+; just invoke 'rename-buffer, which also lives down in the C
+; underbelly. Everything falls out nicely.
+
+(defvar hoon-buffer-string "")
+(make-variable-buffer-local 'hoon-buffer-string)
+
+(defun hoon-mode-hack-the-modeline ()
+  ;; (setq mode-line-format
+  ;; 		'("%e" 
+  ;; 		  mode-line-front-space
+  ;; 		  mode-line-mule-info
+  ;; 		  mode-line-client
+  ;; 		  mode-line-modified
+  ;; 		  mode-line-remote
+  ;; 		  mode-line-frame-identification
+  ;; 		  hoon-buffer-string
+  ;; 		  "   "
+  ;; 		  mode-line-position
+  ;; 		  (vc-mode vc-mode)
+  ;; 		  "  "
+  ;; 		  mode-line-modes
+  ;; 		  mode-line-misc-info
+  ;; 		  mode-line-end-spaces))
+  ;; (setq hoon-buffer-string 
+  ;; 		(concat
+  ;; 		 (nth 1 (reverse (split-string (file-name-directory (buffer-file-name)) "/")))
+  ;; 		 "/"
+  ;; 		 (file-name-nondirectory (buffer-file-name))))
+
+  (rename-buffer
+		(concat
+		 (nth 1 (reverse (split-string (file-name-directory (buffer-file-name)) "/")))
+		 "/"
+		 (file-name-nondirectory (buffer-file-name))))
+)
+
+(add-hook 'hoon-mode-hook 'hoon-mode-hack-the-modeline)
+
+
+
+(provide 'hoon-mode)
+;;; hoon.el ends here

.spacemacs.d/private/hoon/packages.el

@@ -0,0 +1,70 @@
+;;; packages.el --- hoon layer packages file for Spacemacs.
+;;
+;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
+;;
+;; Author:  <hunner@ae>
+;; URL: https://github.com/syl20bnr/spacemacs
+;;
+;; This file is not part of GNU Emacs.
+;;
+;;; License: GPLv3
+
+;;; Commentary:
+
+;; See the Spacemacs documentation and FAQs for instructions on how to implement
+;; a new layer:
+;;
+;;   SPC h SPC layers RET
+;;
+;;
+;; Briefly, each package to be installed or configured by this layer should be
+;; added to `hoon-packages'. Then, for each package PACKAGE:
+;;
+;; - If PACKAGE is not referenced by any other Spacemacs layer, define a
+;;   function `hoon/init-PACKAGE' to load and initialize the package.
+
+;; - Otherwise, PACKAGE is already referenced by another Spacemacs layer, so
+;;   define the functions `hoon/pre-init-PACKAGE' and/or
+;;   `hoon/post-init-PACKAGE' to customize the package as it is loaded.
+
+;;; Code:
+
+(defconst hoon-packages
+  '(
+    (hoon-mode :location local))
+  "The list of Lisp packages required by the hoon layer.
+
+Each entry is either:
+
+1. A symbol, which is interpreted as a package to be installed, or
+
+2. A list of the form (PACKAGE KEYS...), where PACKAGE is the
+    name of the package to be installed or loaded, and KEYS are
+    any number of keyword-value-pairs.
+
+    The following keys are accepted:
+
+    - :excluded (t or nil): Prevent the package from being loaded
+      if value is non-nil
+
+    - :location: Specify a custom installation location.
+      The following values are legal:
+
+      - The symbol `elpa' (default) means PACKAGE will be
+        installed using the Emacs package manager.
+
+      - The symbol `local' directs Spacemacs to load the file at
+        `./local/PACKAGE/PACKAGE.el'
+
+      - A list beginning with the symbol `recipe' is a melpa
+        recipe.  See: https://github.com/milkypostman/melpa#recipe-format")
+
+(defun hoon/init-hoon-mode ()
+  (use-package hoon-mode))
+    ;; :defer t
+    ;; :init
+    ;; (progn
+    ;;   (setq hoon-extensions '("hoon","hook")
+    ;;         hoon-text-mode 'hoon-mode))))
+
+;;; packages.el ends here