Když po nějaké věci toužíme nebo o ni usilujeme, obíráme se v duchu jejími dobrými stránkami: jakmile se nám ji dostane, obíráme se jen těmi špatnými.
-- Swift
-- Swift
■ Diskuzní fórum
■ Pískoviště
■ Poslední změny
■ Registrace
■ Etický kodex
■ Nápověda
■ Administrace
■ Hlášení chyb
■ Pískoviště
■ Poslední změny
■ Registrace
■ Etický kodex
■ Nápověda
■ Administrace
■ Hlášení chyb
 |  |
© 1999-2008 HEAT
JSPWiki v2.4.104
| At line 1 changed 1 line. |
| aa |
| {{{ |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; Localization |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| (set-language-environment "Czech") |
| (prefer-coding-system 'utf-8) |
| (setq-default ispell-program-name "aspell") |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; The Calendar and the Diary |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| (setq load-path (cons (concat (getenv "WORK_PATH") "/emacs-lisp/emacs-cs-utils") load-path)) |
| (load "emacs-cs-utils-init") |
| (if (eq window-system 'w32) |
| (setq file-name-coding-system 'cp1250) |
| (set-keyboard-coding-system 'cp1250) |
| (set-selection-coding-system 'cp1250) |
| (set-clipboard-coding-system 'cp1250) |
| (setq w32-system-coding-system 'cp1250) |
| (setq w32-use-w32-font-dialog nil) ; use the standard font dialog |
| ) |
| (if (eq window-system 'x) |
| (progn |
| (setq x-select-enable-clipboard t) |
| (set-selection-coding-system 'utf-8) |
| ) |
| ) |
| ;; standardní ovládání |
| (global-set-key [insertchar] 'overwrite-mode) |
| (global-set-key [delete] 'delete-char) |
| (global-set-key [home] 'beginning-of-line) |
| (global-set-key [end] 'end-of-line) |
| (global-set-key [prior] 'scroll-down) |
| (global-set-key [next] 'scroll-up) |
| (global-set-key [C-prior] 'beginning-of-buffer) |
| (global-set-key [C-next] 'end-of-buffer) |
| (global-set-key [backspace] 'delete-backward-char) |
| (global-set-key (kbd "C--") 'undo) |
| (global-set-key "\C-cg" 'goto-line) |
| (global-set-key [kp-delete] 'delete-char) |
| ;; prohodí Enter (RET) a C-j -> Emacs pak po stisku Enteru odsazuje. |
| (global-set-key "\r" 'newline-and-indent) |
| (global-set-key "\C-j" 'newline) |
| (show-paren-mode t) ;; any matching parenthesis is highlighted |
| (setq make-backup-files nil) ;; Nemám rád adresáre zaplnené soubory s vlnkou. Stací mi bohate autosave. |
| (setq vc-cvs-stay-local nil) |
| (auto-compression-mode t) ;; Automatic opening of zipped files. |
| (setq visible-bell t) ;; Turn off the bell |
| (setq inhibit-startup-message t) ;; Dont show the GNU splash screen |
| (setq scroll-step 1 ;; FAQ 67: Only scroll one line when moving past screen |
| scroll-conservatively 10000) |
| ;; Recursive deletes and copies are allowed without asking. This is DANGEROUS! |
| (setq dired-recursive-deletes 'always |
| dired-recursive-copies 'always) |
| (if (fboundp 'menu-bar-mode) (menu-bar-mode -1)) |
| (if (fboundp 'tool-bar-mode) (tool-bar-mode -1)) |
| (setq next-line-add-newlines nil) |
| (fset 'yes-or-no-p 'y-or-n-p) ;; Make all "yes or no" prompts show "y or n" instead |
| (setq confirm-kill-emacs 'y-or-n-p) |
| (setq default-frame-alist ; spolecne nastaveni |
| (append (list '(foreground-color . "Wheat") |
| '(background-color . "DarkSlateGray") |
| '(border-color . "Orchid") |
| '(mouse-color . "Orchid") |
| '(cursor-color . "Orchid") |
| '(cursor-type . box) |
| '(vertical-scroll-bars . right) ;; scrollbar vpravo |
| ) |
| default-frame-alist) |
| ) |
| (cond |
| ((eq window-system 'x) |
| (setq default-frame-alist |
| (append default-frame-alist |
| (list '(width . 108) '(height . 49) '(top . 0) '(left . 0) |
| '(font . "-ADBE-Source Code Pro-normal-normal-normal-*-14-*-*-*-m-0-iso10646-1") |
| )))) |
| ((eq window-system 'w32) |
| (setq default-frame-alist |
| (append default-frame-alist |
| (list '(width . 134) '(height . 46) '(top . 1) '(left . 3) |
| '(font . "-outline-Source Code Pro-normal-normal-normal-mono-15-*-*-*-c-*-iso8859-1") |
| )))) |
| ) |
| (custom-set-faces |
| ;; ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! |
| ;; ;; Your init file should contain only one such instance. |
| '(default ((t (:foreground "Wheat" :background "DarkSlateGray")))) |
| '(fringe ((t (:foreground "Wheat" :background "DarkSlateGray")))) |
| '(modeline ((t (:foreground "DarkSlateGray" :background "Wheat")))) |
| ) |
| (setq-default line-number-mode t ;; show line number |
| column-number-mode t) ;; show column number |
| (setq line-number-display-limit 1000000) |
| (transient-mark-mode t) ;; highlight selected regions |
| (when window-system ;; barevné odlisení syntaxe |
| (global-font-lock-mode t) |
| (setq font-lock-maximum-decoration t) |
| (setq-default font-lock-maximum-size nil) ;; Maximum size of a buffer for buffer fontification. |
| (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock) |
| (remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)) |
| ;; font-lock-support-mode 'fast-lock-mode)) |
| ;(iswitchb-mode) ;; enables switching between buffers using substrings. |
| ;(setq iswitchb-buffer-ignore '("^ " "*scratch*" "*Completions*" "*Help*")) |
| ;; The following commands are usually disabled by default. Enable |
| ;; them... |
| (put 'eval-expression 'disabled nil) |
| (put 'downcase-region 'disabled nil) ; C-x C-l |
| (put 'upcase-region 'disabled nil) ; C-x C-u |
| (put 'narrow-to-page 'disabled nil) ; C-x n p |
| (put 'narrow-to-region 'disabled nil) ; C-x n n ... (widen) C-x n w |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; klavesove zkratky k souborum |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| (set-register ?e (cons 'file (concat (getenv "WORK_PATH") "/emacs-lisp/.emacs.el"))) |
| ;; (set-register ?c '(file . "~/emacs-lisp/data/cstex.bz2")) |
| (set-register ?b (cons 'file (concat (getenv "WORK_PATH") "/Osobni/bookmark.html"))) |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; local tools |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; convert a buffer from dos ^M end of lines to unix end of lines |
| (defun dos2unix () |
| (interactive) |
| (goto-char (point-min)) |
| (while (search-forward "\r" nil t) (replace-match ""))) |
| ;; and vice versa |
| (defun unix2dos () |
| (interactive) |
| (goto-char (point-min)) |
| (while (search-forward "\n" nil t) (replace-match "\r\n"))) |
| (defun count-words-buffer () |
| "Count the number of words in current the buffer; |
| print a message in the minibuffer with the result." |
| (interactive) |
| (save-excursion |
| (let ((count 0)) |
| (goto-char (point-min)) |
| (while (< (point) (point-max)) |
| (forward-word 1) |
| (setq count (1+ count))) |
| (message "buffer contains %d words." count)))) |
| ;; compute the length of the marked region |
| (defun region-length () |
| "Count the length of the marked region" |
| (interactive) |
| (message (format "%d" (- (region-end) (region-beginning))))) |
| ;; Select everything |
| (defun select-all () |
| (interactive) |
| (set-mark (point-min)) |
| (goto-char (point-max))) |
| (defun insert-date () |
| "Insert date at point." |
| (interactive) |
| (insert (format-time-string "%a %b %e, %Y %l:%M %p"))) |
| ;; hodiny |
| (when window-system |
| (setq display-time-string-forms |
| '(dayname " " day "." month ".(" monthname ") " year |
| " " 24-hours ":" minutes ":" seconds (if mail " *Mail*"))) |
| (setq-default mode-line-modified '("%1*%1+")) |
| (setq-default mode-line-buffer-identification '("%24b")) |
| (setq-default mode-line-format |
| '("-" mode-line-mule-info mode-line-modified |
| mode-line-frame-identification |
| mode-line-buffer-identification |
| (-4 . " %p ") |
| (6 . (line-number-mode " %l")) |
| (column-number-mode "C%c ") |
| " %[(" mode-name mode-line-process |
| minor-mode-alist "%n" ")%] ")) |
| (setq-default frame-title-format '("GNU Emacs " emacs-version " " global-mode-string)) |
| (setq-default icon-title-format '("" "%b")) |
| (display-time)) |
| ;; fix localization bug |
| (if (eq window-system 'w32) |
| (setq dired-move-to-filename-regexp |
| (let* ((lc "\\(I\\|II\\|III\\|IV\\|V\\|VI\\|VII\\|VIII\\|IX\\|X\\|XI\\|XII\\)") |
| (le "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)") |
| (s " ") |
| (yyyy "[0-9][0-9][0-9][0-9]") |
| (dd "[ 0-3][0-9]") |
| (mm "[0-1][0-9]") |
| (HH:MM "[ 0-2][0-9]:[0-5][0-9]") |
| (l "[A-Za-z\xa0-\xff]") |
| ; (czech (concat "\\(" lc "\\|" le "\\)" s dd s "\\(" HH:MM "\\|" s yyyy "\\)"))) |
| (czech (concat dd "." mm "." yyyy s "\\(" HH:MM "\\|" s yyyy "\\)")) |
| (western (concat l l l s dd s "\\(" HH:MM "\\|" s yyyy "\\)")) |
| ; (ftp (concat )) |
| ) |
| (concat s "\\(" czech "\\|" western "\\)" s))) |
| ) |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; Packages |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| (setq load-path (cons (concat (getenv "WORK_PATH") "/emacs-lisp/various") load-path)) |
| (require 'ascii-table) |
| (require 'eperiodic) |
| (require 'setnu) |
| (setq setnu-line-number-format "%4d ") |
| (require 'visual-basic-mode) |
| (setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" . visual-basic-mode)) auto-mode-alist)) |
| (setq bookmark-file (concat (getenv "WORK_PATH") "/emacs-lisp/bookmark.bmk")) |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; Dictionary |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; (custom-set-variables |
| ;; ; '(dictionary-coding-systems-for-dictionaries (quote (("mueller" . koi8-r) ("ancz" . cp1250) ("czan" . iso-8859-2)))) |
| ;; '(dictionary-server "localhost") |
| ;; '(dictionary-port 2628) |
| ;; ) |
| ;; (add-to-list 'load-path "~/emacs-lisp/dictionary") |
| ;; (load "dictionary-init") |
| ;; (global-set-key "\C-cn" 'dictionary-search) |
| ;; (global-set-key "\C-cm" 'dictionary-match-words) |
| ;; ;; global dictionary-mode |
| ;; ;(global-dictionary-tooltip-mode) |
| ;; ;; activate for all text-based modes |
| ;; ;(add-hook 'text-mode-hook 'dictionary-tooltip-mode) |
| ;; (defun StartDictionaryDaemon () |
| ;; "Starts Dictionary Server (RFC 2229)" |
| ;; (interactive) |
| ;; (start-process "jdictd-cs" "*Messages*" "~/emacs-lisp/dictd/jdictd-cs.bat")) |
| ;; (defun StopDictionaryDaemon () |
| ;; "Stops Dictionary Server (RFC 2229)" |
| ;; (interactive) |
| ;; (kill-process "jdictd-cs")) |
| ;; (global-set-key "\C-cd" 'StartDictionaryDaemon) |
| ;; (global-set-key "\C-ckd" 'StopDictionaryDaemon) |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; Run Windows application associated with a file. |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| (cond |
| ((eq window-system `w32) ; Win32 |
| (require 'w32-browser) |
| (defun explorer-dired () |
| (interactive) |
| (let ((file-name (dired-get-file-for-visit))) |
| (if (file-exists-p file-name) |
| (w32-shell-execute "open" file-name nil 1)))) |
| ;;; map the "j" key within dired to launch the associated app |
| (eval-after-load "dired" |
| '(define-key dired-mode-map "j" 'explorer-dired) |
| ) |
| ) |
| ) |
| ;;;;;;;;;;;;;;;;;;;; |
| ;; (require 'find-this-file) |
| ;;;;;;;;;;;;;;;;;;;; |
| ;; (load-file "~/emacs-lisp/various/abook.el") |
| (defun maximize-frame (&optional frame) |
| "Maximize the selected FRAME." |
| (interactive) |
| (or frame |
| (setq frame (selected-frame))) |
| (let ((pixels-per-col (/ (float (frame-pixel-width)) |
| (frame-width))) |
| (pixels-per-row (/ (float |
| (frame-pixel-height)) (frame-height)))) |
| (set-frame-size frame |
| ;; truncate or round? |
| (truncate (/ |
| (x-display-pixel-width) pixels-per-col)) |
| ;; reduce size to account for the toolbar |
| (- (truncate (/ |
| (x-display-pixel-height) pixels-per-row)) 1)) |
| (set-frame-position frame 0 0))) |
| (global-set-key [f11] 'maximize-frame) |
| (add-hook 'dired-mode-hook |
| '(lambda () |
| (local-set-key [C-up] 'dired-up-directory) |
| )) |
| (global-set-key [(control x) (k)] 'kill-current-buffer) |
| (autoload 'pov-mode "pov-mode" "PoVray scene file mode" t) |
| (add-to-list 'auto-mode-alist '("\\.pov\\'" . pov-mode)) |
| (add-to-list 'auto-mode-alist '("\\.inc\\'" . pov-mode)) |
| (add-hook 'pov-mode-hook |
| (lambda() |
| (local-set-key (kbd "C-M-/") 'pov-complete-word) |
| ) |
| ) |
| (add-to-list 'load-path "/usr/share/emacs/site-lisp/") |
| (autoload 'maxima-mode "maxima" "Maxima mode" t) |
| (autoload 'imaxima "imaxima" "Frontend for maxima with Image support" t) |
| (autoload 'maxima "maxima" "Maxima interaction" t) |
| (autoload 'imath-mode "imath" "Imath mode for math formula input" t) |
| (setq imaxima-use-maxima-mode-flag t) |
| (add-to-list 'auto-mode-alist '("\\.ma[cx]" . maxima-mode)) |
| (add-to-list 'auto-mode-alist '("\\.wxm" . maxima-mode)) |
| (add-hook 'maxima-mode-hook |
| (lambda() |
| (local-set-key (kbd "C-M-/") 'maxima-complete) |
| ) |
| ) |
| ;; PL/SQL mode |
| (require 'plsql) |
| (setq auto-mode-alist |
| (append '(("\\.pls\\'" . plsql-mode) ("\\.pkg\\'" . plsql-mode) |
| ("\\.pks\\'" . plsql-mode) ("\\.pkb\\'" . plsql-mode) |
| ("\\.sql\\'" . plsql-mode) ("\\.PLS\\'" . plsql-mode) |
| ("\\.PKG\\'" . plsql-mode) ("\\.PKS\\'" . plsql-mode) |
| ("\\.PKB\\'" . plsql-mode) ("\\.SQL\\'" . plsql-mode) |
| ("\\.prc\\'" . plsql-mode) ("\\.fnc\\'" . plsql-mode) |
| ("\\.trg\\'" . plsql-mode) ("\\.vw\\'" . plsql-mode) |
| ("\\.PRC\\'" . plsql-mode) ("\\.FNC\\'" . plsql-mode) |
| ("\\.TRG\\'" . plsql-mode) ("\\.VW\\'" . plsql-mode)) |
| auto-mode-alist )) |
| (require 'groovy-mode) |
| (add-to-list 'auto-mode-alist '("\\.groovy$" . groovy-mode)) |
| ;; Melpa |
| (require 'package) |
| (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) |
| ;; CNTLM tunnel |
| (setq url-proxy-services |
| '(("http" . "127.0.0.1:3128") |
| ("https" . "127.0.0.1:3128"))) |
| ;; PlantUML mode for Emacs |
| (require 'plantuml-mode) |
| (setq plantuml-jar-path "/home/jirka/apps/PlantUML/plantuml.jar") |
| (setq plantuml-default-exec-mode 'jar) |
| (add-to-list 'auto-mode-alist '("\\.uml\\'" . plantuml-mode)) |
| ;; package-install |
| ;; groovy-mode, pov-mode, graphviz-dot-mode, w32-browser, plantuml-mode, confluence |
| }}} |
View page
Více informací...
Přihlášení
Tato strana (revision-2) byla změněna
07:08 05.06.2026
uživatelem xkrumpha.