Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

+.gitignore; +modes; modif init.el

  • Loading branch information...
commit 20f64750d7303e4d677f5687fd73e307aa03bfcc 1 parent 13a3648
Gabriano authored
4 .gitignore
... ... @@ -0,0 +1,4 @@
  1 +auto-save-list
  2 +tramp
  3 +*~
  4 +
68 init.el
@@ -14,8 +14,29 @@
14 14 (add-hook 'scheme-mode-hook (function gambit-mode))
15 15 (setq scheme-program-name "gsi -:t")
16 16
17   -;; ambit scheme
18   -;;(require 'gambit)
  17 +;; gambit scheme
  18 +(require 'gambit)
  19 +
  20 +;; Py
  21 +(add-hook 'python-mode-hook
  22 + (lambda ()
  23 + (setq indent-tabs-mode t)
  24 + (setq tab-width 4)
  25 + (setq python-indent 4)))
  26 +
  27 +(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t)
  28 +(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t)
  29 +(autoload 'mercury-mode "prolog" "Major mode for editing Mercury programs." t)
  30 +(setq prolog-system 'swi)
  31 +(setq auto-mode-alist (append '(("\\.pl$" . prolog-mode)
  32 + ("\\.m$" . mercury-mode))
  33 + auto-mode-alist))
  34 +(require 'prolog)
  35 +
  36 +;; markdown
  37 +(autoload 'markdown-mode "markdown-mode/markdown-mode.el" "Major mode for editing Markdown files" t)
  38 +(setq auto-mode-alist (cons '("\\.md" . markdown-mode) auto-mode-alist))
  39 +
19 40
20 41 ;; Emacs server
21 42 (server-start)
@@ -35,7 +56,11 @@
35 56 ;; Syntax highlighting
36 57 (global-font-lock-mode 1)
37 58
  59 +;; Cursor color
  60 +(set-cursor-color "Black")
  61 +
38 62 ;; General settings
  63 +;; http://homepages.inf.ed.ac.uk/s0243221/emacs/
39 64 (setq user-full-name "Eric Thivierge"
40 65 user-mail-address "thiveri@gmail.com"
41 66 inhibit-startup-message t
@@ -52,13 +77,25 @@
52 77 echo-keystrokes 0.1
53 78 x-select-enable-clipboard t
54 79 custom-unlispify-tag-names nil
55   - ring-bell-function '(lambda ()))
  80 + ring-bell-function '(lambda ())
  81 + mouse-wheel-mode t
  82 + make-backup-files t
  83 + version-control t
  84 + backup-directory-alist (quote ((".*" . "~/.emacs_backups/"))))
56 85
57 86 (setenv "EDITOR" "emacsclient")
58 87
  88 +(add-to-list 'load-path "/opt/local/share/emacs/site-lisp/color-theme-6.6.0")
  89 +(require 'color-theme)
  90 +(eval-after-load "color-theme"
  91 + '(progn
  92 + (color-theme-initialize)
  93 + (color-theme-hober)))
  94 +
59 95 ;; Indentation is 4 spaces.
60 96 (setq-default indent-tabs-mode nil)
61 97 (setq-default tab-width 4)
  98 +(setq-default c-basic-offset 4)
62 99
63 100 ;; Display line, column and time (24h format)
64 101 (line-number-mode t)
@@ -72,7 +109,13 @@
72 109 ;; Scheme
73 110 (setq scheme-program-name "gsi")
74 111
75   -;; My custom keybindings
  112 +;; My macros
  113 +
  114 +;; Insert java "System.out.println("");" and move in the quotes
  115 +(fset 'sop
  116 + [?S ?y ?s ?t ?e ?m ?. ?o ?u ?t ?. ?p ?r ?i ?n ?t ?l ?n ?\( ?\" ?\" ?\) ?\; left left left])
  117 +
  118 +; My custom keybindings
76 119
77 120 (global-set-key (kbd "<home>") 'beginning-of-line)
78 121 (global-set-key (kbd "<end>") 'end-of-line)
@@ -90,7 +133,7 @@
90 133 (global-set-key (kbd "C-z") 'undo)
91 134 (global-set-key (kbd "C-x m") '(lambda ()
92 135 (interactive)
93   - (if (buffer-exists "*ansi-term*")
  136 + (if (get-buffer "*ansi-term*")
94 137 (switch-to-buffer-other-window "*ansi-term*")
95 138 (ansi-term (getenv "SHELL")))))
96 139 (global-set-key (kbd "C-x C-b") 'ibuffer)
@@ -127,3 +170,18 @@
127 170 (load
128 171 (expand-file-name "~/.emacs.d/elpa/package.el"))
129 172 (package-initialize))
  173 +(custom-set-variables
  174 + ;; custom-set-variables was added by Custom.
  175 + ;; If you edit it by hand, you could mess it up, so be careful.
  176 + ;; Your init file should contain only one such instance.
  177 + ;; If there is more than one, they won't work right.
  178 + '(column-number-mode t)
  179 + '(display-time-mode t)
  180 + '(show-paren-mode t)
  181 + '(tool-bar-mode nil))
  182 +(custom-set-faces
  183 + ;; custom-set-faces was added by Custom.
  184 + ;; If you edit it by hand, you could mess it up, so be careful.
  185 + ;; Your init file should contain only one such instance.
  186 + ;; If there is more than one, they won't work right.
  187 + )
129 init.el~
... ... @@ -1,129 +0,0 @@
1   -;; Load paths
2   -(defvar *emacs-dir* (file-name-as-directory "~/.emacs.d"))
3   -
4   -(add-to-list 'load-path *emacs-dir*)
5   -(add-to-list 'load-path "~/.emacs.d/site-lisp")
6   -(let ((paths '("site-lisp"
7   - "elpa")))
8   - (dolist (path paths)
9   - (add-to-list 'load-path (concat *emacs-dir* path))))
10   -
11   -;; (autoload 'gambit-inferior-mode "gambit" "Hook Gambit mode into cmuscheme.")
12   -;; (autoload 'gambit-mode "gambit" "Hook Gambit mode into scheme.")
13   -;; (add-hook 'inferior-scheme-mode-hook (function gambit-inferior-mode))
14   -;; (add-hook 'scheme-mode-hook (function gambit-mode))
15   -;; (setq scheme-program-name "gsi -:t")
16   -
17   -;; ambit scheme
18   -;;(require 'gambit)
19   -
20   -;; Emacs server
21   -(server-start)
22   -
23   -;; Load ELPA
24   -(require 'package)
25   -(package-initialize)
26   -
27   -;; Enable mouse wheel
28   -(mouse-wheel-mode 1)
29   -
30   -;; UTF-8
31   -;(set-terminal-coding-system 'utf-8)
32   -;(set-keyboard-coding-system 'utf-8)
33   -(prefer-coding-system 'utf-8)
34   -
35   -;; Syntax highlighting
36   -(global-font-lock-mode 1)
37   -
38   -;; General settings
39   -(setq user-full-name "Eric Thivierge"
40   - user-mail-address "thiveri@gmail.com"
41   - inhibit-startup-message t
42   - initial-scratch-message nil
43   - default-major-mode 'fundamental-mode
44   - truncate-partial-width-windows t
45   - next-line-add-newlines nil
46   - scroll-step 1
47   - scroll-conservatively 1
48   - font-lock-maximum-decoration t
49   - require-final-newline t
50   - truncate-partial-width-windows nil
51   - shift-select-mode nil
52   - echo-keystrokes 0.1
53   - x-select-enable-clipboard t
54   - custom-unlispify-tag-names nil
55   - ring-bell-function '(lambda ()))
56   -
57   -(setenv "EDITOR" "emacsclient")
58   -
59   -;; Indentation is 4 spaces.
60   -(setq-default indent-tabs-mode nil)
61   -(setq-default tab-width 4)
62   -
63   -;; Display line, column and time (24h format)
64   -(line-number-mode t)
65   -(column-number-mode t)
66   -(display-time)
67   -(setq display-time-24hr-format t)
68   -
69   -;; Show paren matches
70   -(show-paren-mode t)
71   -
72   -;; Scheme
73   -(setq scheme-program-name "gsi")
74   -
75   -;; My custom keybindings
76   -
77   -(global-set-key (kbd "<home>") 'beginning-of-line)
78   -(global-set-key (kbd "<end>") 'end-of-line)
79   -(global-set-key (kbd "<del>") 'delete-char)
80   -(global-set-key (kbd "C-m") 'newline-and-indent)
81   -(global-set-key (kbd "M-g") 'goto-line)
82   -(global-set-key (kbd "C-s") 'isearch-forward-regexp)
83   -(global-set-key (kbd "C-r") 'isearch-backward-regexp)
84   -(global-set-key (kbd "C-M-s") 'isearch-forward)
85   -(global-set-key (kbd "C-M-r") 'isearch-backward)
86   -;;(global-set-key (kbd "M-#") 'dabbrev-expand)
87   -(global-set-key (kbd "M-#") 'hippie-expand)
88   -(global-set-key (kbd "C-x C-x") 'other-window)
89   -(global-set-key (kbd "C-x C-o") 'exchange-point-and-mark)
90   -(global-set-key (kbd "C-z") 'undo)
91   -(global-set-key (kbd "C-x m") '(lambda ()
92   - (interactive)
93   - (if (buffer-exists "*ansi-term*")
94   - (switch-to-buffer-other-window "*ansi-term*")
95   - (ansi-term (getenv "SHELL")))))
96   -(global-set-key (kbd "C-x C-b") 'ibuffer)
97   -(global-set-key (kbd "C-x y") 'bury-buffer)
98   -(global-set-key (kbd "C-o") ; Works like O in vi
99   - '(lambda ()
100   - (interactive)
101   - (beginning-of-line)
102   - (open-line 1)
103   - (indent-according-to-mode)))
104   -
105   -(global-set-key (kbd "C-x C-j")
106   - '(lambda ()
107   - (interactive)
108   - (join-line 1)))
109   -
110   -(global-set-key (kbd "C-x t")
111   - '(lambda ()
112   - (interactive)
113   - (find-file *todo-file*)))
114   -
115   -
116   -(provide 'keybindings)
117   -
118   -
119   -(setq-default fill-column 78)
120   -
121   -;;; This was installed by package-install.el.
122   -;;; This provides support for the package system and
123   -;;; interfacing with ELPA, the package archive.
124   -;;; Move this code earlier if you want to reference
125   -;;; packages in your .emacs.
126   -(when
127   - (load
128   - (expand-file-name "~/.emacs.d/elpa/package.el"))
129   - (package-initialize))
1  site-lisp/markdown-mode
... ... @@ -0,0 +1 @@
  1 +Subproject commit c3f86536a33ae30263cb7dccd049758939e45082
4,125 site-lisp/prolog.el
4,125 additions, 0 deletions not shown
4,682 site-lisp/quack.el
4,682 additions, 0 deletions not shown

0 comments on commit 20f6475

Please sign in to comment.
Something went wrong with that request. Please try again.