[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[h-e-w] html-helper-mode problems!(2)
From: |
Max Mazza |
Subject: |
[h-e-w] html-helper-mode problems!(2) |
Date: |
Mon, 26 Apr 2004 22:30:18 +0200 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.4) Gecko/20030624 Netscape/7.1 (ax) |
oooops sorry, there is my .emacs file!
:D
(set-background-color "black")
(set-foreground-color "gray70")
(set-cursor-color "gray70")
;(global-font-lock-mode t)
(setq default-frame-alist
'((top . 200) (left . 400)
(width . 100) (height . 40)
(cursor-color . "white")
(cursor-type . box)
(foreground-color . "gray80")
(background-color . "black")
(font . "-*-Courier-normal-r-*-*-13-97-*-*-c-*-*-iso8859-1-")))
(setq initial-frame-alist '((top . 10) (left . 30)))
(cond ((fboundp 'global-font-lock-mode)
;; Customize face attributes
(setq font-lock-face-attributes
;; Symbol-for-Face Foreground Background Bold Italic Underline
'((font-lock-comment-face "green")
(font-lock-string-face "orange")
(font-lock-keyword-face "yellow")
(font-lock-function-name-face "cyan")
(font-lock-variable-name-face "NavajoWhite1")
(font-lock-type-face "IndianRed1")
(font-lock-reference-face "Purple")
))
;; Load the font-lock package.
(require 'font-lock)
;; Maximum colors
(setq font-lock-maximum-decoration t)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)))
(setq dos-printer "lpt4")
(add-hook 'c-mode-common-hook
(function(lambda()
(c-set-style "stroustrup")
(setq c-basic-offset 3)
(setq c-auto-newline t))))
(setq transient-mark-mode t)
(setq grep-null-device "c:\\nullfile")
;; the following IS REQUIRED or DOS shell don't work!!!!!!
;; Addition suggested by Voelker
(setq process-coding-system-alist
'(("cmdproxy" . (raw-text-dos . raw-text-dos))))
(load "desktop")
(desktop-load-default)
(desktop-read)
;(load "vc-hooks")
;(setq vc-path "c:/programmi/ComponentSoftware/cs-rcs/system")
; show all chars above 128
;(standard-display-8bit 128 255)
;(standard-display-european 1)
; enable column indicator
(setq column-number-mode t)
; enable time display
(setq display-time 1)
(set-face-background 'modeline "IndianRed1")
(set-face-foreground 'modeline "black")
(setq-default indent-tabs-mode nil)
(custom-set-faces)
; my addition 30/6/2002
(load "visual-basic-mode")
; addition suggested by Chris Lott (address@hidden)
/added 30/6/2002
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
; additions suggested by Gian Uberto Lauri (address@hidden) - added 29/6/2002
(setq auto-mode-alist
(cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.asp$" . html-helper-mode) auto-mode-alist))
;; Di solito .inc lo usa LaTeX, ma in ufficio a LaTeX pensano
;; che sia roba da preservativi
(setq auto-mode-alist
(cons '("\\.inc$" . html-helper-mode) auto-mode-alist))
;; nil if you DO NOT use visual-basic-mode as alternate mode for <% %>
;; blocks
(setq html-helper-mode-uses-visual-basic nil)
;; t if you want some 'electric' behaviour with templates...
(setq tempo-interactive t)
;; font-lock anything you can :)
(global-font-lock-mode t)
; --> linee aggiunte dal pacchetto html-helper-mode.tar, file hhm-config.el
;;; ALPHA ALPHA ALPHA
;;;
;;; load and eval this buffer (i.e. in your .emacs) to enable
;;; html-helper-mode customization even if the mode is not loaded.
;;;
;;; For Emacs 20.5.1 or newer (better: for those Emacsen supporting
;;; configuration
(defgroup html-helper nil
"Customizing html-helper-mode"
:group 'languages
:group 'hypermedia
:group 'local)
(defgroup html-helper-faces nil
"Customizing html-helper-mode custom faces"
:group 'html-helper
:group 'faces)
;; Default distribution doesn't include visual-basic-mode
(defcustom html-helper-mode-uses-visual-basic t
"Non nil to require visual-basic-mode"
:type 'boolean
:initialize 'custom-initialize-default
:group 'html-helper
:require 'html-helper-mode)
(defcustom html-helper-mode-uses-JDE nil
"No nil to use jde instead of java-mode"
:type 'boolean
:initialize 'custom-initialize-default
:group 'html-helper
:require 'html-helper-mode)
(defcustom html-helper-mode-uses-bold-italic nil
"Non nil to use the bold-italic font (if your font supports it)"
:type 'boolean
:initialize 'custom-initialize-default
:group 'html-helper
:require 'html-helper-mode)
(defcustom html-helper-mode-uses-KG-style t
"Non nil to make Emacs consider PHP/ASP code blocks beginning in
the first column"
:type 'boolean
:initialize 'custom-initialize-default
:group 'html-helper
:require 'html-helper-mode)
(defcustom html-helper-mode-global-JSP-not-ASP nil
"Non nil to make Emacs consider <% %> blocks as JSP (global default
behaviour)"
:type 'boolean
:initialize 'custom-initialize-default
:group 'html-helper
:require 'html-helper-mode)
(progn
(defvar html-tag-face
(defface html-tag-face
'((((class color)
(background dark))
(:foreground "deep sky blue" :bold t))
(((class color)
(background light))
(:foreground "dodger blue" :bold t))
(t
(:foreground "dodger blue" :bold t)))
"Face to use for HTML tags."
:group 'html-helper-faces))
(defvar html-helper-bold-face
(defface html-helper-bold-face
'((((class color)
(background dark))
(:foreground "wheat" :bold t))
(((class color)
(background light))
(:foreground "peru" :bold t))
(t
(:foreground "peru" :bold t)))
"Custom bold face."
:group 'html-helper-faces))
(defvar html-helper-italic-face
(defface html-helper-italic-face
'((((class color)
(background dark))
(:foreground "spring green" :italic t))
(((class color)
(background light))
(:foreground "medium sea green" :italic t))
(t
(:foreground "medium sea green" :italic t)))
"Custom italic face."
:group 'html-helper-faces))
(cond (html-helper-mode-uses-bold-italic
(defvar html-helper-bold-italic-face
(defface html-helper-bold-italic-face
'((((class color)
(background dark))
(:foreground "peachpuff" :bold t:italic t))
(((class color)
(background light))
(:foreground "orange" :bold t :italic t))
(t
(:foreground "orange" :bold t :italic t)))
"Custom bold italic face."
:group 'html-helper-faces))))
(defvar html-helper-underline-face
(defface html-helper-underline-face
'((((class color)
(background dark))
(:foreground "cornsilk" :underline t))
(((class color)
(background light))
(:foreground "goldenrod" :underline t))
(t
(:foreground "goldenrod" :underline t)))
"Custom underline face."
:group 'html-helper-faces)))
----------------------------------------------------------
awaiting for a reply..............
Max
- [h-e-w] html-helper-mode problems!(2),
Max Mazza <=