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.
215 lines
6.9 KiB
215 lines
6.9 KiB
(custom-set-variables |
|
;; custom-set-variables was added by Custom. |
|
;; If you edit it by hand, you could mess it up, so be careful. |
|
;; Your init file should contain only one such instance. |
|
;; If there is more than one, they won't work right. |
|
'(TeX-newline-function (quote reindent-then-newline-and-indent)) |
|
'(auto-save-file-name-transforms (quote ((".*" "~/.emacs.d/autosaves/\\1" t)))) |
|
'(backup-directory-alist (quote ((".*" . "~/.emacs.d/backup/")))) |
|
'(case-fold-search t) |
|
'(current-language-environment "English") |
|
'(default-input-method "rfc1345") |
|
'(flyspell-duplicate-distance 0) |
|
'(flyspell-mark-duplications-flag t) |
|
'(font-latex-fontify-sectioning (quote color)) |
|
'(global-font-lock-mode t nil (font-lock)) |
|
'(inhibit-startup-screen t) |
|
'(safe-local-variable-values (quote ((bookmark-default-file . "./emacs.bmk")))) |
|
'(show-paren-mode t) |
|
'(transient-mark-mode t) |
|
'(truncate-partial-width-windows nil)) |
|
|
|
(custom-set-faces |
|
;; custom-set-faces was added by Custom. |
|
;; If you edit it by hand, you could mess it up, so be careful. |
|
;; Your init file should contain only one such instance. |
|
;; If there is more than one, they won't work right. |
|
'(default ((t (:background "DarkSlateGrey" :foreground "Wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 80 :width normal :foundry "xos4" :family "terminus")))) |
|
'(bold ((t (:weight semi-bold)))) |
|
'(cursor ((t (:background "orchid")))) |
|
'(fixed-pitch ((t (:family "Bitstream Vera Sans Mono")))) |
|
'(italic ((((supports :underline t)) nil))) |
|
'(menu ((t (:inverse-video t)))) |
|
'(mouse ((t (:background "orchid")))) |
|
'(tooltip ((t (:inherit default :background "lightyellow" :foreground "black" :foundry "xos4" :family "terminus")))) |
|
'(variable-pitch ((t (:family "default"))))) |
|
|
|
(setq-default display-buffer-reuse-frames t) |
|
|
|
(setq c-basic-offset 4) |
|
(setq indent-tabs-mode nil) |
|
|
|
(setq-default abbrev-mode t) |
|
(read-abbrev-file "~/.abbrev_defs") |
|
(setq save-abbrevs t) |
|
|
|
;; fix compilation window eating up my work window |
|
(setq compilation-scroll-output t |
|
compilation-window-height 12) |
|
|
|
(tool-bar-mode 0) |
|
(scroll-bar-mode -1) |
|
(setq-default show-trailing-whitespace t) |
|
(setq search-whitespace-regexp "[ \t\r\n]+") |
|
(setq flyspell-use-meta-tab nil) |
|
|
|
(setq redisplay-dont-pause t |
|
scroll-margin 1 |
|
scroll-step 1 |
|
scroll-conservatively 10000 |
|
scroll-preserve-screen-position 1) |
|
|
|
(require 'mic-paren) ; loading |
|
(paren-activate) ; activating |
|
|
|
(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp) |
|
(global-set-key (kbd "<backtab>") 'TeX-complete-symbol) |
|
|
|
(setq mouse-autoselect-window nil) |
|
(mouse-wheel-mode t) |
|
(load "auctex.el" nil t t) |
|
(setq TeX-auto-save t |
|
TeX-parse-self t |
|
TeX-insert-braces nil) |
|
(setq-default TeX-master nil) |
|
(setq font-latex-fontify-script nil) |
|
(setq LaTeX-equation-label "e_") |
|
(setq LaTeX-section-label "s_") |
|
(load "~/bibsnarf.el" nil t t) |
|
(require 'reftex) |
|
|
|
;; KDE stuff |
|
;; |
|
|
|
(add-to-list 'load-path "~/kde-emacs") |
|
|
|
(load "qml-mode.el" nil t t); |
|
(require 'kde-emacs) |
|
;;(setq kde-full-name "Jacopo De Simoi") |
|
;;(setq kde-email "wilderkde@gmail.com") |
|
|
|
(setq frame-title-format |
|
'("emacs %S: " (buffer-file-name "%f" |
|
(dired-directory dired-directory "%b")))) |
|
|
|
|
|
;; Put autosave files (ie #foo#) and backup files (ie foo~) in ~/.emacs.d/. |
|
;; create the autosave dir if necessary, since emacs won't. |
|
(make-directory "~/.emacs.d/autosaves/" t) |
|
(make-directory "~/.emacs.d/backup/" t) |
|
|
|
;;(load "skype.el" nil t t) |
|
;; |
|
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill) |
|
(add-hook 'text-mode-hook 'flyspell-mode) |
|
(require 'linum) |
|
(add-hook 'LaTeX-mode-hook 'linum-mode) |
|
;; Let us see how it goes with this. |
|
(add-hook 'LaTeX-mode-hook 'subword-mode) |
|
(add-hook 'LaTeX-mode-hook (lambda () (modify-syntax-entry ?\\ "w" LaTeX-mode-syntax-table))) |
|
|
|
;; this should really be called in the hook |
|
(setq subword-forward-regexp "\\W*\\(\\([\\\\[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)") |
|
(setq subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([\\\\[:upper:]]+\\W*\\)\\|\\W\\w+\\)") |
|
|
|
|
|
(setq default-fill-column 120) |
|
(add-to-list 'load-path "~/tmp") |
|
|
|
(setq mouse-yank-at-point t) |
|
(blink-cursor-mode 0) |
|
(global-hl-line-mode t) |
|
(setq focus-follows-mouse nil) |
|
|
|
(require 'pomodoro) |
|
;; (require 'key-chord) |
|
;; (key-chord-mode 1) |
|
|
|
(global-set-key (kbd "M-[") 'previous-buffer) |
|
(global-set-key (kbd "M-]") 'next-buffer) |
|
|
|
;; kde activity stuff -- move to other file when stabilized |
|
(defun kde-current-activity () |
|
"Returns the current KDE activity" |
|
(substring (shell-command-to-string "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.CurrentActivity") 0 -1) |
|
) |
|
|
|
(defun X-window-id-belongs-to-activity (window-id activity) |
|
(= (shell-command (concat "xprop -id " window-id " | grep _KDE_NET_WM_ACTIVITIES | grep " activity ">/dev/null")) 0) |
|
) |
|
|
|
(defun select-frame-on-activity (activity) |
|
(setq framelist (frame-list)) |
|
(setq done nil) |
|
(while (and framelist (not done)) |
|
(setq cur (car framelist)) |
|
(setq cur-id (cdr (assq 'window-id (frame-parameters cur)))) |
|
(if cur-id (if (X-window-id-belongs-to-activity cur-id activity) (progn; |
|
(setq done 't) (select-frame cur)) )) |
|
(setq framelist (cdr framelist))) |
|
done |
|
) |
|
|
|
(defun select-X-frame () |
|
(setq framelist (frame-list)) |
|
(setq done nil) |
|
(while (and framelist (not done)) |
|
(setq cur (car framelist)) |
|
(setq cur-id (cdr (assq 'window-id (frame-parameters cur)))) |
|
(if cur-id (progn; |
|
(setq done 't) (raise-frame cur))) |
|
(setq framelist (cdr framelist))) |
|
done |
|
) |
|
|
|
(defun select-frame-on-current-activity () |
|
(select-frame-on-activity (kde-current-activity)) |
|
) |
|
|
|
;; stop using the arrow keys |
|
;; mark the date 30/1/2014 |
|
(global-unset-key [left]) |
|
(global-unset-key [up]) |
|
(global-unset-key [right]) |
|
(global-unset-key [down]) |
|
|
|
;;Remove insanely irritating key-binding |
|
(global-unset-key (kbd "C-z")) |
|
|
|
(require 'visible-mark) |
|
(visible-mark-mode t) |
|
(global-visible-mark-mode t) |
|
|
|
(delete 'Git vc-handled-backends) |
|
(require 'magit) |
|
|
|
(require 'iy-go-to-char) |
|
(global-set-key (kbd "M-m") 'iy-go-to-char) |
|
|
|
(defun smart-line-beginning () |
|
"Move point to the beginning of text on the current line; if that is already |
|
the current position of point, then move it to the beginning of the line." |
|
(interactive) |
|
(let ((pt (point))) |
|
(beginning-of-line-text) |
|
(when (eq pt (point)) |
|
(beginning-of-line)))) |
|
(global-set-key (kbd "C-a") 'smart-line-beginning) |
|
|
|
(add-to-list 'load-path "~/tmp/expand-region.el") |
|
(require 'expand-region) |
|
(global-set-key (kbd "C-M-h") 'er/expand-region) |
|
|
|
(defun emacs-session-filename (session-id) |
|
"Construct a filename to save the session in based on SESSION-ID. |
|
If the directory ~/.emacs.d exists, we make a filename in there, otherwise |
|
a file in the home directory." |
|
(let ((basename (concat "sessions/session." session-id)) |
|
(emacs-dir user-emacs-directory)) |
|
(expand-file-name (if (file-directory-p emacs-dir) |
|
(concat emacs-dir basename) |
|
(concat "~/.emacs-" basename))))) |
|
|
|
(setq server-name (kde-current-activity)) |
|
(server-start) |
|
(menu-bar-mode -99)
|
|
|