S
Stefan Robert
Guest
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Stefan
Navigation
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
More options
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
B
Bernd Fischer
Guest
Stefan Robert wrote:
Do a search in this group (e.g. with Google), I'm sure you'll find it!Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
A
A. B.
Guest
Bernd Fischer > wrote:
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply with
the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
with a ref to a site in sweeden and another one probably a mirror inStefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply with
the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
E
Eyck Jentzsch
Guest
Stefan Robert wrote:
HTH
-Eyck
points to ftp://ftp.informatik.uni-stuttgart.de/pub/skill/ (which is alive).Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
A simple google using "skillmode emacs" leads to an emacs wiki which
HTH
-Eyck
S
Stefan Robert
Guest
Yes I finally found this after re-discovering it a second time.
The first time I tried this I must have made an error and it wrongfully
showed that it was not alive anymore.
I re-tried this and suprisingly found that it was alive...
thanks
On 2004-12-16 03:40:46 -0500, Eyck Jentzsch <jentzsch@cadence.com> said:
The first time I tried this I must have made an error and it wrongfully
showed that it was not alive anymore.
I re-tried this and suprisingly found that it was alive...
thanks
On 2004-12-16 03:40:46 -0500, Eyck Jentzsch <jentzsch@cadence.com> said:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
A simple google using "skillmode emacs" leads to an emacs wiki which
points to ftp://ftp.informatik.uni-stuttgart.de/pub/skill/ (which is
alive).
HTH
-Eyck
S
Stephen Chadfield
Guest
evillen@innocent.com <evillen@innocent.com> wrote:
out-of-the-box.
--
Stephen Chadfield
http://www.chadfield.com/
As an alternative Vim comes with excellent Skill syntax highlightingI came across this thread and downloaded the Major mode for Skill
files. I have a few questions about getting started and hope that
someone might be able to help me.
out-of-the-box.
--
Stephen Chadfield
http://www.chadfield.com/
A
Andrew Beckett
Guest
On Tue, 22 Feb 2005 15:51:36 -0700, Satya Mishra <snmishra@XXXhotYYYpop.com>
wrote:
Cadence. If memory serves, it was written by somebody at Ericsson. I don't
think the original author is still involved in SKILL related stuff (and
probably not at Ericsson any more) - this is pretty old...
So we're not violating GPL. I think to get it to work with later emacs
versions, somebody had to twiddle some bits in the binary code to get it to
work (as we didn't have the source code).
Andrew.
wrote:
I don't think we have the source code, as it wasn't written by anyone inI don't know if Cadence's insistence on not giving out source code for
skill-mode is a violation of GPL.
Cadence. If memory serves, it was written by somebody at Ericsson. I don't
think the original author is still involved in SKILL related stuff (and
probably not at Ericsson any more) - this is pretty old...
So we're not violating GPL. I think to get it to work with later emacs
versions, somebody had to twiddle some bits in the binary code to get it to
work (as we didn't have the source code).
Andrew.
S
Satya Mishra
Guest
"Andrew" == Andrew Beckett <andrewb@DcEaLdEeTnEcTe.HcIoSm> writes:
Andrew> Date: Wed, 23 Feb 2005 05:47:00 +0000
Andrew> On Tue, 22 Feb 2005 15:51:36 -0700, Satya Mishra
Andrew> <snmishra@XXXhotYYYpop.com>
Andrew> wrote:
Andrew> I don't think we have the source code, as it wasn't
Andrew> written by anyone in Cadence. If memory serves, it was
Andrew> written by somebody at Ericsson. I don't think the
Andrew> original author is still involved in SKILL related stuff
Andrew> (and probably not at Ericsson any more) - this is pretty
Andrew> old...
I see. It's a pity Cadence doesn't have the source code. The mode
could use a bit of modernization.
Satya
--
Remove XXX and YYY to get my address
A
Andrew Beckett
Guest
Actually I don't know where it is (I'm a hardened vi user).
I'll do some digging around to see if I can find it.
Andrew.
On 23 Feb 2005 08:43:17 -0800, evillen@innocent.com wrote:
I'll do some digging around to see if I can find it.
Andrew.
On 23 Feb 2005 08:43:17 -0800, evillen@innocent.com wrote:
Thanks for all the responses.
Andrew could you please email or provide a link to the latest
skill-mode files? I can't find anything on Sourcelink and it would
probably be quicker than asking our AE to pursue this for me.
Many thanks.
Andrew Beckett wrote:
On Tue, 22 Feb 2005 15:51:36 -0700, Satya Mishra
snmishra@XXXhotYYYpop.com
wrote:
I don't know if Cadence's insistence on not giving out source code
for
skill-mode is a violation of GPL.
I don't think we have the source code, as it wasn't written by anyone
in
Cadence. If memory serves, it was written by somebody at Ericsson. I
don't
think the original author is still involved in SKILL related stuff
(and
probably not at Ericsson any more) - this is pretty old...
So we're not violating GPL. I think to get it to work with later
emacs
versions, somebody had to twiddle some bits in the binary code to get
it to
work (as we didn't have the source code).
Andrew.
B
Bernd Fischer
Guest
Hi,
to satisfy your curiousness there are SKILL modes
for emacs, vim and nedit.
I personaly use nedit, but that's personal preference.
Listed are two files which I have in a directory, because I use nedit
you have to know how how to use them.
Bernd
;; xemacs-options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point t)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p nil)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
;(setq-default temp-buffer-show-function 'il-temp-buffer-show-function)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts '(or (mono) (grayscale)))
(setq-default font-lock-use-colors '(color))
(setq-default font-lock-maximum-decoration nil)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier scrollbar-width
'((global (nil . 19)))) (add-spec-list-to-specifier scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
(setq-default truncate-lines nil)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function
'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function
'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts nil)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top)
(add-spec-list-to-specifier default-toolbar-visible-p '((global (nil . t))))
(add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'font-lock-variable-name-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'underline)
(make-face 'pointer)
(make-face 'red)
(make-face 'primary-selection)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'bold)
(make-face 'paren-blink-off)
(make-face 'paren-mismatch)
(make-face 'blue)
(make-face 'font-lock-other-emphasized-face)
(make-face 'modeline-buffer-id)
(make-face 'default)
(make-face 'green)
(make-face 'font-lock-function-name-face)
(make-face 'text-cursor)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'gui-button-face)
(make-face 'modeline-mousable-minor-mode)
(make-face 'paren-match)
(make-face 'font-lock-type-face)
(make-face 'font-lock-doc-string-face)
(make-face 'modeline)
(make-face 'font-lock-emphasized-face)
(make-face 'highlight)
(make-face 'secondary-selection)
(make-face 'left-margin)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-keyword-face)
(make-face 'italic)
(make-face 'font-lock-other-type-face)
(make-face 'yellow)
(make-face 'modeline-mousable)
(make-face 'right-margin)
(make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face
'foreground) '((global ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face
'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'foreground) '((global ((x) . "ForestGreen") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font)
'((global (nil . "-*-courier-medium-o-*-*-14-*") ((mono) . [italic])
((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global
((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'underline 'underline) '((global
(nil . t))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global
((color) . "red"))))
(add-spec-list-to-specifier (face-property 'primary-selection 'foreground) 'nil)
(add-spec-list-to-specifier (face-property 'primary-selection 'background)
'((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"]) ((mono
tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'foreground) '((global ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face 'font)
'((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'font)
'((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) . [italic]) ((grayscale)
.. [italic]))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil .
"-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty)
.. t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground)
'((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground)
'((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline
foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'background)
'((global ((grayscale x) . [modeline background]) ((mono x) . [modeline
background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'blue 'foreground) '((global
((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'font) '((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foreground)
'((global ((color x) . "blue") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font)
'((global ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono x) .
[bold-italic]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)])
((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face
#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'underline)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'strikethru)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'highlight)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'blinking)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'reverse)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global
((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'background) '((global
((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global (nil .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'green 'foreground) '((global
((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face
'foreground) '((global ((x) . "royalblue1") ((color) . "blue3") ((color) .
"blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face
'font) '((global (nil . "-*-times-medium-i-*-*-16-*") ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground)
'((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background)
'((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'background) '((global ((mono x) . [default foreground]) ((grayscale) .
"gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil
.. "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'foreground)
'((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'background)
'((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'foreground) '((global ((color x) . "green4") ((color x) . "green") (nil .
[#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'background) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'font) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline-mousable)]) ((tty) . [inherit :face #s(face name modeline-mousable)])
((stream) . [inherit :face #s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'underline) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'strikethru) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'highlight) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'dim) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'blinking) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'reverse) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground)
'((global ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'font)
'((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) . [italic]) ((grayscale)
.. [italic]))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global
((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background) '((global
((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline 'background-pixmap)
'((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face 'font)
'((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background) '((global
((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'secondary-selection 'background)
'((global ((grayscale) . "gray53") ((color) . "paleturquoise") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face
'foreground) '((global ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face
'font) '((global ((mono) . [bold-italic]) ((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'foreground) '((global ((x) . "red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'font)
'((global (nil . "-*-courier-bold-r-*-*-14-*") ((mono) . [bold]) ((grayscale) .
[bold]))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil .
"-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'foreground) '((global (nil . "OliveDrab") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground) '((global
((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'foreground)
'((global ((color x) . "red") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'background)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font)
'((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)])
((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face
#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'underline)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'strikethru)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'highlight)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim) '((global
(nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'blinking)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'reverse)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background)
'((global ((x) . "CornflowerBlue"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global
((tty) . t))))
;; emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; save backup files
(setq make-backup-files t)
;;
(line-number-mode 1)
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 75)
;;
;;
(defvar running-xemacs (and (string-match "XEmacs\\|Lucid" emacs-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))))
;; Set tab stops to every 'step' spaces up to 'last' columns
;;
(let* ((step 3) (last 160) (x step) (tabs nil))
; generate tab list
(while (<= x last)
(setq tabs (cons x tabs))
(setq x (+ x step)))
; set tab stop list
(setq-default tab-stop-list (reverse tabs))
; set tab character width to same as tab stop
(setq-default tab-width step))
;; Sets overwriting of the selected text ( like DOS )
(cond
((fboundp 'turn-on-pending-delete)
(turn-on-pending-delete))
((fboundp 'pending-delete-on)
(pending-delete-on t)))
;;
;; Set to insert spaces instead of tab characters
;;
(setq-default indent-tabs-mode nil)
(global-set-key "\C-xw" 'what-line)
(global-set-key "\C-x?" 'help-for-help)
(global-set-key 'backspace 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-unset-key "\e\e")
(global-set-key "\e\e" 'keyboard-quit)
(setq auto-mode-alist (cons '("\.p$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pl$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pm$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.df$" . perl-mode) auto-mode-alist))
(cond
(running-xemacs
(autoload 'perl-mode "cperl-mode" "alternate mode for editing perl" t)
(setq cperl-hairy t)
)
(t
(autoload 'perl-mode "perl-mode" "alternate mode for editing perl" t)
)
) ; cond
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
(global-set-key [(shift up)] 'scroll-one-line-up)
(global-set-key [(shift down)] 'scroll-one-line-down)
;(define-key "x-button-left" 'x-mouse-set-point)
;(define-key mouse-map "x-button-s-left" 'x-buffer-menu)
;(define-key mouse-map "x-button-middle" 'x-paste-text)
;(define-key mouse-map "x-button-c-middle" 'x-cut-and-wipe-text)
;(define-key mouse-map "x-button-s-middle" 'x-cut-text)
;(define-key mouse-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key mouse-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key mouse-map "x-button-c-right" 'x-mouse-select-and-split)
;(define-key global-map 'button1" 'x-mouse-set-point)
;(define-key global-map "x-button-s-left" 'x-buffer-menu)
;(define-key global-map 'button2 'x-insert-selection)
;(define-key global-map '(control button2) 'x-cut-and-wipe-text)
;(define-key global-map '(shift button2) 'x-cut-text)
;(define-key global-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key global-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key global-map "x-button-c-right" 'x-mouse-select-and-split)
;; for LUCID emacs
(cond
(running-xemacs
;(global-set-key '(meta button1) `mouse-keep-one-window) ;;
;(global-set-key '(button2) `mouse-track-insert) ;; select the region and copie
it to the point
; Local Bindings:
; button binding
;------ -------
;
;Global Bindings:
;button binding
;------ -------
;
;button1 mouse-track
;button1up release-toolbar-button
;button2 x-insert-selection
;button3 popup-mode-menu
;C-button1 mouse-track-insert
;C-button2 x-cut-and-wipe-text
;M-button1 mouse-track-do-rectangle
;M-C-button3 popup-buffer-menu
;Sh-button1 mouse-track-adjust
;Sh-button2 x-cut-text
;C-Sh-button1 mouse-track-delete-and-insert
;; cmdPad Cut
(global-set-key 'f1 'help-command)
;; cmdPad Cut
(global-set-key 'f20 'kill-region)
;; cmdPad Find
(global-set-key 'f19 'query-replace)
;; cmdPad Paste
(global-set-key 'f18 'yank)
;; cmdPad Open
(global-set-key 'f17 'delete-other-windows)
;; cmdPad Copy
(global-set-key 'f16 'copy-region-as-kill)
;(global-set-key 'f15 ')
;; cmdPad Undo
(global-set-key 'f14 'advertised-undo)
;; KEYPAD 1
(global-set-key 'f33 'end-of-line)
;; Keypad shift 1
(global-set-key '(shift f33) 'end-of-buffer)
;; keypad 3
(global-set-key 'f35 'forward-page)
;; keypad 9
(global-set-key 'f29 'backward-page)
;; keypad 7
(global-set-key 'f27 'beginning-of-line)
;; keypad shift 7
(global-set-key '(shift f27) 'beginning-of-buffer)
;; keypad shift 6
(global-set-key 'f32 'forward-sexp)
;; keypad shift 4
(global-set-key 'f30 'backward-sexp)
;; keypad 5
(global-set-key 'f31 'exchange-point-and-mark)
;; keypad shift 5
(global-set-key '(shift f31) 'goto-line)
(global-set-key 'f8 'start-kbd-macro)
(global-set-key 'f9 'end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro)
;; Uncomment this to enable "sticky modifier keys" in 19.13
;; and up. With sticky modifier keys enabled, you can
;; press and release a modifier key before pressing the
;; key to be modified, like how the ESC key works always.
;; If you hold the modifier key down, however, you still
;; get the standard behavior. I personally think this
;; is the best thing since sliced bread (and a *major*
;; win when it comes to reducing Emacs pinky), but it's
;; disorienting at first so I'm not enabling it here by
;; default.
;;(setq modifier-keys-are-sticky t)
)
) ; cond
; (global-set-key "\033[208z" 'other-window) ;; R1
; ;;(global-set-key "\033[209z" 'enlarge-window) ;; R2
; (global-set-key "\033[210z" 'scroll-up) ;; R3
; (global-set-key "\033[211z" 'kill-word) ;; R4
; (global-set-key "\033[212z" 'delete-window) ;; R5
; (global-set-key "\033[213z" 'beginning-of-line) ;; R6
; (global-set-key "\033[214z" 'backward-word) ;; R7
; (global-set-key "\033[A" 'previous-line) ;; R8 up-arrow
; (global-set-key "\033[216z" 'forward-word) ;; R9
; (global-set-key "\033[D" 'backward-char) ;; R10 left-arrow
; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arrow
; (global-set-key "\033[222z" 'scroll-down) ;; R15 pg dn
; ; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arro
(setq-default zmacs-regions t)
(setq-default debug-on-error t)
(cond (running-xemacs
(define-key global-map '(shift tab) 'self-insert-command)
;; Here's a way to add scrollbar-like buttons to the menubar
(add-menu-item nil "Top" 'beginning-of-buffer t)
(add-menu-item nil "<<<" 'scroll-down t)
(add-menu-item nil " . " 'recenter t)
(add-menu-item nil ">>>" 'scroll-up t)
(add-menu-item nil "Bot" 'end-of-buffer t)
(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2) and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable>
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-location "File"
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
(require 'dired)
(set-face-background 'zmacs-region "red")
(set-face-foreground 'zmacs-region "yellow")
(setq auto-save-directory (expand-file-name "~/.autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
ange-ftp-auto-save t
ange-ftp-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;; SKILL MODE is automatically loaded in xemacs 19.14 and above
(defun printRegion ()
"Enscript printing of a region"
(interactive)
(shell-command-on-region (point) (mark) "enscript ")
)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(put 'narrow-to-region 'disabled nil)
A. B. wrote:
to satisfy your curiousness there are SKILL modes
for emacs, vim and nedit.
I personaly use nedit, but that's personal preference.
Listed are two files which I have in a directory, because I use nedit
you have to know how how to use them.
Bernd
;; xemacs-options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point t)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p nil)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
;(setq-default temp-buffer-show-function 'il-temp-buffer-show-function)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts '(or (mono) (grayscale)))
(setq-default font-lock-use-colors '(color))
(setq-default font-lock-maximum-decoration nil)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier scrollbar-width
'((global (nil . 19)))) (add-spec-list-to-specifier scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
(setq-default truncate-lines nil)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function
'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function
'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts nil)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top)
(add-spec-list-to-specifier default-toolbar-visible-p '((global (nil . t))))
(add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'font-lock-variable-name-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'underline)
(make-face 'pointer)
(make-face 'red)
(make-face 'primary-selection)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'bold)
(make-face 'paren-blink-off)
(make-face 'paren-mismatch)
(make-face 'blue)
(make-face 'font-lock-other-emphasized-face)
(make-face 'modeline-buffer-id)
(make-face 'default)
(make-face 'green)
(make-face 'font-lock-function-name-face)
(make-face 'text-cursor)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'gui-button-face)
(make-face 'modeline-mousable-minor-mode)
(make-face 'paren-match)
(make-face 'font-lock-type-face)
(make-face 'font-lock-doc-string-face)
(make-face 'modeline)
(make-face 'font-lock-emphasized-face)
(make-face 'highlight)
(make-face 'secondary-selection)
(make-face 'left-margin)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-keyword-face)
(make-face 'italic)
(make-face 'font-lock-other-type-face)
(make-face 'yellow)
(make-face 'modeline-mousable)
(make-face 'right-margin)
(make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face
'foreground) '((global ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face
'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'foreground) '((global ((x) . "ForestGreen") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font)
'((global (nil . "-*-courier-medium-o-*-*-14-*") ((mono) . [italic])
((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global
((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'underline 'underline) '((global
(nil . t))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global
((color) . "red"))))
(add-spec-list-to-specifier (face-property 'primary-selection 'foreground) 'nil)
(add-spec-list-to-specifier (face-property 'primary-selection 'background)
'((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"]) ((mono
tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'foreground) '((global ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face 'font)
'((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'font)
'((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) . [italic]) ((grayscale)
.. [italic]))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil .
"-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty)
.. t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground)
'((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground)
'((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline
foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'background)
'((global ((grayscale x) . [modeline background]) ((mono x) . [modeline
background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'blue 'foreground) '((global
((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'font) '((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foreground)
'((global ((color x) . "blue") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font)
'((global ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono x) .
[bold-italic]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)])
((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face
#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'underline)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'strikethru)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'highlight)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'blinking)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'reverse)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global
((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'background) '((global
((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global (nil .
"-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'green 'foreground) '((global
((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face
'foreground) '((global ((x) . "royalblue1") ((color) . "blue3") ((color) .
"blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face
'font) '((global (nil . "-*-times-medium-i-*-*-16-*") ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground)
'((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background)
'((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'background) '((global ((mono x) . [default foreground]) ((grayscale) .
"gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil
.. "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'foreground)
'((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'background)
'((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'foreground) '((global ((color x) . "green4") ((color x) . "green") (nil .
[#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'background) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'font) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline-mousable)]) ((tty) . [inherit :face #s(face name modeline-mousable)])
((stream) . [inherit :face #s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'underline) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'strikethru) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'highlight) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'dim) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'blinking) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode
'reverse) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground)
'((global ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'font)
'((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) . [italic]) ((grayscale)
.. [italic]))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global
((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background) '((global
((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline 'background-pixmap)
'((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face 'font)
'((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background) '((global
((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'secondary-selection 'background)
'((global ((grayscale) . "gray53") ((color) . "paleturquoise") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face
'foreground) '((global ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face
'font) '((global ((mono) . [bold-italic]) ((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'foreground) '((global ((x) . "red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'font)
'((global (nil . "-*-courier-bold-r-*-*-14-*") ((mono) . [bold]) ((grayscale) .
[bold]))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil .
"-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'foreground) '((global (nil . "OliveDrab") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground) '((global
((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'foreground)
'((global ((color x) . "red") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'background)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font)
'((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)])
((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face
#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'underline)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'strikethru)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'highlight)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim) '((global
(nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'blinking)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'reverse)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background)
'((global ((x) . "CornflowerBlue"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global
((tty) . t))))
;; emacs ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; save backup files
(setq make-backup-files t)
;;
(line-number-mode 1)
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 75)
;;
;;
(defvar running-xemacs (and (string-match "XEmacs\\|Lucid" emacs-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))))
;; Set tab stops to every 'step' spaces up to 'last' columns
;;
(let* ((step 3) (last 160) (x step) (tabs nil))
; generate tab list
(while (<= x last)
(setq tabs (cons x tabs))
(setq x (+ x step)))
; set tab stop list
(setq-default tab-stop-list (reverse tabs))
; set tab character width to same as tab stop
(setq-default tab-width step))
;; Sets overwriting of the selected text ( like DOS )
(cond
((fboundp 'turn-on-pending-delete)
(turn-on-pending-delete))
((fboundp 'pending-delete-on)
(pending-delete-on t)))
;;
;; Set to insert spaces instead of tab characters
;;
(setq-default indent-tabs-mode nil)
(global-set-key "\C-xw" 'what-line)
(global-set-key "\C-x?" 'help-for-help)
(global-set-key 'backspace 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-unset-key "\e\e")
(global-set-key "\e\e" 'keyboard-quit)
(setq auto-mode-alist (cons '("\.p$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pl$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pm$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.df$" . perl-mode) auto-mode-alist))
(cond
(running-xemacs
(autoload 'perl-mode "cperl-mode" "alternate mode for editing perl" t)
(setq cperl-hairy t)
)
(t
(autoload 'perl-mode "perl-mode" "alternate mode for editing perl" t)
)
) ; cond
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
(global-set-key [(shift up)] 'scroll-one-line-up)
(global-set-key [(shift down)] 'scroll-one-line-down)
;(define-key "x-button-left" 'x-mouse-set-point)
;(define-key mouse-map "x-button-s-left" 'x-buffer-menu)
;(define-key mouse-map "x-button-middle" 'x-paste-text)
;(define-key mouse-map "x-button-c-middle" 'x-cut-and-wipe-text)
;(define-key mouse-map "x-button-s-middle" 'x-cut-text)
;(define-key mouse-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key mouse-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key mouse-map "x-button-c-right" 'x-mouse-select-and-split)
;(define-key global-map 'button1" 'x-mouse-set-point)
;(define-key global-map "x-button-s-left" 'x-buffer-menu)
;(define-key global-map 'button2 'x-insert-selection)
;(define-key global-map '(control button2) 'x-cut-and-wipe-text)
;(define-key global-map '(shift button2) 'x-cut-text)
;(define-key global-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key global-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key global-map "x-button-c-right" 'x-mouse-select-and-split)
;; for LUCID emacs
(cond
(running-xemacs
;(global-set-key '(meta button1) `mouse-keep-one-window) ;;
;(global-set-key '(button2) `mouse-track-insert) ;; select the region and copie
it to the point
; Local Bindings:
; button binding
;------ -------
;
;Global Bindings:
;button binding
;------ -------
;
;button1 mouse-track
;button1up release-toolbar-button
;button2 x-insert-selection
;button3 popup-mode-menu
;C-button1 mouse-track-insert
;C-button2 x-cut-and-wipe-text
;M-button1 mouse-track-do-rectangle
;M-C-button3 popup-buffer-menu
;Sh-button1 mouse-track-adjust
;Sh-button2 x-cut-text
;C-Sh-button1 mouse-track-delete-and-insert
;; cmdPad Cut
(global-set-key 'f1 'help-command)
;; cmdPad Cut
(global-set-key 'f20 'kill-region)
;; cmdPad Find
(global-set-key 'f19 'query-replace)
;; cmdPad Paste
(global-set-key 'f18 'yank)
;; cmdPad Open
(global-set-key 'f17 'delete-other-windows)
;; cmdPad Copy
(global-set-key 'f16 'copy-region-as-kill)
;(global-set-key 'f15 ')
;; cmdPad Undo
(global-set-key 'f14 'advertised-undo)
;; KEYPAD 1
(global-set-key 'f33 'end-of-line)
;; Keypad shift 1
(global-set-key '(shift f33) 'end-of-buffer)
;; keypad 3
(global-set-key 'f35 'forward-page)
;; keypad 9
(global-set-key 'f29 'backward-page)
;; keypad 7
(global-set-key 'f27 'beginning-of-line)
;; keypad shift 7
(global-set-key '(shift f27) 'beginning-of-buffer)
;; keypad shift 6
(global-set-key 'f32 'forward-sexp)
;; keypad shift 4
(global-set-key 'f30 'backward-sexp)
;; keypad 5
(global-set-key 'f31 'exchange-point-and-mark)
;; keypad shift 5
(global-set-key '(shift f31) 'goto-line)
(global-set-key 'f8 'start-kbd-macro)
(global-set-key 'f9 'end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro)
;; Uncomment this to enable "sticky modifier keys" in 19.13
;; and up. With sticky modifier keys enabled, you can
;; press and release a modifier key before pressing the
;; key to be modified, like how the ESC key works always.
;; If you hold the modifier key down, however, you still
;; get the standard behavior. I personally think this
;; is the best thing since sliced bread (and a *major*
;; win when it comes to reducing Emacs pinky), but it's
;; disorienting at first so I'm not enabling it here by
;; default.
;;(setq modifier-keys-are-sticky t)
)
) ; cond
; (global-set-key "\033[208z" 'other-window) ;; R1
; ;;(global-set-key "\033[209z" 'enlarge-window) ;; R2
; (global-set-key "\033[210z" 'scroll-up) ;; R3
; (global-set-key "\033[211z" 'kill-word) ;; R4
; (global-set-key "\033[212z" 'delete-window) ;; R5
; (global-set-key "\033[213z" 'beginning-of-line) ;; R6
; (global-set-key "\033[214z" 'backward-word) ;; R7
; (global-set-key "\033[A" 'previous-line) ;; R8 up-arrow
; (global-set-key "\033[216z" 'forward-word) ;; R9
; (global-set-key "\033[D" 'backward-char) ;; R10 left-arrow
; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arrow
; (global-set-key "\033[222z" 'scroll-down) ;; R15 pg dn
; ; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arro
(setq-default zmacs-regions t)
(setq-default debug-on-error t)
(cond (running-xemacs
(define-key global-map '(shift tab) 'self-insert-command)
;; Here's a way to add scrollbar-like buttons to the menubar
(add-menu-item nil "Top" 'beginning-of-buffer t)
(add-menu-item nil "<<<" 'scroll-down t)
(add-menu-item nil " . " 'recenter t)
(add-menu-item nil ">>>" 'scroll-up t)
(add-menu-item nil "Bot" 'end-of-buffer t)
(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2) and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable>
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-location "File"
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
(require 'dired)
(set-face-background 'zmacs-region "red")
(set-face-foreground 'zmacs-region "yellow")
(setq auto-save-directory (expand-file-name "~/.autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
ange-ftp-auto-save t
ange-ftp-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;; SKILL MODE is automatically loaded in xemacs 19.14 and above
(defun printRegion ()
"Enscript printing of a region"
(interactive)
(shell-command-on-region (point) (mark) "enscript ")
)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(put 'narrow-to-region 'disabled nil)
A. B. wrote:
Bernd Fischer > wrote:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
with a ref to a site in sweeden and another one probably a mirror in
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply with
the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
P
Pete nospam Zakel
Guest
In article <cpc847$mm3$1@info4.fnal.gov> "A. B." <b@f.g> writes:
basically for vi users who covet some of the features of emacs but don't
want to learn a new editor. I think it is the default on Red Hat Linux as
well.
It has syntax-sensitive coloration, and the version I have included a skill
syntax file (which expands on the lisp syntax file) that I've modified for
my own purposes (specifically for the code I work on, so it isn't generally
useful).
I know an emacs skill mode exists, but since I don't use emacs I don't know
how to locate it.
For those now using vi, I highly recommend switching to vim simply because it
has infinite undo. That one feature makes vim so much better than vi that all
the other features (window splitting, syntax coloration, etc.) are just window
dressing.
-Pete Zakel
(phz@seeheader.nospam)
Spark's Sixth Rule for Managers:
If a subordinate asks you a pertinent question, look at him as
if he had lost his senses. When he looks down, paraphrase the
question back at him.
Some use emacs, some use vi. A few of us use vim (vi on steroids). vim isP.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
basically for vi users who covet some of the features of emacs but don't
want to learn a new editor. I think it is the default on Red Hat Linux as
well.
It has syntax-sensitive coloration, and the version I have included a skill
syntax file (which expands on the lisp syntax file) that I've modified for
my own purposes (specifically for the code I work on, so it isn't generally
useful).
I know an emacs skill mode exists, but since I don't use emacs I don't know
how to locate it.
For those now using vi, I highly recommend switching to vim simply because it
has infinite undo. That one feature makes vim so much better than vi that all
the other features (window splitting, syntax coloration, etc.) are just window
dressing.
-Pete Zakel
(phz@seeheader.nospam)
Spark's Sixth Rule for Managers:
If a subordinate asks you a pertinent question, look at him as
if he had lost his senses. When he looks down, paraphrase the
question back at him.
S
Stefan Robert
Guest
Unfortunately those files are not SKILL mode files. They are merely
files to configure emacs, not to define the SKILL mode.
Ah well, I am looking for a good editor to do this and I guess I will
go for nedit since finding an xemacs skill mode file is more difficult
than I thought.
I found the skill.pats for nedit... I had a little bit of difficulty to
make it happen, but now it work.
On 2004-12-10 09:07:58 -0500, Bernd Fischer
<""bernd.fischer\"@xignal-A%&HY%$v#&G=.de"> said:
files to configure emacs, not to define the SKILL mode.
Ah well, I am looking for a good editor to do this and I guess I will
go for nedit since finding an xemacs skill mode file is more difficult
than I thought.
I found the skill.pats for nedit... I had a little bit of difficulty to
make it happen, but now it work.
On 2004-12-10 09:07:58 -0500, Bernd Fischer
<""bernd.fischer\"@xignal-A%&HY%$v#&G=.de"> said:
Hi,
to satisfy your curiousness there are SKILL modes
for emacs, vim and nedit.
I personaly use nedit, but that's personal preference.
Listed are two files which I have in a directory, because I use nedit
you have to know how how to use them.
Bernd
;; xemacs-options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point t)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p nil)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
;(setq-default temp-buffer-show-function 'il-temp-buffer-show-function)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts '(or (mono) (grayscale)))
(setq-default font-lock-use-colors '(color))
(setq-default font-lock-maximum-decoration nil)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier
scrollbar-width '((global (nil . 19)))) (add-spec-list-to-specifier
scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
(setq-default truncate-lines nil)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function
'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function
'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts nil)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top)
(add-spec-list-to-specifier default-toolbar-visible-p '((global (nil .
t)))) (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'font-lock-variable-name-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'underline)
(make-face 'pointer)
(make-face 'red)
(make-face 'primary-selection)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'bold)
(make-face 'paren-blink-off)
(make-face 'paren-mismatch)
(make-face 'blue)
(make-face 'font-lock-other-emphasized-face)
(make-face 'modeline-buffer-id)
(make-face 'default)
(make-face 'green)
(make-face 'font-lock-function-name-face)
(make-face 'text-cursor)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'gui-button-face)
(make-face 'modeline-mousable-minor-mode)
(make-face 'paren-match)
(make-face 'font-lock-type-face)
(make-face 'font-lock-doc-string-face)
(make-face 'modeline)
(make-face 'font-lock-emphasized-face)
(make-face 'highlight)
(make-face 'secondary-selection)
(make-face 'left-margin)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-keyword-face)
(make-face 'italic)
(make-face 'font-lock-other-type-face)
(make-face 'yellow)
(make-face 'modeline-mousable)
(make-face 'right-margin)
(make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'foreground) '((global ((color) .
"blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'font) '((global ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'foreground) '((global ((x) . "ForestGreen") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'font) '((global (nil . "-*-courier-medium-o-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background)
'((global ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'underline 'underline)
'((global (nil . t))))
(add-spec-list-to-specifier (face-property 'red 'foreground)
'((global ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'foreground) 'nil)
(add-spec-list-to-specifier (face-property 'primary-selection
'background) '((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"])
((mono tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'foreground) '((global ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'font) '((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global
(nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off
'foreground) '((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono
x) . [modeline foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'background) '((global ((grayscale x) . [modeline background]) ((mono
x) . [modeline background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'blue 'foreground)
'((global ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'background) '((global (nil .
"lightyellow2"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'font) '((global (nil .
"-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'foreground) '((global ((color x) . "blue") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'font) '((global ((tty) . [bold-italic]) ((grayscale x) .
[bold-italic]) ((mono x) . [bold-italic]) (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream)
. [inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'default 'foreground)
'((global ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'background)
'((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global
(nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'green 'foreground)
'((global ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'foreground) '((global ((x) .
"royalblue1") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'font) '((global (nil .
"-*-times-medium-i-*-*-16-*") ((mono) . [bold]) ((grayscale) .
[bold]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground)
'((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background)
'((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'background) '((global ((mono x) . [default foreground]) ((grayscale) .
"gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font)
'((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'background) '((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'foreground) '((global ((color x) .
"green4") ((color x) . "green") (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'font) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background-pixmap) '((global ((x) .
[inherit :face #s(face name modeline-mousable)]) ((tty) . [inherit
:face #s(face name modeline-mousable)]) ((stream) . [inherit :face
#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'underline) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'strikethru) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'highlight) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'dim) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'blinking) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'reverse) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale)
. "gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face
'foreground) '((global ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face
'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property
'font-lock-doc-string-face 'foreground) '((global ((x) . "maroon")
((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-doc-string-face 'font) '((global (nil .
"-*-times-medium-r-*-*-14-*") ((mono) . [italic]) ((grayscale) .
[italic]))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground)
'((global ((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background)
'((global ((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline
'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing])
((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property
'font-lock-emphasized-face 'background) '((global (nil .
"lightyellow2"))))
(add-spec-list-to-specifier (face-property
'font-lock-emphasized-face 'font) '((global (nil .
"-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property
'font-lock-emphasized-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale)
. "gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'secondary-selection
'background) '((global ((grayscale) . "gray53") ((color) .
"paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'foreground) '((global ((color) . "blue3")
((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'font) '((global ((mono) . [bold-italic])
((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'foreground) '((global ((x) . "red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'font) '((global (nil . "-*-courier-bold-r-*-*-14-*") ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global
(nil . "-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property
'font-lock-other-type-face 'foreground) '((global (nil . "OliveDrab")
((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-type-face 'font) '((global ((mono) . [italic])
((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground)
'((global ((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'foreground) '((global ((color x) . "red") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font)
'((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face
name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream)
. [inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'zmacs-region
'background) '((global ((x) . "CornflowerBlue"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse)
'((global ((tty) . t))))
;; emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; save backup files
(setq make-backup-files t)
;;
(line-number-mode 1)
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 75)
;;
;;
(defvar running-xemacs (and (string-match "XEmacs\\|Lucid" emacs-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))))
;; Set tab stops to every 'step' spaces up to 'last' columns
;;
(let* ((step 3) (last 160) (x step) (tabs nil))
; generate tab list
(while (<= x last)
(setq tabs (cons x tabs))
(setq x (+ x step)))
; set tab stop list
(setq-default tab-stop-list (reverse tabs))
; set tab character width to same as tab stop
(setq-default tab-width step))
;; Sets overwriting of the selected text ( like DOS )
(cond
((fboundp 'turn-on-pending-delete)
(turn-on-pending-delete))
((fboundp 'pending-delete-on)
(pending-delete-on t)))
;;
;; Set to insert spaces instead of tab characters
;;
(setq-default indent-tabs-mode nil)
(global-set-key "\C-xw" 'what-line)
(global-set-key "\C-x?" 'help-for-help)
(global-set-key 'backspace 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-unset-key "\e\e")
(global-set-key "\e\e" 'keyboard-quit)
(setq auto-mode-alist (cons '("\.p$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pl$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pm$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.df$" . perl-mode) auto-mode-alist))
(cond
(running-xemacs
(autoload 'perl-mode "cperl-mode" "alternate mode for editing perl" t)
(setq cperl-hairy t)
)
(t
(autoload 'perl-mode "perl-mode" "alternate mode for editing perl" t)
)
) ; cond
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
(global-set-key [(shift up)] 'scroll-one-line-up)
(global-set-key [(shift down)] 'scroll-one-line-down)
;(define-key "x-button-left" 'x-mouse-set-point)
;(define-key mouse-map "x-button-s-left" 'x-buffer-menu)
;(define-key mouse-map "x-button-middle" 'x-paste-text)
;(define-key mouse-map "x-button-c-middle" 'x-cut-and-wipe-text)
;(define-key mouse-map "x-button-s-middle" 'x-cut-text)
;(define-key mouse-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key mouse-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key mouse-map "x-button-c-right" 'x-mouse-select-and-split)
;(define-key global-map 'button1" 'x-mouse-set-point)
;(define-key global-map "x-button-s-left" 'x-buffer-menu)
;(define-key global-map 'button2 'x-insert-selection)
;(define-key global-map '(control button2) 'x-cut-and-wipe-text)
;(define-key global-map '(shift button2) 'x-cut-text)
;(define-key global-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key global-map "x-button-s-right" 'x-mouse-delete-win)
;(define-key global-map "x-button-c-right" 'x-mouse-select-and-split)
;; for LUCID emacs
(cond
(running-xemacs
;(global-set-key '(meta button1) `mouse-keep-one-window) ;;
;(global-set-key '(button2) `mouse-track-insert) ;; select the region
and copie it to the point
; Local Bindings:
; button binding
;------ -------
;
;Global Bindings:
;button binding
;------ -------
;
;button1 mouse-track
;button1up release-toolbar-button
;button2 x-insert-selection
;button3 popup-mode-menu
;C-button1 mouse-track-insert
;C-button2 x-cut-and-wipe-text
;M-button1 mouse-track-do-rectangle
;M-C-button3 popup-buffer-menu
;Sh-button1 mouse-track-adjust
;Sh-button2 x-cut-text
;C-Sh-button1 mouse-track-delete-and-insert
;; cmdPad Cut
(global-set-key 'f1 'help-command)
;; cmdPad Cut
(global-set-key 'f20 'kill-region)
;; cmdPad Find
(global-set-key 'f19 'query-replace)
;; cmdPad Paste
(global-set-key 'f18 'yank)
;; cmdPad Open
(global-set-key 'f17 'delete-other-windows)
;; cmdPad Copy
(global-set-key 'f16 'copy-region-as-kill)
;(global-set-key 'f15 ')
;; cmdPad Undo
(global-set-key 'f14 'advertised-undo)
;; KEYPAD 1
(global-set-key 'f33 'end-of-line)
;; Keypad shift 1
(global-set-key '(shift f33) 'end-of-buffer)
;; keypad 3
(global-set-key 'f35 'forward-page)
;; keypad 9
(global-set-key 'f29 'backward-page)
;; keypad 7
(global-set-key 'f27 'beginning-of-line)
;; keypad shift 7
(global-set-key '(shift f27) 'beginning-of-buffer)
;; keypad shift 6
(global-set-key 'f32 'forward-sexp)
;; keypad shift 4
(global-set-key 'f30 'backward-sexp)
;; keypad 5
(global-set-key 'f31 'exchange-point-and-mark)
;; keypad shift 5
(global-set-key '(shift f31) 'goto-line)
(global-set-key 'f8 'start-kbd-macro)
(global-set-key 'f9 'end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro)
;; Uncomment this to enable "sticky modifier keys" in 19.13
;; and up. With sticky modifier keys enabled, you can
;; press and release a modifier key before pressing the
;; key to be modified, like how the ESC key works always.
;; If you hold the modifier key down, however, you still
;; get the standard behavior. I personally think this
;; is the best thing since sliced bread (and a *major*
;; win when it comes to reducing Emacs pinky), but it's
;; disorienting at first so I'm not enabling it here by
;; default.
;;(setq modifier-keys-are-sticky t)
)
) ; cond
; (global-set-key "\033[208z" 'other-window) ;; R1
; ;;(global-set-key "\033[209z" 'enlarge-window) ;; R2
; (global-set-key "\033[210z" 'scroll-up) ;; R3
; (global-set-key "\033[211z" 'kill-word) ;; R4
; (global-set-key "\033[212z" 'delete-window) ;; R5
; (global-set-key "\033[213z" 'beginning-of-line) ;; R6
; (global-set-key "\033[214z" 'backward-word) ;; R7
; (global-set-key "\033[A" 'previous-line) ;; R8 up-arrow
; (global-set-key "\033[216z" 'forward-word) ;; R9
; (global-set-key "\033[D" 'backward-char) ;; R10 left-arrow
; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arrow
; (global-set-key "\033[222z" 'scroll-down) ;; R15 pg dn
; ; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arro
(setq-default zmacs-regions t)
(setq-default debug-on-error t)
(cond (running-xemacs
(define-key global-map '(shift tab) 'self-insert-command)
;; Here's a way to add scrollbar-like buttons to the menubar
(add-menu-item nil "Top" 'beginning-of-buffer t)
(add-menu-item nil "<<<" 'scroll-down t)
(add-menu-item nil " . " 'recenter t)
(add-menu-item nil ">>>" 'scroll-up t)
(add-menu-item nil "Bot" 'end-of-buffer t)
(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2) and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-location "File"
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
(require 'dired)
(set-face-background 'zmacs-region "red")
(set-face-foreground 'zmacs-region "yellow")
(setq auto-save-directory (expand-file-name "~/.autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
ange-ftp-auto-save t
ange-ftp-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;; SKILL MODE is automatically loaded in xemacs 19.14 and above
(defun printRegion ()
"Enscript printing of a region"
(interactive)
(shell-command-on-region (point) (mark) "enscript ")
)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(put 'narrow-to-region 'disabled nil)
A. B. wrote:
Bernd Fischer > wrote:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
with a ref to a site in sweeden and another one probably a mirror in
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply with
the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
S
Stefan Robert
Guest
A.B. could you contact me via e-mail?
Stefan
On 2004-12-10 08:29:50 -0500, "A. B." <b@f.g> said:
Stefan
On 2004-12-10 08:29:50 -0500, "A. B." <b@f.g> said:
Bernd Fischer > wrote:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
with a ref to a site in sweeden and another one probably a mirror in
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply with
the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
J
Jim Newton
Guest
i tried a couple of times to use the SKILL mode for
emacs but it caused emacs to segmentation fault.
I use the lisp-mode instead. it works very well,
i've used it for about 15 years now.
-jim
Bernd wrote:
emacs but it caused emacs to segmentation fault.
I use the lisp-mode instead. it works very well,
i've used it for about 15 years now.
-jim
Bernd wrote:
Hi,
to satisfy your curiousness there are SKILL modes
for emacs, vim and nedit.
I personaly use nedit, but that's personal preference.
Listed are two files which I have in a directory, because I use nedit
you have to know how how to use them.
Bernd
;; xemacs-options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point t)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p nil)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
;(setq-default temp-buffer-show-function 'il-temp-buffer-show-function)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts '(or (mono) (grayscale)))
(setq-default font-lock-use-colors '(color))
(setq-default font-lock-maximum-decoration nil)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier
scrollbar-width '((global (nil . 19)))) (add-spec-list-to-specifier
scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil .
2))))
(setq-default truncate-lines nil)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function
'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function
'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts nil)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top)
(add-spec-list-to-specifier default-toolbar-visible-p '((global (nil .
t)))) (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'font-lock-variable-name-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'underline)
(make-face 'pointer)
(make-face 'red)
(make-face 'primary-selection)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'bold)
(make-face 'paren-blink-off)
(make-face 'paren-mismatch)
(make-face 'blue)
(make-face 'font-lock-other-emphasized-face)
(make-face 'modeline-buffer-id)
(make-face 'default)
(make-face 'green)
(make-face 'font-lock-function-name-face)
(make-face 'text-cursor)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'gui-button-face)
(make-face 'modeline-mousable-minor-mode)
(make-face 'paren-match)
(make-face 'font-lock-type-face)
(make-face 'font-lock-doc-string-face)
(make-face 'modeline)
(make-face 'font-lock-emphasized-face)
(make-face 'highlight)
(make-face 'secondary-selection)
(make-face 'left-margin)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-keyword-face)
(make-face 'italic)
(make-face 'font-lock-other-type-face)
(make-face 'yellow)
(make-face 'modeline-mousable)
(make-face 'right-margin)
(make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'foreground) '((global ((color) . "blue3")
((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'font) '((global ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'foreground) '((global ((x) . "ForestGreen") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'font) '((global (nil . "-*-courier-medium-o-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background)
'((global ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'underline 'underline)
'((global (nil . t))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global
((color) . "red"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'foreground) 'nil)
(add-spec-list-to-specifier (face-property 'primary-selection
'background) '((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"])
((mono tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'foreground) '((global ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'font) '((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil
. "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off
'foreground) '((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x)
. [modeline foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'background) '((global ((grayscale x) . [modeline background]) ((mono x)
. [modeline background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'blue 'foreground)
'((global ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'background) '((global (nil .
"lightyellow2"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'font) '((global (nil .
"-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'foreground) '((global ((color x) . "blue") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font)
'((global ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono
x) . [bold-italic]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) .
[inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'default 'foreground)
'((global ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'background)
'((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global
(nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'green 'foreground)
'((global ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'foreground) '((global ((x) .
"royalblue1") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'font) '((global (nil .
"-*-times-medium-i-*-*-16-*") ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground)
'((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background)
'((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'background) '((global ((mono x) . [default foreground]) ((grayscale) .
"gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font)
'((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'background) '((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'foreground) '((global ((color x) .
"green4") ((color x) . "green") (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'font) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background-pixmap) '((global ((x) .
[inherit :face #s(face name modeline-mousable)]) ((tty) . [inherit :face
#s(face name modeline-mousable)]) ((stream) . [inherit :face #s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'underline) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'strikethru) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'highlight) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'dim) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'blinking) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'reverse) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face
'foreground) '((global ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'font) '((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground)
'((global ((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background)
'((global ((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline
'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing])
((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'secondary-selection
'background) '((global ((grayscale) . "gray53") ((color) .
"paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'foreground) '((global ((color) . "blue3")
((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'font) '((global ((mono) . [bold-italic])
((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'foreground) '((global ((x) . "red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'font) '((global (nil . "-*-courier-bold-r-*-*-14-*") ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global
(nil . "-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'foreground) '((global (nil . "OliveDrab") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground)
'((global ((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'foreground) '((global ((color x) . "red") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font)
'((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face
name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) .
[inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background)
'((global ((x) . "CornflowerBlue"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse)
'((global ((tty) . t))))
;; emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; save backup files
(setq make-backup-files t)
;;
(line-number-mode 1)
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 75)
;;
;;
(defvar running-xemacs (and (string-match "XEmacs\\|Lucid" emacs-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))))
;; Set tab stops to every 'step' spaces up to 'last' columns
;;
(let* ((step 3) (last 160) (x step) (tabs nil))
; generate tab list
(while (<= x last)
(setq tabs (cons x tabs))
(setq x (+ x step)))
; set tab stop list
(setq-default tab-stop-list (reverse tabs))
; set tab character width to same as tab stop
(setq-default tab-width step))
;; Sets overwriting of the selected text ( like DOS )
(cond
((fboundp 'turn-on-pending-delete)
(turn-on-pending-delete))
((fboundp 'pending-delete-on)
(pending-delete-on t)))
;;
;; Set to insert spaces instead of tab characters
;;
(setq-default indent-tabs-mode nil)
(global-set-key "\C-xw" 'what-line)
(global-set-key "\C-x?" 'help-for-help)
(global-set-key 'backspace 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-unset-key "\e\e")
(global-set-key "\e\e" 'keyboard-quit)
(setq auto-mode-alist (cons '("\.p$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pl$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pm$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.df$" . perl-mode) auto-mode-alist))
(cond
(running-xemacs
(autoload 'perl-mode "cperl-mode" "alternate mode for editing perl" t)
(setq cperl-hairy t)
)
(t
(autoload 'perl-mode "perl-mode" "alternate mode for editing perl" t)
)
) ; cond
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N
lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
(global-set-key [(shift up)] 'scroll-one-line-up)
(global-set-key [(shift down)] 'scroll-one-line-down)
;(define-key "x-button-left" 'x-mouse-set-point)
;(define-key mouse-map "x-button-s-left" 'x-buffer-menu)
;(define-key mouse-map "x-button-middle" 'x-paste-text)
;(define-key mouse-map "x-button-c-middle" 'x-cut-and-wipe-text)
;(define-key mouse-map "x-button-s-middle" 'x-cut-text)
;(define-key mouse-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key mouse-map "x-button-s-right"
'x-mouse-delete-win)
;(define-key mouse-map "x-button-c-right" 'x-mouse-select-and-split)
;(define-key global-map 'button1" 'x-mouse-set-point)
;(define-key global-map "x-button-s-left" 'x-buffer-menu)
;(define-key global-map 'button2 'x-insert-selection)
;(define-key global-map '(control button2) 'x-cut-and-wipe-text)
;(define-key global-map '(shift button2) 'x-cut-text)
;(define-key global-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key global-map "x-button-s-right"
'x-mouse-delete-win)
;(define-key global-map "x-button-c-right"
'x-mouse-select-and-split)
;; for LUCID emacs
(cond
(running-xemacs
;(global-set-key '(meta button1) `mouse-keep-one-window) ;;
;(global-set-key '(button2) `mouse-track-insert) ;; select the region
and copie it to the point
; Local Bindings:
; button binding
;------ -------
;
;Global Bindings:
;button binding
;------ -------
;
;button1 mouse-track
;button1up release-toolbar-button
;button2 x-insert-selection
;button3 popup-mode-menu
;C-button1 mouse-track-insert
;C-button2 x-cut-and-wipe-text
;M-button1 mouse-track-do-rectangle
;M-C-button3 popup-buffer-menu
;Sh-button1 mouse-track-adjust
;Sh-button2 x-cut-text
;C-Sh-button1 mouse-track-delete-and-insert
;; cmdPad Cut
(global-set-key 'f1 'help-command)
;; cmdPad Cut
(global-set-key 'f20 'kill-region)
;; cmdPad Find
(global-set-key 'f19 'query-replace)
;; cmdPad Paste
(global-set-key 'f18 'yank)
;; cmdPad Open
(global-set-key 'f17 'delete-other-windows)
;; cmdPad Copy
(global-set-key 'f16 'copy-region-as-kill)
;(global-set-key 'f15 ')
;; cmdPad Undo
(global-set-key 'f14 'advertised-undo)
;; KEYPAD 1
(global-set-key 'f33 'end-of-line)
;; Keypad shift 1
(global-set-key '(shift f33) 'end-of-buffer)
;; keypad 3
(global-set-key 'f35 'forward-page)
;; keypad 9
(global-set-key 'f29 'backward-page)
;; keypad 7
(global-set-key 'f27 'beginning-of-line)
;; keypad shift 7
(global-set-key '(shift f27) 'beginning-of-buffer)
;; keypad shift 6
(global-set-key 'f32 'forward-sexp)
;; keypad shift 4
(global-set-key 'f30 'backward-sexp)
;; keypad 5
(global-set-key 'f31 'exchange-point-and-mark)
;; keypad shift 5
(global-set-key '(shift f31) 'goto-line)
(global-set-key 'f8 'start-kbd-macro)
(global-set-key 'f9 'end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro)
;; Uncomment this to enable "sticky modifier keys" in 19.13
;; and up. With sticky modifier keys enabled, you can
;; press and release a modifier key before pressing the
;; key to be modified, like how the ESC key works always.
;; If you hold the modifier key down, however, you still
;; get the standard behavior. I personally think this
;; is the best thing since sliced bread (and a *major*
;; win when it comes to reducing Emacs pinky), but it's
;; disorienting at first so I'm not enabling it here by
;; default.
;;(setq modifier-keys-are-sticky t)
)
) ; cond
; (global-set-key "\033[208z" 'other-window) ;; R1
; ;;(global-set-key "\033[209z" 'enlarge-window) ;; R2
; (global-set-key "\033[210z" 'scroll-up) ;; R3
; (global-set-key "\033[211z" 'kill-word) ;; R4
; (global-set-key "\033[212z" 'delete-window) ;; R5
; (global-set-key "\033[213z" 'beginning-of-line) ;; R6
; (global-set-key "\033[214z" 'backward-word) ;; R7
; (global-set-key "\033[A" 'previous-line) ;; R8 up-arrow
; (global-set-key "\033[216z" 'forward-word) ;; R9
; (global-set-key "\033[D" 'backward-char) ;; R10 left-arrow
; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arrow
; (global-set-key "\033[222z" 'scroll-down) ;; R15 pg dn
; ; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arro
(setq-default zmacs-regions t)
(setq-default debug-on-error t)
(cond (running-xemacs
(define-key global-map '(shift tab) 'self-insert-command)
;; Here's a way to add scrollbar-like buttons to the menubar
(add-menu-item nil "Top" 'beginning-of-buffer t)
(add-menu-item nil "<<<" 'scroll-down t)
(add-menu-item nil " . " 'recenter t)
(add-menu-item nil ">>>" 'scroll-up t)
(add-menu-item nil "Bot" 'end-of-buffer t)
(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2)
and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-location "File"
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
(require 'dired)
(set-face-background 'zmacs-region "red")
(set-face-foreground 'zmacs-region "yellow")
(setq auto-save-directory (expand-file-name "~/.autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
ange-ftp-auto-save t
ange-ftp-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;; SKILL MODE is automatically loaded in xemacs 19.14 and above
(defun printRegion ()
"Enscript printing of a region"
(interactive)
(shell-command-on-region (point) (mark) "enscript ")
)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(put 'narrow-to-region 'disabled nil)
A. B. wrote:
Bernd Fischer > wrote:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
with a ref to a site in sweeden and another one probably a mirror in
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply
with the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
F
fogh
Guest
Hi ,
I posted lately some code to generate tips files for nedit. Can save
you a lot of time switching back and forth to the "finder".
I like nedit as well, but it really lacks folds. gvim has folds , so
you can say that vi is more a GUI based editor than nedit.
Also, the SKILL patterns for nedit found on niki are very poor. If any
of you guys has an improved pattern file, please post. Most wanted is
support of both infix and procedural style, and have a smart indenter.
I sometimes consider switching to scintilla, and even looked at
eclipse lately. Most of these have a list or scheme mode that can be
used as starting point. But no matter what editor I look at, it is alway
too much work for my lazy taste to write the patterns/lex stuff. I have
no experience in that.
Bernd Fischer > wrote:
I posted lately some code to generate tips files for nedit. Can save
you a lot of time switching back and forth to the "finder".
I like nedit as well, but it really lacks folds. gvim has folds , so
you can say that vi is more a GUI based editor than nedit.
Also, the SKILL patterns for nedit found on niki are very poor. If any
of you guys has an improved pattern file, please post. Most wanted is
support of both infix and procedural style, and have a smart indenter.
I sometimes consider switching to scintilla, and even looked at
eclipse lately. Most of these have a list or scheme mode that can be
used as starting point. But no matter what editor I look at, it is alway
too much work for my lazy taste to write the patterns/lex stuff. I have
no experience in that.
Bernd Fischer > wrote:
Hi,
to satisfy your curiousness there are SKILL modes
for emacs, vim and nedit.
I personaly use nedit, but that's personal preference.
Listed are two files which I have in a directory, because I use nedit
you have to know how how to use them.
Bernd
;; xemacs-options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point t)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p nil)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
;(setq-default temp-buffer-show-function 'il-temp-buffer-show-function)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts '(or (mono) (grayscale)))
(setq-default font-lock-use-colors '(color))
(setq-default font-lock-maximum-decoration nil)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier
scrollbar-width '((global (nil . 19)))) (add-spec-list-to-specifier
scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil .
2))))
(setq-default truncate-lines nil)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function
'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function
'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts nil)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top)
(add-spec-list-to-specifier default-toolbar-visible-p '((global (nil .
t)))) (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'font-lock-variable-name-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'underline)
(make-face 'pointer)
(make-face 'red)
(make-face 'primary-selection)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'bold)
(make-face 'paren-blink-off)
(make-face 'paren-mismatch)
(make-face 'blue)
(make-face 'font-lock-other-emphasized-face)
(make-face 'modeline-buffer-id)
(make-face 'default)
(make-face 'green)
(make-face 'font-lock-function-name-face)
(make-face 'text-cursor)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'gui-button-face)
(make-face 'modeline-mousable-minor-mode)
(make-face 'paren-match)
(make-face 'font-lock-type-face)
(make-face 'font-lock-doc-string-face)
(make-face 'modeline)
(make-face 'font-lock-emphasized-face)
(make-face 'highlight)
(make-face 'secondary-selection)
(make-face 'left-margin)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-keyword-face)
(make-face 'italic)
(make-face 'font-lock-other-type-face)
(make-face 'yellow)
(make-face 'modeline-mousable)
(make-face 'right-margin)
(make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'foreground) '((global ((color) . "blue3")
((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-variable-name-face 'font) '((global ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'foreground) '((global ((x) . "ForestGreen") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'font) '((global (nil . "-*-courier-medium-o-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face
'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background)
'((global ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'underline 'underline)
'((global (nil . t))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global
((color) . "red"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'foreground) 'nil)
(add-spec-list-to-specifier (face-property 'primary-selection
'background) '((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection
'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"])
((mono tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'foreground) '((global ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face
'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face
'font) '((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil
. "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight) '((global
((tty) . t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off
'foreground) '((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x)
. [modeline foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch
'background) '((global ((grayscale x) . [modeline background]) ((mono x)
. [modeline background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'blue 'foreground)
'((global ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'background) '((global (nil .
"lightyellow2"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'font) '((global (nil .
"-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property
'font-lock-other-emphasized-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'foreground) '((global ((color x) . "blue") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font)
'((global ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono
x) . [bold-italic]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) .
[inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'default 'foreground)
'((global ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'background)
'((global ((x) . "grey"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global
(nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'green 'foreground)
'((global ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'foreground) '((global ((x) .
"royalblue1") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-function-name-face 'font) '((global (nil .
"-*-times-medium-i-*-*-16-*") ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground)
'((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background)
'((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'background) '((global ((mono x) . [default foreground]) ((grayscale) .
"gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected
'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font)
'((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face
'background) '((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'foreground) '((global ((color x) .
"green4") ((color x) . "green") (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'font) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'background-pixmap) '((global ((x) .
[inherit :face #s(face name modeline-mousable)]) ((tty) . [inherit :face
#s(face name modeline-mousable)]) ((stream) . [inherit :face #s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'underline) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'strikethru) '((global (nil . [#s(face
name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'highlight) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'dim) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'blinking) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property
'modeline-mousable-minor-mode 'reverse) '((global (nil . [#s(face name
modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face
'foreground) '((global ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'font)
'((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'foreground) '((global ((x) . "maroon") ((color) . "green4") ((color) .
"green"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face
'font) '((global (nil . "-*-times-medium-r-*-*-14-*") ((mono) .
[italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground)
'((global ((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background)
'((global ((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline
'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing])
((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'background) '((global (nil . "lightyellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'font-lock-emphasized-face
'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background)
'((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) .
"gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'secondary-selection
'background) '((global ((grayscale) . "gray53") ((color) .
"paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'foreground) '((global ((color) . "blue3")
((color) . "blue"))))
(add-spec-list-to-specifier (face-property
'font-lock-preprocessor-face 'font) '((global ((mono) . [bold-italic])
((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'foreground) '((global ((x) . "red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face
'font) '((global (nil . "-*-courier-bold-r-*-*-14-*") ((mono) . [bold])
((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global
(nil . "-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline)
'((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'foreground) '((global (nil . "OliveDrab") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-other-type-face
'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground)
'((global ((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'foreground) '((global ((color x) . "red") (nil . [#s(face name
modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font)
'((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face
name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'background-pixmap) '((global ((x) . [inherit :face #s(face name
modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) .
[inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim)
'((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable
'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background)
'((global ((x) . "CornflowerBlue"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse)
'((global ((tty) . t))))
;; emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; save backup files
(setq make-backup-files t)
;;
(line-number-mode 1)
(setq text-mode-hook 'turn-on-auto-fill)
(setq-default fill-column 75)
;;
;;
(defvar running-xemacs (and (string-match "XEmacs\\|Lucid" emacs-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))))
;; Set tab stops to every 'step' spaces up to 'last' columns
;;
(let* ((step 3) (last 160) (x step) (tabs nil))
; generate tab list
(while (<= x last)
(setq tabs (cons x tabs))
(setq x (+ x step)))
; set tab stop list
(setq-default tab-stop-list (reverse tabs))
; set tab character width to same as tab stop
(setq-default tab-width step))
;; Sets overwriting of the selected text ( like DOS )
(cond
((fboundp 'turn-on-pending-delete)
(turn-on-pending-delete))
((fboundp 'pending-delete-on)
(pending-delete-on t)))
;;
;; Set to insert spaces instead of tab characters
;;
(setq-default indent-tabs-mode nil)
(global-set-key "\C-xw" 'what-line)
(global-set-key "\C-x?" 'help-for-help)
(global-set-key 'backspace 'delete-backward-char)
(global-set-key "\C-?" 'delete-char)
(global-unset-key "\e\e")
(global-set-key "\e\e" 'keyboard-quit)
(setq auto-mode-alist (cons '("\.p$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pl$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.pm$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.df$" . perl-mode) auto-mode-alist))
(cond
(running-xemacs
(autoload 'perl-mode "cperl-mode" "alternate mode for editing perl" t)
(setq cperl-hairy t)
)
(t
(autoload 'perl-mode "perl-mode" "alternate mode for editing perl" t)
)
) ; cond
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N
lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
(global-set-key [(shift up)] 'scroll-one-line-up)
(global-set-key [(shift down)] 'scroll-one-line-down)
;(define-key "x-button-left" 'x-mouse-set-point)
;(define-key mouse-map "x-button-s-left" 'x-buffer-menu)
;(define-key mouse-map "x-button-middle" 'x-paste-text)
;(define-key mouse-map "x-button-c-middle" 'x-cut-and-wipe-text)
;(define-key mouse-map "x-button-s-middle" 'x-cut-text)
;(define-key mouse-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key mouse-map "x-button-s-right"
'x-mouse-delete-win)
;(define-key mouse-map "x-button-c-right" 'x-mouse-select-and-split)
;(define-key global-map 'button1" 'x-mouse-set-point)
;(define-key global-map "x-button-s-left" 'x-buffer-menu)
;(define-key global-map 'button2 'x-insert-selection)
;(define-key global-map '(control button2) 'x-cut-and-wipe-text)
;(define-key global-map '(shift button2) 'x-cut-text)
;(define-key global-map "x-button-right" 'x-mouse-keep-one-window)
;(define-key global-map "x-button-s-right"
'x-mouse-delete-win)
;(define-key global-map "x-button-c-right"
'x-mouse-select-and-split)
;; for LUCID emacs
(cond
(running-xemacs
;(global-set-key '(meta button1) `mouse-keep-one-window) ;;
;(global-set-key '(button2) `mouse-track-insert) ;; select the region
and copie it to the point
; Local Bindings:
; button binding
;------ -------
;
;Global Bindings:
;button binding
;------ -------
;
;button1 mouse-track
;button1up release-toolbar-button
;button2 x-insert-selection
;button3 popup-mode-menu
;C-button1 mouse-track-insert
;C-button2 x-cut-and-wipe-text
;M-button1 mouse-track-do-rectangle
;M-C-button3 popup-buffer-menu
;Sh-button1 mouse-track-adjust
;Sh-button2 x-cut-text
;C-Sh-button1 mouse-track-delete-and-insert
;; cmdPad Cut
(global-set-key 'f1 'help-command)
;; cmdPad Cut
(global-set-key 'f20 'kill-region)
;; cmdPad Find
(global-set-key 'f19 'query-replace)
;; cmdPad Paste
(global-set-key 'f18 'yank)
;; cmdPad Open
(global-set-key 'f17 'delete-other-windows)
;; cmdPad Copy
(global-set-key 'f16 'copy-region-as-kill)
;(global-set-key 'f15 ')
;; cmdPad Undo
(global-set-key 'f14 'advertised-undo)
;; KEYPAD 1
(global-set-key 'f33 'end-of-line)
;; Keypad shift 1
(global-set-key '(shift f33) 'end-of-buffer)
;; keypad 3
(global-set-key 'f35 'forward-page)
;; keypad 9
(global-set-key 'f29 'backward-page)
;; keypad 7
(global-set-key 'f27 'beginning-of-line)
;; keypad shift 7
(global-set-key '(shift f27) 'beginning-of-buffer)
;; keypad shift 6
(global-set-key 'f32 'forward-sexp)
;; keypad shift 4
(global-set-key 'f30 'backward-sexp)
;; keypad 5
(global-set-key 'f31 'exchange-point-and-mark)
;; keypad shift 5
(global-set-key '(shift f31) 'goto-line)
(global-set-key 'f8 'start-kbd-macro)
(global-set-key 'f9 'end-kbd-macro)
(global-set-key 'f10 'call-last-kbd-macro)
;; Uncomment this to enable "sticky modifier keys" in 19.13
;; and up. With sticky modifier keys enabled, you can
;; press and release a modifier key before pressing the
;; key to be modified, like how the ESC key works always.
;; If you hold the modifier key down, however, you still
;; get the standard behavior. I personally think this
;; is the best thing since sliced bread (and a *major*
;; win when it comes to reducing Emacs pinky), but it's
;; disorienting at first so I'm not enabling it here by
;; default.
;;(setq modifier-keys-are-sticky t)
)
) ; cond
; (global-set-key "\033[208z" 'other-window) ;; R1
; ;;(global-set-key "\033[209z" 'enlarge-window) ;; R2
; (global-set-key "\033[210z" 'scroll-up) ;; R3
; (global-set-key "\033[211z" 'kill-word) ;; R4
; (global-set-key "\033[212z" 'delete-window) ;; R5
; (global-set-key "\033[213z" 'beginning-of-line) ;; R6
; (global-set-key "\033[214z" 'backward-word) ;; R7
; (global-set-key "\033[A" 'previous-line) ;; R8 up-arrow
; (global-set-key "\033[216z" 'forward-word) ;; R9
; (global-set-key "\033[D" 'backward-char) ;; R10 left-arrow
; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arrow
; (global-set-key "\033[222z" 'scroll-down) ;; R15 pg dn
; ; (global-set-key "\033[218z" 'set-mark-command) ;; R11
; (global-set-key "\033[C" 'forward-char) ;; R12 right-arrow
; (global-set-key "\033[220z" 'end-of-buffer) ;; R13
; (global-set-key "\033[B" 'next-line) ;; R14 down-arro
(setq-default zmacs-regions t)
(setq-default debug-on-error t)
(cond (running-xemacs
(define-key global-map '(shift tab) 'self-insert-command)
;; Here's a way to add scrollbar-like buttons to the menubar
(add-menu-item nil "Top" 'beginning-of-buffer t)
(add-menu-item nil "<<<" 'scroll-down t)
(add-menu-item nil " . " 'recenter t)
(add-menu-item nil ">>>" 'scroll-up t)
(add-menu-item nil "Bot" 'end-of-buffer t)
(require 'func-menu)
(define-key global-map 'f8 'function-menu)
(add-hook 'find-file-hooks 'fume-add-menubar-entry)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
;; The Hyperbole information manager package uses (shift button2)
and
;; (shift button3) to provide context-sensitive mouse keys. If you
;; use this next binding, it will conflict with Hyperbole's setup.
;; Choose another mouse key if you use Hyperbole.
(define-key global-map '(shift button3) 'mouse-function-menu)
;; For descriptions of the following user-customizable variables,
;; type C-h v <variable
(setq fume-max-items 25
fume-fn-window-position 3
fume-auto-position-popup t
fume-display-in-modeline-p t
fume-menubar-menu-location "File"
fume-buffer-name "*Function List*"
fume-no-prompt-on-valid-default nil)
))
(require 'dired)
(set-face-background 'zmacs-region "red")
(set-face-foreground 'zmacs-region "yellow")
(setq auto-save-directory (expand-file-name "~/.autosave/")
auto-save-directory-fallback auto-save-directory
auto-save-hash-p nil
ange-ftp-auto-save t
ange-ftp-auto-save-remotely nil
;; now that we have auto-save-timeout, let's crank this up
;; for better interactive response.
auto-save-interval 2000
)
;; We load this afterwards because it checks to make sure the
;; auto-save-directory exists (creating it if not) when it's loaded.
(require 'auto-save)
;; SKILL MODE is automatically loaded in xemacs 19.14 and above
(defun printRegion ()
"Enscript printing of a region"
(interactive)
(shell-command-on-region (point) (mark) "enscript ")
)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(put 'narrow-to-region 'disabled nil)
A. B. wrote:
Bernd Fischer > wrote:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
Do a search in this group (e.g. with Google), I'm sure you'll find it!
I had the same question a couple of years ago, and searched and ended up
with a ref to a site in sweeden and another one probably a mirror in
stuttgart but both links were broken. The ftp site at cadence also did
not work. Then, I searched at large in the webbut with no success. I
gave up after that.
So, if you know for a fact where I can get it please do just reply
with the link so everybody will benefit from it.
Thanx
P.S. I am just curious, what cadence developpers are using? I know it
is a matter of taste but it most likely to be (x)emacs or vi.
Guest
I came across this thread and downloaded the Major mode for Skill
files. I have a few questions about getting started and hope that
someone might be able to help me.
My background is that I am new to both Emacs and Skill/Lisp. I am a
Cadence user and want to write some Skill programs with the benefit of
Emacs in Skill mode.
I am running everything on Windows XP platform, and I am concerned that
the Skill Mode 'pattern' that I downloaded following the link can only
be compiled for use with a Unix system - is this right?
If skillmode3.2 can be used with Windows, how do I install it - it's
not at all obvious to me from reading the documentation.
Thanks for any help you can provide
Stefan Robert wrote:
files. I have a few questions about getting started and hope that
someone might be able to help me.
My background is that I am new to both Emacs and Skill/Lisp. I am a
Cadence user and want to write some Skill programs with the benefit of
Emacs in Skill mode.
I am running everything on Windows XP platform, and I am concerned that
the Skill Mode 'pattern' that I downloaded following the link can only
be compiled for use with a Unix system - is this right?
If skillmode3.2 can be used with Windows, how do I install it - it's
not at all obvious to me from reading the documentation.
Thanks for any help you can provide
Stefan Robert wrote:
Yes I finally found this after re-discovering it a second time.
The first time I tried this I must have made an error and it
wrongfully
showed that it was not alive anymore.
I re-tried this and suprisingly found that it was alive...
thanks
On 2004-12-16 03:40:46 -0500, Eyck Jentzsch <jentzsch@cadence.com
said:
Stefan Robert wrote:
Does anyone know if a SKILL emacs mode exists somewhere?
Stefan
A simple google using "skillmode emacs" leads to an emacs wiki
which
points to ftp://ftp.informatik.uni-stuttgart.de/pub/skill/ (which
is
alive).
HTH
-Eyck
S
Satya Mishra
Guest
"evillen" == evillen <evillen@innocent.com> writes:
evillen> Date: 22 Feb 2005 07:31:46 -0800
evillen> I came across this thread and downloaded the Major mode
evillen> for Skill files. I have a few questions about getting
evillen> started and hope that someone might be able to help me.
evillen> My background is that I am new to both Emacs and
evillen> Skill/Lisp. I am a Cadence user and want to write some
evillen> Skill programs with the benefit of Emacs in Skill mode.
evillen> I am running everything on Windows XP platform, and I am
evillen> concerned that the Skill Mode 'pattern' that I downloaded
evillen> following the link can only be compiled for use with a
evillen> Unix system - is this right?
evillen> If skillmode3.2 can be used with Windows, how do I
evillen> install it - it's not at all obvious to me from reading
evillen> the documentation.
evillen> Thanks for any help you can provide
You can get an updated version from Cadence AE. The new version works
with emacs21. Also, skill-mode should be portable across
platforms. You just need to copy the files to somewhere in the
load-path and follow instructions included with the package.
Satya
--
Remove XXX and YYY to get my address
S
Satya Mishra
Guest
"Stephen" == Stephen Chadfield <stephen@chadfield.com> writes:
Stephen> Date: Tue, 22 Feb 2005 22:17:18 +0000 (UTC)
Stephen> evillen@innocent.com <evillen@innocent.com> wrote:
Stephen> As an alternative Vim comes with excellent Skill syntaxI came across this thread and downloaded the Major mode for
Skill files. I have a few questions about getting started and
hope that someone might be able to help me.
Stephen> highlighting out-of-the-box.
Stephen> -- Stephen Chadfield http://www.chadfield.com/
True. However, skill-mode does more than just syntax highlight. It also
has a sort of inferior-lisp-style way of sending fragments of SKILL
code to a running skill-interpreter session (icfb, icms, awd,
etc.). Though it isn't quite as neat as say 'ilisp', its still pretty
useful. I think a method using pipes would be nicer.
I don't know if Cadence's insistence on not giving out source code for
skill-mode is a violation of GPL.
Satya
--
Remove XXX and YYY to get my address
Guest
Thanks for all the responses.
Andrew could you please email or provide a link to the latest
skill-mode files? I can't find anything on Sourcelink and it would
probably be quicker than asking our AE to pursue this for me.
Many thanks.
Andrew Beckett wrote:
Andrew could you please email or provide a link to the latest
skill-mode files? I can't find anything on Sourcelink and it would
probably be quicker than asking our AE to pursue this for me.
Many thanks.
Andrew Beckett wrote:
On Tue, 22 Feb 2005 15:51:36 -0700, Satya Mishra
snmishra@XXXhotYYYpop.com
wrote:
I don't know if Cadence's insistence on not giving out source code
for
skill-mode is a violation of GPL.
I don't think we have the source code, as it wasn't written by anyone
in
Cadence. If memory serves, it was written by somebody at Ericsson. I
don't
think the original author is still involved in SKILL related stuff
(and
probably not at Ericsson any more) - this is pretty old...
So we're not violating GPL. I think to get it to work with later
emacs
versions, somebody had to twiddle some bits in the binary code to get
it to
work (as we didn't have the source code).
Andrew.