NAME

Hyper::Developer::Manual::IDE::Emacs - Hints for Emacs Users

VERSION

This document describes Hyper::Developer::Manual::IDE::Emacs 0.01

DESCRIPTION

AUTO GENERATOR

You can use could use the auto-generator feature of hyper to generate code on configuration save.

Just put the following code into your .emacs file and replace the $BASE_PATH thing with your application base path.

(add-hook
 'after-save-hook
 (lambda ()
  (if (string-match "$BASE_PATH/etc/" buffer-file-name)
      (shell-command
         (concat
            "hyper.pl --file="
            (shell-quote-argument buffer-file-name)
         )
      )
  )
 )
)

QUICK SWITCH BETWEEN TEMPLATE/CONFIG/CODE

If you are a power user of Hyper you may like it to switch with a shortcut between your Control parts.

This example uses the following shortcuts

C-xv    var - Template
C-xe    etc - Config
C-xl    lib - Code

You have to add the following content into your .emacs file

(defun hyper-var ()
   (interactive)
   (if (string-match
          "/lib\\(/[^/]+/Control/[^/]+/[^\.]+\\).pm"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
            "/lib\\(/[^/]+/Control/[^/]+/[^\.]+\\).pm"
            "/var\\1.htc" buffer-file-name))
   )
   (if (string-match
          "/etc\\(/[^/]+/Control/[^/]+/[^\.]+\\).ini"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
            "/etc\\(/[^/]+/Control/[^/]+/[^\.]+\\).ini"
            "/var\\1.htc" buffer-file-name))
   )
)
(define-key minibuffer-local-completion-map " " 'hyper-var)
(global-set-key "\C-xv" 'hyper-var)
(defun hyper-etc ()
   (interactive)
   (if (string-match
          "/lib\\(/[^/]+/Control/[^/]+/[^\.]+\\).pm"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
            "/lib\\(/[^/]+/Control/[^/]+/[^\.]+\\).pm"
            "/etc\\1.ini" buffer-file-name))
   )
   (if (string-match
          "/var\\(/[^/]+/Control/[^/]+/[^\.]+\\).htc"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
          "/var\\(/[^/]+/Control/[^/]+/[^\.]+\\).htc"
          "/etc\\1.ini" buffer-file-name))
   )
)
(define-key minibuffer-local-completion-map " " 'hyper-etc)
(global-set-key "\C-xe" 'hyper-etc)
(defun hyper-lib ()
   (interactive)
   (if (string-match
          "/etc\\(/[^/]+/Control/[^/]+/[^\.]+\\).ini"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
            "/etc\\(/[^/]+/Control/[^/]+/[^\.]+\\).ini"
            "/lib\\1.pm" buffer-file-name))
   )
   (if (string-match
          "/var\\(/[^/]+/Control/[^/]+/[^\.]+\\).htc"
          buffer-file-name)
       (find-file (
          replace-regexp-in-string
            "/var\\(/[^/]+/Control/[^/]+/[^\.]+\\).htc"
            "/lib\\1.pm"
            buffer-file-name))
   )
)
(define-key minibuffer-local-completion-map " " 'hyper-lib)
(global-set-key "\C-xl" 'hyper-lib)

RCS INFORMATIONS

Last changed by

$Author: ac0v $

Id

$Id: Emacs.pod 320 2008-02-16 02:04:51Z ac0v $

Revision

$Revision: 320 $

Date

$Date: 2008-02-16 03:04:51 +0100 (Sat, 16 Feb 2008) $

HeadURL

$HeadURL: http://svn.hyper-framework.org/Hyper/Hyper-Developer/trunk/lib/Hyper/Developer/Manual/IDE/Emacs.pod $

AUTHOR

Andreas Specht <ACID@cpan.org>

LICENSE AND COPYRIGHT

Copyright (c) 2007, Andreas Specht <ACID@cpan.org>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.