(global-set-key (kbd "<home>") (lambda () "Smart Home" (interactive) (if (equal (point) (line-beginning-position)) (progn (previous-line) (skip-chars-forward "[:space:]")) (beginning-of-line)))) (global-set-key (kbd "<end> ") (lambda () "Smart End" (interactive) (if (equal (point) (line-end-position)) (progn (next-line) (end-of-line)) (end-of-line))))
(defun expand-selection ()
"Expand selection of semantic unit. v.0.2"
(interactive)
(unhighlight-regexp t) ;; убираем всю предыдущую посветку
(let ((chrs "a-zA-Z0-9а-яА-Я-_%:~\.\/\*\?\&")
(endc (string (char-after (region-end)))) p1 p2)
(if (region-active-p)
(setq chrs (concat chrs "\s\"")))
(skip-chars-backward chrs)
(setq p1 (point))
(skip-chars-forward chrs)
(setq p2 (point))
(kill-ring-save p1 p2)
(highlight-regexp (buffer-substring-no-properties p1 p2))))
Алгоритм следующий:
#!/bin/sh
if xdotool getwindowfocus getwindowname | grep -q emacs
then
emacsclient -e '(lang-switch)'
else
xkb-switch -n
fi
(defun lang-switch ()
""
(interactive)
(with-current-buffer (window-buffer (selected-window)) ;; emacsclient!!
(toggle-input-method)))
(defun org-open-html (lnk)
"Open local html-file offline OR open link in Eww (fix eww hangup)."
(if (file-exists-p lnk)
(find-file lnk) ;; Странный фикс однако!
(if (yes-or-no-p "Not local file! Browse with EWW?")
(eww-browse-url lnk))))
Коммент: у меня при открытии html-файла Emacs автоматически переключается в html-mode и корректно отображает страницу, а может это у всех так, легко нагуглить впрочем.
(require 'pdf-tools)
(add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
Но! с моей ступенчатой (последовательной) загрузкой конфигурационных файлов так не работает. А работает только так:
(run-at-time 3 nil (lambda ()
(require 'pdf-tools)
(add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))))
Разбираться честно говоря лень.
# | Псевдоним | Имя | Включён | Обновление ---+--------------------+------------------------------+---------+----------- 1 | debug | openSUSE-13.1-Debug | Нет | Нет 2 | editors | editors | Да | Да 3 | gnome-new | GNOME:STABLE:3.12 | Да | Да 4 | nvidia | nVidia Graphics Drivers | Да | Да 5 | openSUSE-13.1-1.10 | openSUSE-13.1-1.10 | Нет | Нет 6 | oss | openSUSE-13.1-Oss | Да | Да 7 | packman-e | packman-essentials | Да | Нет 8 | packman-m | packman-multimedia | Да | Нет 9 | repo-non-oss | openSUSE-13.1-Non-Oss | Да | Да 10 | update | openSUSE-13.1-Update | Да | Да 11 | update-debug | openSUSE-13.1-Update-Debug | Нет | Нет 12 | update-n.oss | openSUSE-13.1-Update-Non-Oss | Да | Да 13 | x11-utils | X11:utilites | Нет | Нет 14 | x11-xfce | X11:xfce | Да | ДаВ "экстремальных" для обычного пользователя случаях (все же привыкли к Ясту) ему придется иметь дело именно с zypper, да и в сложный случаях так быстрее. Поэтому для быстрого доступа к конкретному репо неплохо бы присвоить ему короткое имя - алиас. Это легко сделать такой командой:
(global-set-key (kbd "<escape>") (lambda ()
(interactive)
(keyboard-escape-quit)
(rkill-buffers wf-buffers-group1)))
Клавиша Esc в первую очередь выполняет стандартную функцию отмены действия. Лично я вообще не сторонник заучивания каких-либо клавиш по умолчанию, особенно не совпадающих в разных приложениях (в Emacs это Ctrl+G, а не Esc, в Firefox- Ctrl+T вместо Ctrl+N, и так далее), и исключений обычно не делаю.(defadvice undefined (around undefined-advice activate)
(shell-command "xdotool key ISO_Next_Group")
(message "Ru > En switched, try again!"))
чтобы в таком случае автоматически переключалась раскладка, в данном примере это сделано с помощью xdotool.(defun mylispcode-search ()
"Search string in Emacs *.el files"
(interactive)
(let ((q (read-string " > ")) (f "~/*.org ~/.emacs ~/.emacs.d/*.el"))
(message (shell-command-to-string (concat "grep -h -A 1 -B 1 " q " " f)))))
(defun mylispcode-search ()
"Search string in Emacs *.el files"
(interactive)
(let ( (lf (directory-files "~/.emacs.d/misc_settings/" t nil nil)) f)
(setq lf (cddr lf)) ;; remove "." and ".." links from list
(add-to-list 'lf "~/.emacs")
(generate-new-buffer "*SEARCH")
(with-current-buffer "*SEARCH"
(lisp-mode)
(dolist (f lf)
(insert (concat "\n [" (format "%s" f) "] \n\n"))
(insert-file-contents f)
(goto-char (point-max))))
(switch-to-buffer "*SEARCH")
(goto-char (point-min))
(re-search-forward (read-string ">> ") nil t)))
(defvar wf-buffers-group1 "\\*\\(?:Help\\|Messages\\|scratch\\|Occur\\)\\*") (global-set-key (kbd "C-b") (lambda() "List buffers" (interactive) (rkill-buffers wf-buffers-group1) (buffer-menu) (isearch-forward) ;; чтобы не жать Enter дважды (execute-kbd-macro (kbd "RET")) (rkill-buffers "\\*Buffer.List\\*") ))Переключение к списку всех нужных буферов по привычной для меня комбинации Ctrl+B, после нажатия которой достаточно начать набирать имя требуемого буфера, а потом нажать Enter или Esc, или еще какую-нибудь клавишу. Или просто тупо кликнуть мышкой ;)
(require 'cl)
(defun rkill-buffers (rexp)
"Закрыть совпадающие буферы МОЛЧА"
(flet ((kill-buffer-ask (buffer) (kill-buffer buffer)))
(kill-matching-buffers rexp)))
(defun switch-to-previous-buffer () (interactive) (switch-to-buffer (other-buffer (current-buffer) 1)))
#!/usr/bin/env python
import gnomekeyring
import getpass
gnomekeyring.unlock_sync(None, getpass.getpass('Password: '));
(require 'secrets) (message "") (sleep-for 1) (message "Unlock login keyring") (secrets-list-items "login")и при запуске Emacs запросит пароль к указанной связке ключей, и тем самым разблокирует ее [в случае ввода верного пароля конечно].
PointerOnDesktop() {
eval $(xdotool getmouselocation --shell) # Get X=, Y=, WINDOW=
WI="$(xdotool getwindowname $WINDOW)"
if [ "$WI" = "Рабочий стол" ]
then return 0
else return 1
fi
}
Причем в данном случае неважно, активно окно или нет, проверяются лишь координаты указателя мыши. В случае xfdesktop это упрощает жизнь, так как при перемещении курсора с окна на рабочий стол окно по-прежнему остается активным, если только пользователь не кликнул по десктопу.
(dolist (file (directory-files "~/.emacs.d/misc_settings/" 'absolute ".*\.el$")) (load-file file))
(defun load-cfg-files ()
(interactive)
(let ((files (directory-files "~/.emacs.d/misc_settings" t "\.el$")) (main "~/.emacs"))
(add-to-list 'files main)
(while (get-file-buffer (car files))
(setq files (cdr files)))
(find-file (car files))))
mousewheel.acceleration.factor 50 mousewheel.default.delta_multiplier_y 300 browser.urlbar.trimURLs
.noscript-bottom-notify {
opacity: 0.7 !important;
position: fixed;
bottom: 0;
}
echo -e '\nИндексированный массив'
declare -a arrayI
arrayI[1]=/path/to/file1
arrayI[2]=/path/to/file2
#
echo keys: ${!arrayI[@]}
echo values: ${arrayI[@]}
echo -e '\nАссоциативный массив'
declare -A arrayA
arrayA[one]=/path/to/file1
arrayA[two]=/path/to/file2
#
echo keys: ${!arrayA[@]}
echo values: "${arrayA[@]}"
(cua-mode t)Включает копипаст стандартными комбинациями клавиш Ctrl+c, Ctrl+v и Ctrl+x
(ido-mode t)Режим открытия/поиска файлов без диалогового окна, сразу в минибуфере - причем так оказалось гораздо удобнее.
(require 'dired-details) (dired-details-install)
(defun dired-show-only (regexp) (revert-buffer) (interactive "sFiles to show (regexp): ") (dired-mark-files-regexp regexp) (dired-toggle-marks) (dired-do-kill-lines))и соответственно быструю клавишу "/" для него, которая будет активна только в dired-mode:
(add-hook 'dired-mode-hook
(lambda () (local-set-key (kbd "/") #'dired-show-only)))
Ну вот теперь у нас все Ок.
body {
font-size: 15px !important;
font-family: "Droid Sans";
}
#mapdiv {
display: none !important;
}
Короче, низачет! Почему бы тогда не юзать например QuiteRSS? А не хочу, там разработчики тоже с придурью, выяснил при общении с ними.
sleep 4
ipager -c ~/tools/pager/1.conf &
sleep 1
S=/tmp/root.png
import -window root $S
convert $S -format '%[pixel:p{1360,730}]' info:- | grep black && (killall ipager
sleep 1
ipager -c ~/tools/pager/1.conf &
)
exit 0
keys['f7'] = function() -- sh select var buffer.search_anchor() buffer.search_next(buffer, buffer.FIND_REGEXP,'$[0-9a-zA-Z_]+') end
Следующие Предыдущие Главная страница
