Add flattening imenu functions. Make it so that init.el sections are recognized by imenu.
This commit is contained in:
parent
f0067856bf
commit
4c68b4f2ae
55
init.el
55
init.el
@ -1,3 +1,4 @@
|
||||
;; -*- lexical-binding: t; -*-
|
||||
;; =============================================================================
|
||||
;; ___ _ __ ___ __ _ ___ ___
|
||||
;; / _ \ '_ ` _ \ / _` |/ __/ __|
|
||||
@ -22,7 +23,7 @@
|
||||
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
||||
|
||||
;; =============================================================================
|
||||
;;;; Load Path Configuration
|
||||
;; Load Path Configuration
|
||||
;; =============================================================================
|
||||
|
||||
(setq custom-file "~/.emacs.d/custom.el")
|
||||
@ -31,7 +32,7 @@
|
||||
(add-to-list 'load-path "~/.emacs.d/lisp")
|
||||
|
||||
;; =============================================================================
|
||||
;;;; ELPA/package.el/MELPA
|
||||
;; ELPA/package.el/MELPA
|
||||
;; =============================================================================
|
||||
|
||||
(require 'package)
|
||||
@ -58,7 +59,7 @@
|
||||
(require 'use-package)
|
||||
(put 'use-package 'lisp-indent-function 1) ;; reduce indentation for use-package
|
||||
|
||||
;;; =============================================================================
|
||||
;; =============================================================================
|
||||
;; Disables
|
||||
;; =============================================================================
|
||||
|
||||
@ -87,7 +88,7 @@
|
||||
(setq split-width-threshold 160)
|
||||
|
||||
;; =============================================================================
|
||||
;; Config Free Packages
|
||||
;; Config Free Packages
|
||||
;; =============================================================================
|
||||
|
||||
(defvar packages-essential
|
||||
@ -126,8 +127,13 @@
|
||||
(column-number-mode t)
|
||||
(global-linum-mode t)
|
||||
(setq visible-bell t)
|
||||
|
||||
;; Make buffer names unique.
|
||||
(setq uniquify-buffer-name-style 'forward)
|
||||
|
||||
;; We want closures.
|
||||
(setq lexical-binding t)
|
||||
|
||||
;; Don't disable downcase and upcase region.
|
||||
(put 'upcase-region 'disabled nil)
|
||||
(put 'downcase-region 'disabled nil)
|
||||
@ -137,6 +143,9 @@
|
||||
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))
|
||||
(add-hook 'after-init-hook #'flycheck-mode)
|
||||
|
||||
;; Don't popup frames in OSX.
|
||||
(setq ns-pop-up-frames nil)
|
||||
|
||||
(require 'tramp)
|
||||
(setq tramp-default-method "ssh")
|
||||
|
||||
@ -250,7 +259,7 @@
|
||||
(use-package smex :ensure t)
|
||||
|
||||
;; =============================================================================
|
||||
;;;; emacs-lisp
|
||||
;; elisp
|
||||
;; =============================================================================
|
||||
|
||||
(use-package elisp-slime-nav
|
||||
@ -265,9 +274,13 @@
|
||||
(defun imenu-elisp-sections ()
|
||||
(setq imenu-prev-index-position-function nil)
|
||||
(setq imenu-space-replacement nil)
|
||||
(add-to-list 'imenu-generic-expression '("Sections" "^;;;; *\\(.+\\)$" 1) t))
|
||||
(add-to-list 'imenu-generic-expression
|
||||
`("Sections"
|
||||
,(concat ";\\{1,4\\} =\\{10,80\\}\n;\\{1,4\\} \\{10,80\\}"
|
||||
"\\(.+\\)$") 1) t))
|
||||
|
||||
(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections)
|
||||
(add-hook 'emacs-lisp-mode-hook 'flatten-current-imenu-index-function)
|
||||
(add-hook 'emacs-lisp-mode-hook (lambda () (setq indent-tabs-mode nil)))
|
||||
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
|
||||
(define-key lisp-mode-shared-map (kbd "C-c C-f") 'find-function-at-point)
|
||||
@ -319,7 +332,10 @@
|
||||
(progn
|
||||
(use-package jedi
|
||||
:commands jedi:goto-definition
|
||||
:config (setq jedi:complete-on-dot t)
|
||||
:config
|
||||
(progn
|
||||
(setq jedi:complete-on-dot t)
|
||||
(setq jedi:install-imenu t))
|
||||
:ensure t
|
||||
:bind ("C-c g" . jedi:goto-definition))
|
||||
(use-package pytest
|
||||
@ -469,8 +485,13 @@ buffer is not visiting a file."
|
||||
(frame-list)))
|
||||
|
||||
(defun make-frame-if-none-exists ()
|
||||
(unless (frame-exists)
|
||||
(make-frame-on-display (getenv "DISPLAY"))))
|
||||
(let* ((existing-frame (frame-exists)))
|
||||
(if existing-frame
|
||||
existing-frame
|
||||
(make-frame-on-display (getenv "DISPLAY")))))
|
||||
|
||||
(defun make-frame-if-none-exists-and-focus ()
|
||||
(make-frame-visible (select-frame (make-frame-if-none-exists))))
|
||||
|
||||
(defun os-copy (&optional b e)
|
||||
(interactive "r")
|
||||
@ -509,6 +530,19 @@ buffer is not visiting a file."
|
||||
(error (message "Invalid expression")
|
||||
(insert (current-kill 0)))))
|
||||
|
||||
(defun flatten-imenu-index (index)
|
||||
(cl-mapcan (lambda (x) (if (listp (cdr x))
|
||||
(cl-mapcar (lambda (item)
|
||||
`(,(concat (car x) "/" (car item)) . ,(cdr item)))
|
||||
(flatten-imenu-index (cdr x)))
|
||||
(list x))) index))
|
||||
|
||||
(defun flatten-imenu-index-function (function)
|
||||
(lambda () (flatten-imenu-index (funcall function))))
|
||||
|
||||
(defun flatten-current-imenu-index-function ()
|
||||
(setq imenu-create-index-function (flatten-imenu-index-function imenu-create-index-function)))
|
||||
|
||||
;; =============================================================================
|
||||
;; Custom Key Bindings
|
||||
;; =============================================================================
|
||||
@ -603,9 +637,6 @@ buffer is not visiting a file."
|
||||
(progn (load-theme appropriate-theme t)
|
||||
(setq current-theme appropriate-theme)))))
|
||||
|
||||
;;(defvar fonts '("DejaVu Sans Mono-10" "monaco-11" "Inconsolata-12" "menlo-10"))
|
||||
(defvar fonts '("monaco-10"))
|
||||
|
||||
(defun set-my-font-for-frame (frame)
|
||||
(condition-case exp
|
||||
(set-frame-font (random-choice fonts) nil t)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user