You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

583 lines
16 KiB

;; Customs Iniziali ;;
'(case-fold-search t)
'(current-language-environment "English")
'(uniquify-buffer-name-style (quote forward) nil (uniquify)))
;; No splash screen, thank you kindly
(setq inhibit-startup-message t)
;; No beep
(setq visible-bell t)
;; y e n invece che yes e no
(fset 'yes-or-no-p 'y-or-n-p)
;; Dont ask me if i want to use those commands
;; disabilitati di default
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
;; Carica Lisp path
(setq load-path (cons "~/.emacs.d/lisp/" load-path))
;; Carica themes path
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
;; Debug errors
;(setq debug-on-error t)
;; Set default mode (anche no)
;(setq default-major-mode 'write-mode)
;; Backup Files ;;
;; Non creare files di backup
;(setq make-backup-files nil)
;; Disattiva l'autosave
(setq auto-save-default nil)
;; Intervallo dell'autosave
;(setq-default auto-save-interval 0)
;; Delete unnecessary autosave files
(setq delete-auto-save-files t)
;; Delete oldversion files
;(setq delete-old-versions t)
;; Setta la directory di backup
(setq backup-directory-alist `(("." . "~/.saves")))
;; Backup tramite hardcopy
(setq backup-by-copying t)
;; Quante copie? 2 antiche e 6 nuove per totale di 8
(setq delete-old-versions t
kept-new-versions 6
kept-old-versions 2
version-control t)
;; Non backuppare i *.gpg
(defvar my-backup-ignore-regexps (list "\\.gpg$")
"*List of filename regexps to not backup")
(defun my-backup-enable-p (name)
"Filter certain file backups"
(when (normal-backup-enable-predicate name)
(let ((backup t))
(mapc (lambda (re)
(setq backup (and backup (not (string-match re name)))))
(setq backup-enable-predicate 'my-backup-enable-p)
;; Saving sessions ;;;
;; open automaticamente that particular file
; (find-file "/home/dan/")
;; Remember last session
;(desktop-save-mode 1)
;; Per disattivare: M-x desktop-clear
;; Emacs Screen:
;; | title bar of terminal window
;; | menu bar
;; |
;; | buffer
;; |
;; | mode line
;; | minibuffer
;; Show buffer name in title-bar per xterm
;(setq frame-title-format "emacs - %b")
;; No menubar
(menu-bar-mode -1)
;; Se menubar is on (default) la usi con il mouse in xemacs
;; e con F10 e le frecce in terminale.
;; usa la menubar via keys
;(setq tty-menu-open-use-tmm t)
;; Add a new menubar element
;(define-key-after (lookup-key global-map [menu-bar edit])
; [startup] '("Toggle Truncate Lines" . (lambda () (interactive)
; (setq-default truncate-lines (not truncate-lines)))) [calendar])
;; Buffer: quanto e' una tab
(setq-default tab-width 4)
;; usa spazi invece che tabs
(setq-default indent-tabs-mode nil)
;; attiva il wrap. il default e' 70 chars
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; Quanto wrap? facciamo 80
;; C-u 60 C-x f, ma anche C-x f 60
(add-hook 'text-mode-hook '(lambda () (setq fill-column 80)))
;; Scroll just one line
(setq scroll-step 1)
;; Down arrow wont insert newline
(setq-default next-line-add-newlines nil)
;; Large margins when writing prose
(defun my-set-margins ()
"Set margins in current buffer."
(setq left-margin-width 3)
(setq right-margin-width 2))
(add-hook 'markdown-mode-hook 'my-set-margins)
;(add-hook 'text-mode-hook 'my-set-margins)
;; Niente scrollbar per xterm
;(tool-bar-mode nil)
;(toggle-scroll-bar -1)
;; Mode line ;;
;; Column number highlighting on
(column-number-mode t)
;; Show line number
(setq-default line-number-mode t)
;; Show buffer and region size indication
(size-indication-mode 1)
;; Show auto numero di caratteri in region
(require 'modeline-posn)
;; Show file path in mode line con C-c z
(defun show-file-name ()
"Show the full path file name in the minibuffer."
(message (buffer-file-name))
(kill-new (file-truename buffer-file-name))
(global-set-key "\C-cz" 'show-file-name)
; Show time
(display-time-mode 1)
;(defface egoge-display-time
; '((((type x w32 mac))
; ;; #060525 is the background colour of my default face.
; (:foreground "#060525" :inherit bold))
; (((type tty))
; (:foreground "blue")))
; "Face used to display the time in the mode line.")
(defface pretty-display-time
'((((type tty))
(:foreground "blue")))
"Face used to display the time in the mode line.")
;; Time in the modeline to be displayed in `pretty-display-time-face'
(setq display-time-string-forms
'((propertize (concat " " 24-hours ":" minutes " ")
'face 'pretty-display-time)))
; Show battery indicator
(display-battery-mode 1)
;; Show chars/words in region/buffer
;; count-words-region/buffer e count-char-region/buffer
(defun count-words-buffer ()
(let ((count 0))
(goto-char (point-min))
(while (< (point) (point-max))
(forward-word 1)
(setq count (1+ count)))
(message "il buffer contiene %d words." count))))
(defun count-words-region (start end)
(interactive "r")
(let ((count 0))
(goto-char start)
(while (< (point) end )
(forward-word 1)
(setq count (1+ count)))
(message "la regione contiene %d words." count))))
(defun count-char-buffer ()
(let ((count 0))
(goto-char (point-min))
(while (< (point) (point-max))
(forward-char 1)
(setq count (1+ count)))
(message "il buffer contiene %d characters." count))))
(global-set-key "\e\e\c" 'count-char-buffer)
(defun count-char-region (start end)
(interactive "r")
(let ((count 0))
(goto-char start)
(while (< (point) end )
(forward-char 1)
(setq count (1+ count)))
(message "la regione contiene %d characters." count))))
;; Colori ed Evidenziatori ;;
;; ZenBurn Theme
(load-theme 'zenburn t)
;; Highlight search and replace
(setq query-replace-highlight t)
(setq search-highlight t)
;; Highlight marked region
(transient-mark-mode t)
;; Highlight current line
;(set-face-attribute hl-line-face nil :underline t)
;; Highlight matching parenthesis
;(require 'paren)
;(show-paren-mode t)
;; Highlight l'ultima linea prima di scrollare via
(require 'highlight-context-line)
(autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files" t)
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
;; Usa pandoc per la conversione in html: C-c C-c c
(defun convert-markdown-to (newtype)
(interactive "sOutput[html|html5|rtf|slidy|mediawiki|revealjs|latex|..]: ")
(let ((current-document (buffer-file-name))
(temp-filename (concat "./output." newtype)))
(with-temp-file temp-filename
(call-process-shell-command (concat "pandoc -s -f markdown -t " newtype)
nil t nil current-document))
(browse-url temp-filename)))
(eval-after-load "markdown-mode"
'(define-key markdown-mode-map (kbd "C-c C-c c") 'convert-markdown-to))
;; ORG MODE ;;
(require 'org)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(setq org-log-done t)
;(add-hook 'org-mode-hook 'turn-on-font-lock) ; not needed when global-font-lock-mode is on
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
;; Startup folding mode
(setq org-startup-folded "showall")
;; si può definire per-file
;; #+STARTUP: fold
;; #+STARTUP: nofold
;; #+STARTUP: content
;; #+STARTUP: showeverything
;; Segui i link con tasto RET
(setq org-return-follows-link t)
; Quali sono i file che Agenda deve considerare quando cerca i TODO
(setq org-agenda-files (list "~/org/"
;(setq org-agenda-custom-commands
; '(("w" todo "WAIT" nil)
; ("n" todo "NEXT" nil)
; ("d" "Agenda + Next Actions" ((agenda) (todo "NEXT"))))
; )
;; Colora i TODO
;(setq org-todo-keywords
; (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
; (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))
; (setq org-todo-keyword-faces
; (quote (("TODO" :foreground "red" :weight bold)
; ("NEXT" :foreground "forest green" :weight bold)
; ("DONE" :foreground "forest green" :weight bold))))
; ("WAIT" :foreground "blue" :weight bold)
; ("HOLD" :foreground "magenta" :weight bold)
; ("CANCELLED" :foreground "forest green" :weight bold)
; ("MEETING" :foreground "forest green" :weight bold)
; ("PHONE" :foreground "forest green" :weight bold))))
;; avail: orange, magenta, red, forest green, blue,
;; carica il modulo post
(require 'post)
;; Usenet RFC 1855 stipulates we limit email 72 char per line
(add-hook 'post-mode-hook '(lambda () (setq fill-column 72)))
;; post.el removes the signatures that are cited by default
;; but certain people write their prose below the '--' line.
(setq post-kill-quoted-sig nil)
;; una chiave, visto che lo devo lanciare manualmente ogni volta
;(global-set-key "\e\e\p" 'post-mode)
;; Bookmarks ;;
;; shortcut: C-x a e (expand-abbrev) and RET
;(defun bookmark-to-abbrevs ()
; "Create abbrevs based on `bookmark-alist'."
; (dolist (bookmark bookmark-alist)
; (let* ((name (car bookmark))
; (file (bookmark-get-filename name)))
; (define-abbrev global-abbrev-table name file))))
;;; Easy PG mode ;;
;; Easy PG is enabled by default
;; uso: emacs file.gpg
;(require 'epa-file)
;; No GTK popup ma chiedi la password in cline
;; potresti anche settarlo globalmente in gpg conf
;(setenv (concat "GPG_AGENT_INFO" nil))
;; ALTRI EL ;;
;; alcuni sono byte-compiled .elc
;; altri vengono chiamati con load o autoload
;; Boxes (boxes -l per listare tutti i tipi)
(require 'boxes)
(autoload 'boxes-command-on-region "boxes" nil t)
(autoload 'boxes-remove "boxes" nil t)
(autoload 'boxes-create "boxes" nil t)
(global-set-key "\C-cq" 'boxes-create)
(global-set-key "\C-cr" 'boxes-remove)
(global-set-key "\C-cp" 'boxes-command-on-region)
;; figlet
(load "figlet.el")
;; Screenplay mode
;; scene headings; action blocks; dialog blocks
(require 'screenplay)
(add-to-list 'auto-mode-alist '("\\.sp\\'" . screenplay-mode))
(add-to-list 'auto-mode-alist '("\\.screenplay\\'" . screenplay-mode))
;; Fountain
(require 'fountain-mode)
(add-to-list 'auto-mode-alist '("\\.fountain\\'" . screenplay-mode))
(require 'olivetti)
(require 'imenu-list)
; (require 'imenu)
; (require 'cl-lib)
;; Chordpro-mode
(setq auto-mode-alist (cons '("\\.crd$" . chordpro-mode) auto-mode-alist))
(autoload 'chordpro-mode "chordpro-mode")
;; Esportare pagine html
;(require 'htmlize)
;; le bolle col pensierino
;(require 'thinks)
;; u-mandelbrot
;(autoload 'u-mandelbrot "u-mandelbrot" "A simple fractal browser" t)
;; dei bellissimi elenchi
;(require 'gse-number-rect)
;; la sua chiave privata
;(global-set-key "\e\e\n" 'gse-number-rectangle)
;; Attribuire un mode a un file ;;
;; Inserendo questa riga all'inizio del file
;; #-*- mode: markdown -*-
;; o anche
;; #-*- shell-script -*-
;; o anche Nominandolo da qui
(add-to-list 'auto-mode-alist '("\\.screenrc\\'" . shell-script-mode))
(add-to-list 'auto-mode-alist '("\\.nanorc\\'" . shell-script-mode))
(add-to-list 'auto-mode-alist '("\\.bash_alias\\'" . shell-script-mode))
;(global-set-key "\C-cb" 'ispell-buffer)
;(global-set-key "\C-cr" 'ispell-region) no che la usa orgmode
;(global-set-key "\C-cw" 'ispell-word)
;(setq ispell-dictionary "italian")
;(setq sgml-mode-hook
;'(lambda () "Defaut per SGML mode."
;(setq ispell-personal-dictionary "/.ispell_mine")
;(ispell-change-dictionary "italian")
;(autoload 'ispell-word "ispell"
; "Check the spelling of word in buffer." t)
; (global-set-key "\e$" 'ispell-word)
; (autoload 'ispell-region "ispell"
; "Check the spelling of region." t)
; (autoload 'ispell-buffer "ispell"
; "Check the spelling of buffer." t)
; (autoload 'ispell-complete-word "ispell"
; "Look up current word in dictionary and try to complete it." t)
; (autoload 'ispell-change-dictionary "ispell"
; "Change ispell dictionary." t)
; (autoload 'ispell-message "ispell"
; "Check spelling of mail message or news post.")
; (autoload 'ispell-minor-mode "ispell"
; "Toggle mode to automatically spell check words as they are typed in.")
;; Aggiungi queste righe alla fine di un documento
;; per definire la lingua del dizionario
;; <!-- Local IspellDict: english -->
;; <!-- Local IspellPersDict:/emacs/.ispell-english -->
;; Time-Stamps: If a "Time-stamp: <>" exist in the first 10 lines of the file
;; emacs will write time-stamp information there when saving the file.
time-stamp-active t ; do enable time-stamps
time-stamp-line-limit 10 ; check the first 10 lines
time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)")
(add-hook 'write-file-hooks 'time-stamp)
(setq user-full-name "dan")
(setq user-mail-address "dan[at]autistici[dot]org")
;(setq current-language-environment "English")
(defun insert-name-and-email()
(insert (concat user-full-name " <" user-mail-address ">")))
;; F9 inserisce nome e email
(global-set-key [f9] 'insert-name-and-email)
;; F5 chiama il bookmark file
(global-set-key [f5] 'bookmark-bmenu-list)
;; Insert euro symbol € con M-x euro
(fset 'euro
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([24 56 return 35 120 50 48 65 67 return] 0 "%d")) arg)))
;; Inserisci una rosa
(setq rosa-header
"@}-,--- ")
(defun insert-rosa-header ()
"Insert rosa at point."
(let ((mark (point)))
(insert rosa-header)
(comment-region mark (+ mark (length rosa-header)))))
;; Inserisci il kudos
(setq kudos-header
Commenti? Kudos? Consigli? Vaffa? Grazie!
(defun insert-kudos-header ()
"Insert kudos at point."
(let ((mark (point)))
(insert kudos-header)
(comment-region mark (+ mark (length kudos-header)))))
;; KeyBindings personali ;;
;; disattiva una chiave, nell'es: ESC e C-u
;(global-unset-key "\e\C-u")
;; set-justification-full: justifica a destra con spaziatura regolare
;; ESC-ESC-j set-justification-full (right, left, center, none)
(global-set-key "\e\e\j" 'set-justification-full)
;; string-insert-rectangle: add a prefix char all'inizio di ogni riga in region C-x r t
(global-set-key "\e\e\i" 'string-insert-rectangle)
;; close-rectangle: deleta spazi a inizio riga in region
(global-set-key "\e\e\d" 'close-rectangle)
;; kill-rectangle (deleta n char a inizio riga in regione)
;; (evidenzia regione, poi mettiti al n char che vuoi cancellare) C-x r k
(global-set-key "\e\e\k" 'kill-rectangle)
;; per le accentate
;(standard-display-european 1)
;; attivazione all'avvio del mode-accentate. not.
;(add-hook 'text-mode-hook 'iso-accents-mode)
;; toggle accents mode in emacs
;(global-set-key "\e\e\w" 'iso-accents-mode)
;(iso-accents-mode non-nil)
;(iso-accents-mode t)
;(add-hook 'iso-acc 'iso-accents-mode)