Skip to content

Instantly share code, notes, and snippets.

@amirouche

amirouche/.emacs

Created April 24, 2020 08:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save amirouche/98c0ab0ac9db93b73f9f6fcbeba2b5ca to your computer and use it in GitHub Desktop.
Save amirouche/98c0ab0ac9db93b73f9f6fcbeba2b5ca to your computer and use it in GitHub Desktop.
Download ZIP
Raw
.emacs
(require 'package)
(add-to-list
'package-archives
'("melpa" . "http://melpa.org/packages/") t)
(add-to-list
'package-archives
'("elpy" . "http://jorgenschaefer.github.io/packages/"))
(add-to-list 'package-archives
'("melpa-stable" . "https://stable.melpa.org/packages/"))
(package-initialize)
(setq-default indent-tabs-mode nil)
(global-hl-line-mode +1)
(setq compilation-scroll-output 'first-error)
(global-set-key (kbd "C-c <right>") 'pop-global-mark)
(global-set-key (kbd "C-c <down>") 'pop-to-mark-command)
(add-hook 'before-save-hook 'delete-trailing-whitespace)
;; transparence
;; (set-frame-parameter (selected-frame) 'alpha '(85 . 85))
;; (add-to-list 'default-frame-alist '(alpha . (85 . 85)))
;; elpy
;; http://elpy.readthedocs.org/en/latest/concepts.html
;;
;; bindings:
;; - M-. jump-to-def
;; - M-* back from last jump to def
;; - C-c C-c send buffer to interpreter
(elpy-enable)
(setq elpy-rpc-backend "jedi")
(global-set-key (kbd "M-.") 'elpy-goto-definition)
(global-set-key (kbd "M-,") 'pop-tag-mark)
;; Configure flymake for pylint
(setq-default flymake-no-changes-timeout '3)
;; Set as a minor mode for Python
;; (add-hook 'python-mode-hook '(lambda () (flymake-mode)))
;; Set as a minor mode for Scheme
(require 'rainbow-delimiters)
(add-hook 'scheme-mode-hook 'rainbow-delimiters-mode)
(add-hook 'python-mode-hook 'rainbow-delimiters-mode)
(add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
;; ;; python flycheck
;; (add-hook 'python-mode-hook (lambda ()
;; (flycheck-mode 1)
;; (semantic-mode 1)
;; (setq flycheck-checker 'python-pylint
;; flycheck-checker-error-threshold 900
;; flycheck-pylintrc "~/.pylintrc")))
;;
(setq ediff-window-setup-function (quote ediff-setup-windows-plain))
;; tramp
(setq tramp-defaul-method "ssh")
;; Customize dired
(require 'dired-x)
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
(setq-default dired-omit-files-p t)
(setq dired-omit-files (concat dired-omit-files "\\|^\\..+$" ".+\\.pyc"))
;; Bookmarks
(require 'bm)
(global-set-key (kbd "C-c b") 'bm-toggle)
(global-set-key (kbd "C-c n") 'bm-next)
(global-set-key (kbd "C-c p") 'bm-previous)
(setq bm-cycle-all-buffers t)
(defun arrow-right ()
(interactive)
(insert "→"))
(global-set-key (kbd "C-c 6") 'arrow-right)
(defun FIXME ()
(interactive)
(insert "(p [FIXME]))"))
(global-set-key (kbd "C-c 5") 'FIXME)
;; Pretty print xml
(defun html-pretty-print-region (begin end)
"Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this. The function inserts linebreaks to separate tags that have
nothing but whitespace between them. It then indents the markup
by using nxml's indentation rules."
(interactive "r")
(save-excursion
(nxml-mode)
(goto-char begin)
(while (search-forward-regexp "\>[ \\t]*\<" nil t)
(backward-char) (insert "\n"))
(indent-region begin end))
(message "Ah, much better!"))
;; ;; accept ansi escape sequence in compile buffer
;; (require 'ansi-color)
;; (defun colorize-compilation-buffer ()
;; (toggle-read-only)
;; (ansi-color-apply-on-region (point-min) (point-max))
;; (toggle-read-only))
;; (add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
(global-set-key (kbd "<f3>") 'goto-line)
(global-set-key (kbd "<f12>") 'whitespace-mode)
(global-set-key (kbd "C-x C-g") 'compile)
(global-set-key (kbd "C-x l") 'whitespace-cleanup)
(global-set-key (kbd "C-x C-r") 'ag-project)
(global-set-key (kbd "C-x r") 'ag-project-dired)
;; web-mode
(require 'web-mode)
(add-to-list 'auto-mode-alist '("\\.js\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.jinja2\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.wat\\'" . scheme-mode))
(setq web-mode-engines-alist
'(("jinja2" . "\\.jinja2\\'")))
(setq web-mode-enable-auto-pairing 'f)
(add-hook 'web-mode-hook
(lambda ()
;; short circuit js mode and just do everything in jsx-mode
(if (equal web-mode-content-type "javascript")
(web-mode-set-content-type "jsx")
(message "now set to: %s" web-mode-content-type))))
;; (setq web-mode-enable-auto-pairing t)
;; (add-hook 'web-mode-hook
;; (lambda ()
;; ;; short circuit js mode and just do everything in jsx-mode
;; (if (equal web-mode-content-type "javascript")
;; (web-mode-set-content-type "jsx")
;; (message "now set to: %s" web-mode-content-type))))
;; scheme-mode & geiser
(add-to-list 'auto-mode-alist '("\\.sld\\'" . scheme-mode))
(add-to-list 'auto-mode-alist '("\\.sls\\'" . scheme-mode))
(add-to-list 'auto-mode-alist '("\\.sfx\\'" . scheme-mode))
(setq geiser-active-implementations '(chez))
;; store backup files in /tmp
(setq backup-directory-alist
`((".*" . ,temporary-file-directory)))
(setq auto-save-file-name-transforms
`((".*" ,temporary-file-directory t)))
;; replace "yes or no" question by "y or n"
(defalias 'yes-or-no-p 'y-or-n-p)
(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.
'(Linum-format "%7i ")
'(ansi-color-faces-vector
[default default default italic underline success warning error])
'(ansi-color-names-vector
["black" "#d55e00" "#009e73" "#f8ec59" "#0072b2" "#cc79a7" "#56b4e9" "white"])
'(ansi-term-color-vector
[unspecified "#14191f" "#d15120" "#81af34" "#deae3e" "#7e9fc9" "#a878b5" "#7e9fc9" "#dcdddd"] t)
'(auth-source-save-behavior nil)
'(background-color "#202020")
'(background-mode dark)
'(bm-highlight-style (quote bm-highlight-only-fringe))
'(compilation-message-face (quote default))
'(cua-global-mark-cursor-color "#2aa198")
'(cua-normal-cursor-color "#839496")
'(cua-overwrite-cursor-color "#b58900")
'(cua-read-only-cursor-color "#859900")
'(cursor-color "#cccccc")
'(custom-enabled-themes (quote (danneskjold)))
'(custom-safe-themes
(quote
("1caa3499292e3bcc438bfc3d2983087b5970b987434480ae08549459d4a2b126" "dc720388b839d3bfc2d213816dc8e979b0649e171fbef525e2f9b420a6515572" "eedf8564559559e709f1fb7745eb5a6eaadd4f0d129cc5cb6782387d3973c919" "0e89bf7a9d5d2a327b291d5e646f58362b2386f948a594ca993e7b0016b8425a" "7e1fa2fd97e792390d0c2347f0eefa2d1679c68da56e6baf983b057cefa400b4" "6c7db7fdf356cf6bde4236248b17b129624d397a8e662cf1264e41dab87a4a9a" "66132890ee1f884b4f8e901f0c61c5ed078809626a547dbefbb201f900d03fd8" "f04122bbc305a202967fa1838e20ff741455307c2ae80a26035fbf5d637e325f" "7b4d9b8a6ada8e24ac9eecd057093b0572d7008dbd912328231d0cada776065a" "19ba41b6dc0b5dd34e1b8628ad7ae47deb19f968fe8c31853d64ea8c4df252b8" "51e228ffd6c4fff9b5168b31d5927c27734e82ec61f414970fc6bcce23bc140d" "5e2dc1360a92bb73dafa11c46ba0f30fa5f49df887a8ede4e3533c3ab6270e08" "95f80c9b1ae8afcc2c8d66750252b4d6ae19aef46c2d458c5fe5911e6f09d0ce" "f64c9f8b4241b680b186f4620afb9c82fa2a76cf4498a7431f90db59bb1892eb" "cedd3b4295ac0a41ef48376e16b4745c25fa8e7b4f706173083f16d5792bb379" "5999e12c8070b9090a2a1bbcd02ec28906e150bb2cdce5ace4f965c76cf30476" "8abee8a14e028101f90a2d314f1b03bed1cde7fd3f1eb945ada6ffc15b1d7d65" "b34636117b62837b3c0c149260dfebe12c5dad3d1177a758bb41c4b15259ed7e" "d8f76414f8f2dcb045a37eb155bfaa2e1d17b6573ed43fb1d18b936febc7bbc2" "bc40f613df8e0d8f31c5eb3380b61f587e1b5bc439212e03d4ea44b26b4f408a" "8288b9b453cdd2398339a9fd0cec94105bc5ca79b86695bd7bf0381b1fbe8147" "afc220610bee26945b7c750b0cca03775a8b73c27fdca81a586a0a62d45bbce2" "a632c5ce9bd5bcdbb7e22bf278d802711074413fd5f681f39f21d340064ff292" "1e67765ecb4e53df20a96fb708a8601f6d7c8f02edb09d16c838e465ebe7f51b" "8453c6ba2504874309bdfcda0a69236814cefb860a528eb978b5489422cb1791" "4980e5ddaae985e4bae004280bd343721271ebb28f22b3e3b2427443e748cd3f" "2bed8550c6f0a5ce635373176d5f0e079fb4fb5919005bfa743c71b5eed29d81" "6c0a087a4f49c04d4002393ffd149672f70e4ab38d69bbe8b39059b61682b61c" "39dd7106e6387e0c45dfce8ed44351078f6acd29a345d8b22e7b8e54ac25bac4" "fc0c179ce77997ecb6a7833310587131f319006ef2f630c5a1fec1a9307bff45" "b571f92c9bfaf4a28cb64ae4b4cdbda95241cd62cf07d942be44dc8f46c491f4" "4cbec5d41c8ca9742e7c31cc13d8d4d5a18bd3a0961c18eb56d69972bbcf3071" "cc0dbb53a10215b696d391a90de635ba1699072745bf653b53774706999208e3" "9d7e517b49068e9fef941fe4083ad3d2a4b040895dca5175b84be48739689707" "98cc377af705c0f2133bb6d340bf0becd08944a588804ee655809da5d8140de6" "5dc0ae2d193460de979a463b907b4b2c6d2c9c4657b2e9e66b8898d2592e3de5" "946e871c780b159c4bb9f580537e5d2f7dba1411143194447604ecbaf01bd90c" "47ac4658d9e085ace37e7d967ea1c7d5f3dfeb2f720e5dec420034118ba84e17" "ad30746a316d5fb6fedfb585c0aff4f795730d874e3cff87fe33120377a7b8de" "64f2981274fd8740b794bce9feee7949ed87b88fc0b4654bd98594e1aa81abcd" "7ceb8967b229c1ba102378d3e2c5fef20ec96a41f615b454e0dc0bfa1d326ea6" "954167e51a40f25c34406675eed636eabf7493d8d85e252bfa88ed3efe9ea226" "c1fb68aa00235766461c7e31ecfc759aa2dd905899ae6d95097061faeb72f9ee" "77bd459212c0176bdf63c1904c4ba20fce015f730f0343776a1a14432de80990" "7feeed063855b06836e0262f77f5c6d3f415159a98a9676d549bfeb6c49637c4" "cdd26fa6a8c6706c9009db659d2dffd7f4b0350f9cc94e5df657fa295fffec71" "a2e7b508533d46b701ad3b055e7c708323fb110b6676a8be458a758dd8f24e27" "9122dfb203945f6e84b0de66d11a97de6c9edf28b3b5db772472e4beccc6b3c5" "18a33cdb764e4baf99b23dcd5abdbf1249670d412c6d3a8092ae1a7b211613d5" "ff7625ad8aa2615eae96d6b4469fcc7d3d20b2e1ebc63b761a349bebbb9d23cb" "aae95fc700f9f7ff70efbc294fc7367376aa9456356ae36ec234751040ed9168" "1b1e54d9e0b607010937d697556cd5ea66ec9c01e555bb7acea776471da59055" "47744f6c8133824bdd104acc4280dbed4b34b85faa05ac2600f716b0226fb3f6" "a3132bd39a977ddde4c002f8bd0ef181414c3fbe9228e3643b999491192680ad" "89531935dc9c4620a06579e525d5365f94639cb4c5c328bcabbd22bc39a862ed" "3ff96689086ebc06f5f813a804f7114195b7c703ed2f19b51e10026723711e33" "b79104a19e95f10698badb711bd4ab25565af3ffcf18fa7d3c7db4de7d759ac8" "726dd9a188747664fbbff1cd9ab3c29a3f690a7b861f6e6a1c64462b64b306de" "ea489f6710a3da0738e7dbdfc124df06a4e3ae82f191ce66c2af3e0a15e99b90" "d5b121d69e48e0f2a84c8e4580f0ba230423391a78fcb4001ccb35d02494d79e" "83db918b06f0b1df1153f21c0d47250556c7ffb5b5e6906d21749f41737babb7" "f81a9aabc6a70441e4a742dfd6d10b2bae1088830dc7aba9c9922f4b1bd2ba50" "f9574c9ede3f64d57b3aa9b9cef621d54e2e503f4d75d8613cbcc4ca1c962c21" "cc210a8d0cc72968e7c8516c9c7bd5043cc47199755abc5c23cb295a6e715d35" "b51c2dda65e8e7e66ab1b06bc10b59e61c153b0cf928f296efab5a7574779fb6" "810ab30a73c460f5c49ede85d1b9af3429ff2dff652534518fa1de7adc83d0f6" "4486ade2acbf630e78658cd6235a5c6801090c2694469a2a2b4b0e12227a64b9" "a800120841da457aa2f86b98fb9fd8df8ba682cebde033d7dbf8077c1b7d677a" "71ecffba18621354a1be303687f33b84788e13f40141580fa81e7840752d31bf" "066d4710e40eeb85aa7c72afa6c23d09dee4795bf4e450d4869324e917b5f64d" "557c283f4f9d461f897b8cac5329f1f39fac785aa684b78949ff329c33f947ec" "cdbd0a803de328a4986659d799659939d13ec01da1f482d838b68038c1bb35e8" "9ff70d8009ce8da6fa204e803022f8160c700503b6029a8d8880a7a78c5ff2e5" "4cf3221feff536e2b3385209e9b9dc4c2e0818a69a1cdb4b522756bcdf4e00a4" "d677ef584c6dfc0697901a44b885cc18e206f05114c8a3b7fde674fce6180879" "8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" "4aee8551b53a43a883cb0b7f3255d6859d766b6c5e14bcb01bed572fcbef4328" default)))
'(elpy-rpc-backend "jedi" t)
'(fci-rule-character-color "#192028")
'(fci-rule-color "#073642" t)
'(foreground-color "#cccccc")
'(frame-brackground-mode (quote dark))
'(fringe-mode 4 nil (fringe))
'(highlight-changes-colors (quote ("#d33682" "#6c71c4")))
'(highlight-symbol-colors
(--map
(solarized-color-blend it "#002b36" 0.25)
(quote
("#b58900" "#2aa198" "#dc322f" "#6c71c4" "#859900" "#cb4b16" "#268bd2"))))
'(highlight-symbol-foreground-color "#93a1a1")
'(highlight-tail-colors
(quote
(("#073642" . 0)
("#546E00" . 20)
("#00736F" . 30)
("#00629D" . 50)
("#7B6000" . 60)
("#8B2C02" . 70)
("#93115C" . 85)
("#073642" . 100))))
'(hl-bg-colors
(quote
("#7B6000" "#8B2C02" "#990A1B" "#93115C" "#3F4D91" "#00629D" "#00736F" "#546E00")))
'(hl-fg-colors
(quote
("#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36")))
'(hl-paren-colors
(quote
("#B9F" "#B8D" "#B7B" "#B69" "#B57" "#B45" "#B33" "#B11")))
'(hl-sexp-background-color "#1c1f26")
'(inhibit-startup-screen t)
'(linum-format " %3i ")
'(magit-diff-use-overlays nil)
'(main-line-color1 "#1E1E1E")
'(main-line-color2 "#111111")
'(main-line-separator-style (quote chamfer))
'(menu-bar-mode nil)
'(minimap-display-semantic-overlays nil)
'(minimap-mode t)
'(notmuch-search-line-faces
(quote
(("unread" :foreground "#aeee00")
("flagged" :foreground "#0a9dff")
("deleted" :foreground "#ff2c4b" :bold t))))
'(nrepl-message-colors
(quote
("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))
'(package-selected-packages
(quote
(go-mode haskell-mode markdown-toc telephone-line counsel helm w3 lorem-ipsum web-mode-edit-element elpygen yaml-mode markdown-preview-mode markdown-mode+ jedi php-mode yoshi-theme zonokai-theme waher-theme underwater-theme twilight-theme twilight-anti-bright-theme ujelly-theme toxi-theme tronesque-theme tangotango-theme tango-2-theme subatomic-theme spacegray-theme soothe-theme smyx-theme slime-theme seti-theme paganini-theme obsidian-theme noctilux-theme niflheim-theme mustang-theme monochrome-theme mellow-theme molokai-theme moe-theme minimal-theme mbo70s-theme material-theme airline-themes lavender-theme kaolin-theme jbeans-theme ir-black-theme gruber-darker-theme hemisu-theme farmhouse-theme flatland-theme flatland-black-theme firecode-theme dracula-theme distinguished-theme dark-mint-theme darkburn-theme dark-krystal-theme danneskjold-theme dakrone-theme caroline-theme boron-theme bliss-theme blackboard-theme arjen-grey-theme dockerfile-mode web-mode jumplist abyss-theme kooten-theme kosmos-theme achievements oceanic-theme coffee-mode json-reformat markdown-mode flycheck cyberpunk-theme flymake-cursor badwolf-theme monokai-theme powerline zenburn-theme geiser js2-mode jsx-mode xcscope sr-speedbar smart-tabs-mode scss-mode sass-mode rainbow-delimiters naquadah-theme magit jinja2-mode flymake-jshint elpy bm ag ack-menu ack)))
'(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
'(pos-tip-background-color "#073642")
'(pos-tip-foreground-color "#93a1a1")
'(powerline-color1 "#1E1E1E")
'(powerline-color2 "#111111")
'(py-isort-options (quote ("-sl")))
'(python-check-command "flake8")
'(safe-local-variable-values
(quote
((eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote engine-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-port)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
1)
(put
(quote call-with-new-directory)
(quote scheme-indent-function)
1)
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-port)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote with-mutex)
(quote scheme-indent-function)
1)
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
1)
(put
(quote engine-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(defun prefix-dir-locals-dir
(elt)
(concat
(locate-dominating-file buffer-file-name ".dir-locals.el")
elt))
(mapcar
(lambda
(dir)
(add-to-list
(quote geiser-guile-load-path)
dir))
(mapcar
(function prefix-dir-locals-dir)
(quote
("." "test")))))
(geiser-active-implementations guile)
(eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
1)
(put
(quote engine-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
0)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(put
(quote match)
(quote scheme-indent-function)
0)
(put
(quote with-connection)
(quote scheme-indent-function)
2))
(eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote engine-in-transaction)
(quote scheme-indent-function)
2)
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-port)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote okvs-in-transaction)
(quote scheme-indent-function)
1)
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-port)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval put
(quote syntax-parameterize)
(quote with-output-language)
1)
(eval progn
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-repository)
(quote scheme-indent-function)
2))
(TeX-master . "guile.texi")
(eval progn
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote stream-let)
(quote scheme-indent-function)
2)
(put
(quote for-each-element-in-file)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote match)
(quote scheme-indent-function)
0))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-port)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-lock)
(quote scheme-indent-function)
1)
(put
(quote call-with-bytevector-pointer)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote call-with-bytevector-pointer)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote search-address-info)
(quote scheme-indent-function)
3)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote call-with-context)
(quote scheme-indent-function)
2)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
3)
(put
(quote call-with-session)
(quote scheme-indent-function)
2)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
2)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote switch)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote procedure)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote section)
(quote scheme-indent-function)
1)
(put
(quote library)
(quote scheme-indent-function)
1)
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote test-group)
(quote scheme-indent-function)
1)
(put
(quote test-equal)
(quote scheme-indent-function)
1)
(put
(quote call-with-input-string)
(quote scheme-indent-function)
1)
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(whitespace-line-column . 80)
(cph-line-length . 80)
(cph-page-maximum . 80)
(cph-page-minimum . 50)
(eval progn
(put
(quote unless)
(quote scheme-indent-function)
1)
(put
(quote when)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote unless)
(quote scheme-indent-function)
1)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(web-mode-enable-auto-quoting)
(web-mode-enable-auto-pairing)
(web-mode-indent-style . 4)
(eval progn
(put
(quote call-with-values)
(quote scheme-indent-function)
1)
(put
(quote package)
(quote scheme-indent-function)
1)
(put
(quote struct)
(quote scheme-indent-function)
0)
(put
(quote with-exception-handler)
(quote scheme-indent-function)
0)
(put
(quote call-with-mutex)
(quote scheme-indent-function)
1)
(put
(quote call-with-context)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote call-with-transaction*)
(quote scheme-indent-function)
3)
(put
(quote call-with-transaction)
(quote scheme-indent-function)
3)
(put
(quote call-with-references-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-history-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-table-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-index-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-store-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-store-index-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-subjects-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-predicates-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-graph-cursor)
(quote scheme-indent-function)
1)
(put
(quote call-with-merge)
(quote scheme-indent-function)
3)
(put
(quote call-with-merge*)
(quote scheme-indent-function)
3)
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor*)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
2)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval modify-syntax-entry 43 "'")
(eval modify-syntax-entry 36 "'")
(eval modify-syntax-entry 126 "'")
(eval progn
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote run*)
(quote scheme-indent-function)
1)
(put
(quote fresh)
(quote scheme-indent-function)
1)
(put
(quote conde)
(quote scheme-indent-function)
nil)
(put
(quote run**)
(quote scheme-indent-function)
1)
(put
(quote fs:query)
(quote scheme-indent-function)
1)
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote with-context*)
(quote scheme-indent-function)
nil)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
0)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote template)
(quote scheme-indent-function)
1))
(bug-reference-bug-regexp . "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")
(tab-width 4)
(eval progn
(put
(quote test-check)
(quote scheme-indent-function)
1))
(eval progn
(put
(quote with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-directory)
(quote scheme-indent-function)
1)
(put
(quote with-env)
(quote scheme-indent-function)
1)
(put
(quote with-context)
(quote scheme-indent-function)
1)
(put
(quote match)
(quote scheme-indent-function)
1)
(put
(quote with-transaction)
(quote scheme-indent-function)
1)
(put
(quote stream-let)
(quote scheme-indent-function)
2)
(put
(quote for-each-element-in-file)
(quote scheme-indent-function)
1)
(put
(quote test-check)
(quote scheme-indent-function)
1)
(put
(quote call-with-cursor)
(quote scheme-indent-function)
1)
(put
(quote with-cnx)
(quote scheme-indent-function)
1)))))
'(scroll-bar-mode nil)
'(send-mail-function (quote sendmail-send-it))
'(show-paren-mode t)
'(smartrep-mode-line-active-bg (solarized-color-blend "#859900" "#073642" 0.2))
'(term-default-bg-color "#002b36")
'(term-default-fg-color "#839496")
'(tool-bar-mode nil)
'(tooltip-mode nil)
'(uniquify-buffer-name-style (quote forward) nil (uniquify))
'(vc-annotate-background nil)
'(vc-annotate-color-map
(quote
((20 . "#dc322f")
(40 . "#c85d17")
(60 . "#be730b")
(80 . "#b58900")
(100 . "#a58e00")
(120 . "#9d9100")
(140 . "#959300")
(160 . "#8d9600")
(180 . "#859900")
(200 . "#669b32")
(220 . "#579d4c")
(240 . "#489e65")
(260 . "#399f7e")
(280 . "#2aa198")
(300 . "#2898af")
(320 . "#2793ba")
(340 . "#268fc6")
(360 . "#268bd2"))))
'(vc-annotate-very-old-color nil)
'(weechat-color-list
(quote
(unspecified "#002b36" "#073642" "#990A1B" "#dc322f" "#546E00" "#859900" "#7B6000" "#b58900" "#00629D" "#268bd2" "#93115C" "#d33682" "#00736F" "#2aa198" "#839496" "#657b83")))
'(when
(or
(not
(boundp
(quote ansi-term-color-vector)))
(not
(facep
(aref ansi-term-color-vector 0))))))
(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 (:family "Ubuntu Mono" :foundry "DAMA" :slant normal :weight normal :height 143 :width normal)))))
(put 'upcase-region 'disabled nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment