diff --git a/Emacs/Aquamacs Emacs/Preferences.el b/Emacs/Aquamacs Emacs/Preferences.el deleted file mode 100644 index ff3e456..0000000 --- a/Emacs/Aquamacs Emacs/Preferences.el +++ /dev/null @@ -1,62 +0,0 @@ -;; ----------------------------- -;; Aquamacs ONLY customizations -;; ----------------------------- - -(defvar aquamacs-p (string-match "Aquamacs" (version))) ;; are we on Aquamacs? - -;; Se stiamo usando acquamacs -(when (featurep 'aquamacs) - - ;; default window dimensions - (setq default_height 55) - (setq default_width 120) - - ;; non gestire il posizionamento dei frame - (smart-frame-positioning-mode t) - - ;; set size of main window - (set-frame-height (selected-frame) default_height);; set size of main window - (set-frame-width (selected-frame) default_width) - - ;; ;; Apre un nuovo frame con il buffer *Scratch* -;; (defun my-new-frame-with-new-scratch () -;; "Open a new window with default height and width" -;; (interactive) -;; (let ((one-buffer-one-frame t)) -;; (make-frame `((width . ,default_width) -;; (height . ,default_height))))) - (defun my-new-frame-with-new-scratch () - (interactive) - (let ((one-buffer-one-frame t)) - (new-frame-with-new-scratch)) - (set-frame-height (selected-frame) default_height);; set size of main window - (set-frame-width (selected-frame) default_width)) - - ;; Chiudiamo salvando - (one-buffer-one-frame-mode 0) - (defun my-close-current-window-asktosave () - (interactive) - (let ((one-buffer-one-frame t)) - (close-current-window-asktosave))) - - ;; in Dired usiamo il comando open - (defun dired-open-mac () - "Uses open command in dired mode" - (interactive) - (let (( file-name (dired-get-file-for-visit))) - (if (file-exists-p file-name) - (call-process "/usr/bin/open" nil 0 nil file-name)))) - - ;; OSX Keybindings - (define-key osx-key-mode-map (kbd "") 'beginning-of-line) - (define-key osx-key-mode-map (kbd "") 'end-of-line) - - ;; Mela-N per aprire una nuova finestra - (define-key osx-key-mode-map (kbd "A-n") 'my-new-frame-with-new-scratch) - ;; Mela-W per chiudere salvando - (define-key osx-key-mode-map (kbd "A-W") 'my-close-current-window-asktosave) - (define-key osx-key-mode-map (kbd "A-w") 'kill-this-buffer) - (define-key osx-key-mode-map (kbd "A-j") 'join-line) - ;; o in dired per aprire con l'applicazione di default - (define-key dired-mode-map "o" 'dired-open-mac) - ) diff --git a/Emacs/Emacs/Preferences.el b/Emacs/Emacs/Preferences.el deleted file mode 100644 index f631709..0000000 --- a/Emacs/Emacs/Preferences.el +++ /dev/null @@ -1,387 +0,0 @@ -;; -;; Copyright (c)2007 CUBE S.p.A. -;; -;; Author: Andrea Mistrali -;; Description: Emacs Startup script -;; -;; $Id$ -;; - - -;; Definiamo i path di ricerca di moduli e librerie - -;;(ignore-errors -(add-to-list 'load-path "~/.emacs.d/") -(add-to-list 'load-path "/opt/local/share/emacs/site-lisp/") ;; Darwin Ports -(add-to-list 'load-path "/sw/share/emacs/site-lisp/") ;; Fink -(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/") -(add-to-list 'load-path "/usr/share/emacs/site-lisp") -;;(add-to-list 'load-path "/usr/share/emacs/21.2/lisp")) - -;; Carichiamo i moduli che ci servono subito -(require 'dired) -(require 'autoinsert) -(require 'hippie-exp) -(require 'tramp) -(require 'saveplace) -(require 'rst) -(require 'psvn) -;; (require 'desktop) - -(server-start) -(server-mode 1) - - -;; (setq-default save-place t) -;; (setq-default desktop-read t) -;; (desktop-save-mode 1) - - -;; global variables -(setq organization "CUBE S.p.A.") -(setq user-mail-address "andre@cubeholding.com") - -(setq-default frame-title-format - (list (format "%s %%S: %%j " (system-name)) - '(buffer-file-name "%f" (dired-directory dired-directory "%b")))) - -(setq column-number-mode t) -(setq european-calendar-style t) -(setq calendar-week-start-day 1) - -(toggle-text-mode-auto-fill) -(line-number-mode t) -(setq transient-mark-mode t) -(setq kill-whole-line t) - -(display-time) ;; in global prefs -(setq-default indent-tabs-mode nil) -(setq-default default-tab-width 2) - -(global-font-lock-mode t) -(setq font-lock-maximum-decoration t) -(setq-default blink-match-paren t) -(setq-default comment-style 'indent) - -;; KEY BINDINGS -;; All version bindings - -(global-set-key (kbd "C-x C-g") 'goto-line) -(global-set-key (kbd "C-x g") 'goto-line) -(global-set-key (kbd "C-x j") 'join-line) -(global-set-key (kbd "C-c ;") 'comment-or-uncomment-region-or-line) -;; This is better than normal behavior -(global-set-key (kbd "C-x C-b") 'electric-buffer-list) - - -(global-set-key (kbd "") 'other-window) -(global-set-key (kbd "") 'delete-other-windows) ; remove the other windows -(global-set-key (kbd "") 'delete-window) ; remove the selected window - -(global-set-key (kbd "") 'split-window-horizontally) -(global-set-key (kbd "") 'split-window-vertically) - -(global-set-key (kbd "C-x SPC") 'toggle-showtabs) -(global-set-key (kbd "C-c h") 'hide-subtree) -(global-set-key (kbd "C-c s") 'show-subtree) -(global-set-key (kbd "C-c a") 'hide-sublevels) -(global-set-key (kbd "C-c A") 'show-all) - - -(global-set-key (kbd "") 'eshell) ;; conflicts with Dashboard -(global-set-key (kbd "") 'term) ;; conflicts with Dashboard - -(global-set-key [(meta right)] 'forward-word) -(global-set-key [(meta left)] 'backward-word) - -;; Italian Keyboard on Mac OS X -(global-set-key (kbd "M-\230") "@") -(global-set-key (kbd "M-\223") "~") -(global-set-key (kbd "M-\210") "#") -(global-set-key (kbd "M-ò") "@") -(global-set-key (kbd "M-à") "#") -(global-set-key (kbd "M-ì") "~") -(global-set-key (kbd "M-è") "[") -(global-set-key (kbd "M-+") "]") -(global-set-key (kbd "M-é") "{") -(global-set-key (kbd "S-M-+") "}") -(global-set-key (kbd "M-\\") "`") - -;;;;;;;;;;;; -;; hippie -;;;;;;;;;;;; -(setq hippie-expand-try-functions-list - '( - ;; try-complete-tempo-tag - ;; try-complete-lisp-symbol-partially - ;; try-complete-lisp-symbol - - try-expand-dabbrev - try-expand-dabbrev-all-buffers - try-expand-dabbrev-from-kill - try-complete-file-name-partially - try-complete-file-name - try-expand-list - try-expand-list-all-buffers - try-expand-line - try-expand-line-all-buffers - try-expand-whole-kill)) - -;; the expand-function. Called with a positive prefix

it jumpes direct -;; to the

-th try-function. -(defun my-hippie-expand (arg) - (interactive "P") - ;; hippie-expand does not have a customization-feature (like - ;; dabbrev-expand) to search case-sensitive for completions. - ;; So we must set 'case-fold-search' temp. to nil! - (let ((old-case-fold-search case-fold-search)) - (setq case-fold-search nil) - (hippie-expand arg) - (setq case-fold-search old-case-fold-search) - ) - ) -;; all expansion is done by 'my-hippie-expand bound to C-TAB! -(global-set-key (kbd "") 'my-hippie-expand) - -;;;;;;;;;;; -;; TRAMP -;;;;;;;;;;; -(setq tramp-shell-prompt-pattern "[#$%>] *") -(setq tramp-default-method "ssh") - -;; Some useful functions -(defun ascii-table () - "Print the ascii table. Based on a defun by Alex Schroeder " - (interactive) - (switch-to-buffer "*ASCII*") - (erase-buffer) - (insert (format "ASCII characters up to number %d.\n\n" 254)) - (let ((i 0)) - (while (< i 254) - (setq i (+ i 1)) - (insert (format "%4d %c\n" i i)))) (beginning-of-buffer)) - -;; emulate set list in vi -(defvar *showtabs* nil) -(defun toggle-showtabs () - "toggle the display of tabs and newlines" - (interactive) - (setq *showtabs* (not *showtabs*)) - (let ((disptab (make-display-table))) - (let ((i 0)) - (while (< i 32) - (or (= i ?\t) (= i ?\n) - (aset disptab i (vector ?^ (+ i 64)))) - (setq i (1+ i)))) - (when *showtabs* - (aset disptab 127 (vector ?^ ??)) - (aset disptab ?\t (vector ?- ?>)) - (aset disptab ?\n (vector ?$ ?\n))) - (set-window-display-table (selected-window) disptab))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Auto Insert - Template add-on -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define-skeleton insert-cvs-tags ;; insert CVS ID Tag - "insert the CVS tags" - nil - comment-start " $Id$ " comment-end \n) - -(define-skeleton insert-gpl-disclaimer ;; insert GPL header - "insert GPL disclaimer" - nil - comment-start "This file is free software; you can redistribute it and/or modify" comment-end \n - comment-start "it under the terms of the GNU General Public License as published by" comment-end \n - comment-start "the Free Software Foundation; either version 2, or (at your option)" comment-end \n - comment-start "any later version." comment-end \n \n - comment-start "This file is distributed in the hope that it will be useful," comment-end \n - comment-start "but WITHOUT ANY WARRANTY; without even the implied warranty of" comment-end \n - comment-start "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the" comment-end \n - comment-start "GNU General Public License for more details." comment-end \n \n - comment-start "You should have received a copy of the GNU General Public License" comment-end \n - comment-start "along with this software; see the file COPYING. If not, write to" comment-end \n - comment-start "the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor," comment-end \n - comment-start "Boston, MA 02110-1301, USA." comment-end \n \n - - ) - -;; Generic Header -(define-skeleton insert-standard-header - "insert a standard header in all programs" - "Purpose or description:" - comment-start "-*- coding: latin-1 -*-" comment-end \n - comment-start (concat "Copyright (c)" (substring (current-time-string) -4) - " " organization " ") comment-end \n - comment-start " " comment-end \n - comment-start " Author: " (user-full-name) " <" user-mail-address "> " comment-end \n - comment-start " Description: " - str - comment-end \n - comment-start comment-end \n - '(insert-cvs-tags)' "" \n - \n \n - comment-end) - -(define-skeleton insert-python-header - "inserts a Python header" - nil - "#!/usr/bin/env python" \n - '(insert-standard-header)' "" - "__version__=\"$Revision$\"[11:-2]" \n \n - "") - -;; (define-skeleton insert-rst-header -;; "inserts header for ReST documents " -;; "ReST Document Title:" -;; ".. contents:: Indice" \n -;; ".. :backlinks: top" \n -;; ".. sectnum::" \n -;; ".. header:: " -;; str \n -;; ".. footer::" \n -;; " :Author: " (user-full-name) \n -;; ":Contact: " user-mail-address \n -;; ":Date: " (current-time-string)) - -;; (define-skeleton insert-timestamp -;; "inserts current timestamp" -;; nil -;; (current-time-string)) - -(define-skeleton insert-c-header - "inserts a C Header " - "Purpose or description:" - comment-start \n - (concat "Copyright (c)" (substring (current-time-string) -4) " " organization) \n \n - "Author: " (user-full-name) " <" user-mail-address "> " \n - "Description: " - str \n \n - "-*- coding: latin-1 -*-" \n \n - "$Id$ " \n \n - comment-end \n \n - "#include " \n - "#include " \n \n) - -(define-skeleton insert-perl-header - "inserts a Perl header" - "Purpose of script: " - "#!/usr/bin/perl" \n - '(insert-standard-header)' "" \n \n - ) -;; Python stuff for outline mode. -(defvar py-outline-regexp "^\\([ \t]*\\)\\(def\\|class\\|if\\|elif\\|else\\|while\\|for\\|try\\|except\\|with\\)" - "This variable defines what constitutes a 'headline' to outline mode.") - -(defun py-outline-level () - "Report outline level for Python outlining." - (save-excursion - (end-of-line) - (let ((indentation (progn - (re-search-backward py-outline-regexp) - (match-string-no-properties 1)))) - (if (and (> (length indentation) 0) - (string= "\t" (substring indentation 0 1))) - (length indentation) - (/ (length indentation) py-indent-offset))))) - - -;; Python Mode -(defun my-python-mode-settings () - "My Python programming mode settings." - (interactive) - (setq indent-tabs-mode nil) - (local-set-key (kbd "C-c h") 'hide-subtree) - (local-set-key (kbd "C-c s") 'show-subtree) - (local-set-key (kbd "") 'insert-python-header) - (local-set-key (kbd "") 'python-beginning-of-block) - (local-set-key (kbd "") 'python-end-of-block)) - - -(when (locate-library "python-mode") - (add-hook 'python-mode-hook 'my-python-mode-settings) - (add-hook 'python-mode-hook - '(lambda () - (outline-minor-mode 1) - (setq - outline-regexp py-outline-regexp - outline-level 'py-outline-level))) - (autoload 'python-mode "python-mode")) - -(custom-set-variables - '(py-imenu-show-method-args-p t) - ) - -;; C Mode -(defun my-c-mode-settings () - "My C programming mode settings." - (interactive) - (local-set-key (kbd "") 'insert-c-header) - (local-set-key (kbd "") 'c-beginning-of-defun) - (local-set-key (kbd "") 'c-end-of-defun)) - -(when (locate-library "c-mode") - (add-hook 'c-mode-hook 'my-c-mode-settings) - (autoload 'c-mode "c-mode")) - - -;; ReST Mode -(defun my-rst-mode-settings () - "My reStructuredText mode settings." - (interactive) - (local-set-key (kbd "") 'insert-rst-header)) - -(when (locate-library "rst-mode") - (add-hook 'rst-mode-hook 'my-rst-mode-settings) - (autoload 'rst-mode "rst-mode")) - -;; Perl -(setq interpreter-mode-alist (append interpreter-mode-alist - '(("miniperl" . perl-mode)))) -(setq cperl-electric-parens t) -(setq cperl-electric-keywords t) -(setq cperl-electric-brace t) -(setq cperl-electric-backspace t) -(setq cperl-auto-newline-after-colon t) -(setq cperl-auto-newline t) - -;;run the current perl program -(defun run-perl () - (interactive "*") - (setq perl-buffer-name buffer-file-name) - (shell) - (setq perl-run-command "perl ") - (insert perl-run-command) - (insert perl-buffer-name) - ) - -;; debug the current perl program -(defun debug-perl () - (interactive "*") - (setq perl-buffer-name buffer-file-name) - (shell) - (setq perl-run-command "perl -d ") - (insert perl-run-command) - (insert perl-buffer-name) - ) - - -;; HTML Mode -(dolist (i magic-mode-alist) - (when (eq (cdr i) 'html-helper-mode) - (setf (cdr i) 'html-mode))) - -(add-to-list 'auto-mode-alist '("\\.html$" . html-mode)) -;; reStructuredText -(add-to-list 'auto-mode-alist '("\\.rst$" . rst-mode)) -;; Python -(add-to-list 'auto-mode-alist '("\\.py$" . python-mode)) -;; Perl -(add-to-list 'auto-mode-alist '("\\.pl$" . perl-mode)) - -(add-hook 'find-file-hooks 'auto-insert) -(setq auto-insert-alist - (append '(((python-mode . "Python Mode") . insert-python-header)) - '(((c-mode . "C Mode") . insert-c-header)) - '(((perl-mode . "Perl Mode") . insert-perl-header)) - auto-insert-alist)) diff --git a/zsh/zshrc b/zsh/zshrc index 8536e8e..bb47ff2 100644 --- a/zsh/zshrc +++ b/zsh/zshrc @@ -7,7 +7,7 @@ # Global Order: zshenv, zprofile, zshrc, zlogin # KERNEL=`uname -s` -LIBRARY="/Network/Library/zsh.d" +LIBRARY="/etc/zsh.d" KERNLIB="${LIBRARY}/${KERNEL}" function loadRC {