about summary refs log tree commit diff stats
path: root/tools/tangle.readme.md
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-04-24 19:35:36 -0700
committerKartik Agaram <vc@akkartik.com>2020-05-18 00:44:47 -0700
commit703b37763070b0d7a6407ed63cf7644dbfe31814 (patch)
treecb6932f431e2eadd32dc520a4b4abe2d4f3007ab /tools/tangle.readme.md
parentb91618cac6a5a30dce94704f69dfbee27edbd51f (diff)
downloadmu-703b37763070b0d7a6407ed63cf7644dbfe31814.tar.gz
mu.subx: append-list
populate-function-header _almost_ done. I think we just need to fix `push`
next.
Diffstat (limited to 'tools/tangle.readme.md')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-27 10:36:40 +0000


 


nstant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
;;; init-kill.el --- Kill Ring Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;; Contains code copied from prelude-editor.el
;;; Code:

(use-package browse-kill-ring
  :defer 5
  :config
  (browse-kill-ring-default-keybindings))

(use-package easy-kill
  :bind
  ([remap kill-ring-save] . easy-kill)
  ;; emulate expand-region
  ("C-=" . easy-mark)
  (:map easy-kill-base-map ("C-=" . easy-kill-expand)))

(use-package emacs
  :hook
  (emacs-startup . (lambda ()
                     ;; Based on code in prelude-editor.el
                     (defun yank-advised-indent-function (beg end)
                       "Do indentation, as long as the region isn't too large."
                       (if (<= (- end beg) 10000)
                           (indent-region beg end nil)))

                     (defmacro advise-commands (advice-name commands class &rest body)
                       "Apply advice named ADVICE-NAME to multiple COMMANDS.

The body of the advice is in BODY."
                       `(progn
                          ,@(mapcar (lambda (command)
                                      `(defadvice ,command (,class ,(intern (concat (symbol-name command) "-" advice-name)) activate)
                                         ,@body))
                                    commands)))

                     (advise-commands "indent" (yank yank-pop) after
                                      (if (and (not (ad-get-arg 0))
                                               (not (member major-mode '(conf-mode coffee-mode haml-mode python-mode slim-mode yaml-mode)))
                                               (or (derived-mode-p 'prog-mode)
                                                   (member major-mode '(LaTeX-mode TeX-mode))))
                                          (let ((transient-mark-mode nil))
                                            (yank-advised-indent-function (region-beginning) (region-end))))))))

(provide 'init-kill)
;;; init-kill.el ends here