git.fiddlerwoaroof.com
Browse code

Various emacs changes

Ed Langley authored on 01/07/2019 22:56:28
Showing 1 changed files
... ...
@@ -335,7 +335,6 @@ With a prefix ARG invalidates the cache first."
335 335
   (define-key evil-normal-state-map " s" 'helm-occur)
336 336
   (define-key evil-normal-state-map " S" 'helm-projectile-rg)
337 337
   (define-key helm-map (kbd "C-r") 'evil-paste-from-register))
338
-
339 338
  (helm-ag)
340 339
  (helm-ag-r)
341 340
  (helm-rg)
... ...
@@ -428,11 +427,12 @@ With a prefix ARG invalidates the cache first."
428 427
       (insert "\n)"))
429 428
     (read (current-buffer))))
430 429
 
431
-(use-package circe
432
-  :config
433
-  (setq circe-server-buffer-name "{host}:{port}"
434
-        circe-reduce-lurker-spam t
435
-        circe-network-options (read-sexps-in-file "~/.circe-info")))
430
+(comment
431
+ (use-package circe
432
+   :config
433
+   (setq circe-server-buffer-name "{host}:{port}"
434
+         circe-reduce-lurker-spam t
435
+         circe-network-options (read-sexps-in-file "~/.circe-info"))))
436 436
 
437 437
 (defvar url-pattern (car (read-sexps-in-file "~/.pastebin-name")))
438 438
 (defun pastebin-buffer ()
... ...
@@ -465,11 +465,13 @@ With a prefix ARG invalidates the cache first."
465 465
 
466 466
 (progn ;; narrowing
467 467
   (define-key global-map "\C-c]" "\C-u1\C-xnp")
468
-  (define-key global-map "\C-c[" "\C-u-1\C-xnp"))
468
+  (define-key global-map "\C-c[" "\C-u-1\C-xnp\M-<"))
469 469
 
470 470
 
471 471
 ;;;;; junk drawer ....
472 472
 
473
+(put 'narrow-to-page 'disabled nil)
474
+
473 475
 (defun js--looking-at-operator-p ()
474 476
   "Return non-nil if point is on a JavaScript operator, other than a comma."
475 477
   (save-match-data
... ...
@@ -596,5 +598,3 @@ With a prefix ARG invalidates the cache first."
596 598
          org-capture-templates)
597 599
    (setq org-brain-visualize-default-choices 'all)
598 600
    (setq org-brain-title-max-length 12)))
599
-
600
-(put 'narrow-to-page 'disabled nil)