SliTaz Repositories

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/emacs/stuff/default.el	Mon Mar 09 23:58:18 2009 +0100
     1.3 @@ -0,0 +1,65 @@
     1.4 +;; SilTaz Emacs site file
     1.5 +;;
     1.6 +;; Last update: 2008-06-28
     1.7 +;;
     1.8 +;; SliTaz receipt files
     1.9 +;; Force emacs in shell-script-mode                                 
    1.10 +(setq auto-mode-alist (cons '("receipt" . shell-script-mode) auto-mode-alist))
    1.11 +
    1.12 +;; LUA programming Language
    1.13 +;; add major-mode for editing Lua scripts                                    
    1.14 +(setq auto-mode-alist (cons '("\\.lua$" . lua-mode) auto-mode-alist))
    1.15 +    (autoload 'lua-mode "lua-mode" "Lua editing mode." t)
    1.16 +
    1.17 +
    1.18 +;; Force emacs to use tabs
    1.19 +;;  From Scott Hurring's HOWTO
    1.20 +;;  Turn on tabs
    1.21 +(setq indent-tabs-mode t)
    1.22 +(setq-default indent-tabs-mode t)
    1.23 +
    1.24 +;;  Bind the TAB key 
    1.25 +(global-set-key (kbd "TAB") 'self-insert-command)
    1.26 +
    1.27 +;;  Set the tab width
    1.28 +(setq default-tab-width 4)
    1.29 +(setq tab-width 4)
    1.30 +(setq c-basic-indent 4)
    1.31 +
    1.32 +
    1.33 +;; Following lines has been grabbed from dot emacs file for Maemo (nokia tablets):
    1.34 +;; christof sietchtabr at gmail                                                                                         
    1.35 +;;                                                                                                             
    1.36 +;; the dired, list-directory, and gzip fixes all come from the                                                 
    1.37 +;; packager of the emacs deb and responses from other maemo community members                                        
    1.38 +;; http://danielsz.freeshell.org/code/mine/emacs-for-maemo/index.shtml                                         
    1.39 +;;                                                                                                             
    1.40 +;; make dired work                                                                                             
    1.41 +;; --dired option is not supported on busybox ls command                                                       
    1.42 +(setq dired-use-ls-dired nil)
    1.43 +
    1.44 +;; make list-directory work                                                                                    
    1.45 +;; -F not supported by busybox ls command                                                                      
    1.46 +(setq list-directory-brief-switches "-C")
    1.47 +
    1.48 +
    1.49 +;; we *REALLY* don't want to spew file backups all over the fs.                                                
    1.50 +;; code to place all backups in one location                                                                   
    1.51 +(when (not (file-directory-p "~/.backup"))
    1.52 +  (make-directory "~/.backup"))
    1.53 +(if (file-directory-p "~/.backup")
    1.54 +    (setq backup-directory-alist '(("." . "~/.backup"))))
    1.55 +
    1.56 +;; custom variable setting to make info work using busybox gzip                                          
    1.57 +
    1.58 +(custom-set-variables
    1.59 +  ;; custom-set-variables was added by Custom.                                                                 
    1.60 +  ;; If you edit it by hand, you could mess it up, so be careful.                                              
    1.61 +  ;; Your init file should contain only one such instance.                                                     
    1.62 +  ;; If there is more than one, they won't work right.                                                         
    1.63 + '(jka-compr-compression-info-list (quote (["\\.Z\\(~\\|\\.~[0-9]+~\\)?\\'" "compressing" "compress" ("-c") "u\
    1.64 +ncompressing" "uncompress" ("-c") nil t "^_\x9d"] ["\\.bz2\\(~\\|\\.~[0-9]+~\\)?\\'" "bzip2ing" "bzip2" nil "b\
    1.65 +unzip2ing" "bzip2" ("-d") nil t "BZh"] ["\\.tbz\\'" "bzip2ing" "bzip2" nil "bunzip2ing" "bzip2" ("-d") nil nil\
    1.66 + "BZh"] ["\\.tgz\\'" "compressing" "gzip" ("-c") "uncompressing" "gzip" ("-c" "-q" "-d") t nil "^_\x8b"] ["\\.\
    1.67 +g?z\\(~\\|\\.~[0-9]+~\\)?\\'" "compressing" "gzip" ("-c") "uncompressing" "gzip" ("-c" "-d") t t "^_\x8b"] ["\\
    1.68 +\.dz\\'" nil nil nil "uncompressing" "gzip" ("-c" "-d") nil t "^_\x8b"]))))