Yigit Colakoglu
4 years ago
61 changed files with 2586 additions and 4438 deletions
Unified View
Diff Options
-
+8 -1.config/X11/xinitrc
-
+2 -0.config/config.env.default
-
+7 -0.config/doom/cli.el
-
+426 -132.config/doom/config.el
-
+46 -0.config/doom/custom.el
-
+48 -29.config/doom/init.el
-
+913 -0.config/doom/lisp/bison-mode.el
-
+38 -1.config/doom/packages.el
-
+13 -0.config/doom/templates/template.c
-
+13 -0.config/doom/templates/template.cpp
-
+35 -0.config/doom/templates/template.el
-
+12 -0.config/doom/templates/template.h
-
+0 -0.config/doom/templates/template.html
-
+12 -0.config/doom/templates/template.java
-
+13 -0.config/doom/templates/template.org
-
+14 -0.config/doom/templates/template.py
-
+7 -0.config/doom/templates/template.sh
-
+3 -5.config/doom/templates/template.tex
-
+126 -112.config/doom/themes/doom-material-ocean-theme.el
-
+1 -0.config/mutt/muttrc
-
+0 -2.config/nextcloud/nextcloud
-
+0 -5.config/nvim/plugin/plugins.vim
-
+8 -7.config/vim/vimrc
-
+8 -0.config/zsh/.zshrc
-
+8 -0.config/zsh/aliases
-
+22 -0.local/bin/backup
-
+1 -0.local/bin/calconsync
-
+13 -9.local/bin/check-updates
-
+14 -0.local/bin/dmenu-emoji
-
+2 -0.local/bin/dmenu-logout
-
+9 -4.local/bin/dmenu-refresh
-
+107 -0.local/bin/dmenu-web
-
+318 -0.local/bin/dmenu-xrandr
-
+10 -4.local/bin/dmenu_run_history
-
+0 -11.local/bin/dmenu_surf
-
+8 -1.local/bin/doom
-
+62 -0.local/bin/e
-
+0 -53.local/bin/menu-surfraw
-
+3 -0.local/share/dwm/autostart.sh
-
+0 -3810.local/share/nerdfont_icons
-
+0 -14.local/share/vim/templates/skeleton.c
-
+0 -14.local/share/vim/templates/skeleton.cpp
-
+0 -13.local/share/vim/templates/skeleton.h
-
+0 -13.local/share/vim/templates/skeleton.hpp
-
+0 -13.local/share/vim/templates/skeleton.java
-
+0 -15.local/share/vim/templates/skeleton.py
-
+0 -2.local/share/vim/templates/skeleton.sh
-
+10 -4.local/src/dmenu/config.h
-
+1 -1.local/src/dmenu/config.mk
-
+162 -0.local/src/dmenu/dmenu.c
-
+4 -0.local/src/dwm/config.def.h
-
+11 -1.local/src/dwm/config.h
-
+12 -2.local/src/dwm/dwm.c
-
+16 -14.local/src/dwm/keybinds.h
-
+8 -7.local/src/dwm/rules.h
-
+10 -2.local/src/dwmblocks/config.h
-
+12 -134.local/src/st/config.h
-
BIN.local/src/st/st
-
BIN.local/src/st/st.o
-
BIN.local/src/st/x.o
-
+10 -3.profile
+ 8
- 1
.config/X11/xinitrc
View File
+ 2
- 0
.config/config.env.default
View File
+ 7
- 0
.config/doom/cli.el
View File
| @ -0,0 +1,7 @@ | |||||
| ;;; cli.el -*- lexical-binding: t; -*- | |||||
| (setq org-confirm-babel-evaluate nil) | |||||
| (defun doom-shut-up-a (orig-fn &rest args) | |||||
| (quiet! (apply orig-fn args))) | |||||
| (advice-add 'org-babel-execute-src-block :around #'doom-shut-up-a) | |||||
+ 426
- 132
.config/doom/config.el
View File
| @ -1,160 +1,454 @@ | |||||
| ;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- | ;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- | ||||
| ;; Place your private configuration here! Remember, you do not need to run 'doom | |||||
| ;; sync' after modifying this file! | |||||
| ;; __ _______ _____ _____ | |||||
| ;; \ \ / / ____| ____|_ _| | |||||
| ;; \ V /| _| | _| | | | |||||
| ;; | | | |___| |___ | | | |||||
| ;; |_| |_____|_____| |_| | |||||
| ;; Yeet's Doom Emacs configuration | |||||
| ;; Some functionality uses this to identify you, e.g. GPG configuration, email | |||||
| ;; clients, file templates and snippets. | |||||
| ;; Global Configuration | |||||
| (setq user-full-name "Yigit Colakoglu" | (setq user-full-name "Yigit Colakoglu" | ||||
| user-mail-address "yigit@yigitcolakoglu.com") | |||||
| user-mail-address "yigit@yigitcolakoglu.com") | |||||
| (add-to-list 'default-frame-alist | |||||
| '(ns-transparent-titlebar . t)) | |||||
| (add-to-list 'default-frame-alist | |||||
| '(ns-appearance . light)) | |||||
| (setq org-directory "~/Documents/org/") | |||||
| (setq org-journal-dir "~/Documents/org/journal/") | |||||
| (setq display-line-numbers-type 'relative) | |||||
| (setq twittering-allow-insecure-server-cert t) | |||||
| (setq +ivy-buffer-preview t) | |||||
| (global-auto-revert-mode t) | (global-auto-revert-mode t) | ||||
| (global-subword-mode 1) ; Iterate through CamelCase words | |||||
| (setq-default | |||||
| delete-by-moving-to-trash t ; Delete files to trash | |||||
| window-combination-resize t ; take new window space from all other windows (not just current) | |||||
| x-stretch-cursor t) ; Stretch cursor to the glyph width | |||||
| (setq undo-limit 80000000 ; Raise undo-limit to 80Mb | |||||
| evil-want-fine-undo t ; By default while in insert all changes are one big blob. Be more granular | |||||
| auto-save-default t ; Nobody likes to loose work, I certainly don't | |||||
| truncate-string-ellipsis "…") ; Unicode ellispis are nicer than "...", and also save /precious/ space | |||||
| ;; Experimental, delete if you don't like it | |||||
| (setq evil-vsplit-window-right t | |||||
| evil-split-window-below t) | |||||
| (require 'bison-mode) | |||||
| (after! bison-mode-hook | |||||
| (setq imenu-create-index-function | |||||
| (lambda () | |||||
| (let ((end)) | |||||
| (beginning-of-buffer) | |||||
| (re-search-forward "^%%") | |||||
| (forward-line 1) | |||||
| (setq end (save-excursion (re-search-forward "^%%") (point))) | |||||
| (loop while (re-search-forward "^\\([a-z].*?\\)\\s-*\n?\\s-*:" end t) | |||||
| collect (cons (match-string 1) (point))))))) | |||||
| (defadvice! prompt-for-buffer (&rest _) | |||||
| :after '(evil-window-split evil-window-vsplit) | |||||
| (+ivy/switch-buffer)) | |||||
| (use-package! ox-hugo | |||||
| :after ox | |||||
| ) | |||||
| (use-package! elfeed-org | |||||
| :after elfeed | |||||
| :config | |||||
| (elfeed-org) | |||||
| (setq rmh-elfeed-org-files (list "~/.doom.d/elfeed.org")) | |||||
| ) | |||||
| (use-package! deft | |||||
| :hook deft-mode-hook | |||||
| :init | |||||
| (setq deft-directory org-directory) | |||||
| (setq deft-recursive t) | |||||
| ) | |||||
| (use-package! hl-todo | |||||
| :hook (prog-mode . hl-todo-mode) | |||||
| :config | |||||
| (setq hl-todo-keyword-faces | |||||
| `( | |||||
| ("PROJ" . ,(face-foreground 'error)) | |||||
| ("SOMEDAY" . ,(face-foreground 'warning)) | |||||
| ("TODO" . ,(face-foreground 'warning)) | |||||
| ("PROG" . ,(face-foreground 'error)) | |||||
| ("NEXT" . ,(face-foreground 'error)) | |||||
| ("WAIT" . ,(face-foreground 'warning)) | |||||
| ("CANCEL" . ,(face-foreground 'error)) | |||||
| ("DELEGATED" . ,(face-foreground 'error)) | |||||
| ("IDEA" . ,(face-foreground 'warning)) | |||||
| ("GOAL" . ,(face-foreground 'warning)) | |||||
| ("DUD" . ,(face-foreground 'error)) | |||||
| ("RD" . ,(face-foreground 'warning)) | |||||
| ("RDING" . ,(face-foreground 'warning)) | |||||
| ("RDNOTE" . ,(face-foreground 'warning)) | |||||
| ("TMPDROP" . ,(face-foreground 'warning)) | |||||
| ("DROP" . ,(face-foreground 'error)) | |||||
| ("FNSHED" . ,(face-foreground 'success)) | |||||
| ("DONE" . ,(face-foreground 'success))))) | |||||
| (use-package! engrave-faces-latex | |||||
| :after ox-latex) | |||||
| (use-package! org-ol-tree | |||||
| :commands org-ol-tree) | |||||
| (use-package! org-chef | |||||
| :commands (org-chef-insert-recipe org-chef-get-recipe-from-url)) | |||||
| (use-package! org-pretty-table | |||||
| :commands (org-pretty-table-mode global-org-pretty-table-mode)) | |||||
| (use-package! aas :commands aas-mode) | |||||
| (use-package! laas | |||||
| :hook (LaTeX-mode . laas-mode) | |||||
| :config | |||||
| (defun laas-tex-fold-maybe () | |||||
| (unless (equal "/" aas-transient-snippet-key) | |||||
| (+latex-fold-last-macro-a))) | |||||
| (add-hook 'aas-post-snippet-expand-hook #'laas-tex-fold-maybe)) | |||||
| (use-package! calfw-org | |||||
| :after calfw) | |||||
| (use-package! org-agenda | |||||
| :defer | |||||
| :init | |||||
| (setq org-agenda-files (list | |||||
| (concat org-directory "projects.org") | |||||
| (concat org-directory "monthly_habits.org") | |||||
| (concat org-directory "quarterly_habits.org") | |||||
| (concat org-directory "personal.org") | |||||
| (concat org-directory "taxes.org") | |||||
| (concat org-directory "birthdays_and_important_days.org") | |||||
| (concat org-directory "reading_list.org") | |||||
| (concat org-directory "school.org") | |||||
| (concat org-directory "daily_habits.org") | |||||
| (concat org-directory "weekly_habits.org") | |||||
| (concat org-directory "reflections/2021_refl.org") | |||||
| (concat org-directory "someday.org") | |||||
| (concat org-directory "projects/2021/") | |||||
| org-journal-dir)) | |||||
| :config | |||||
| (setq org-habit-show-habits-only-for-today t) | |||||
| ;; Org Agenda Files | |||||
| ;; org agenda | |||||
| (setq org-agenda-time-grid | |||||
| (quote | |||||
| ((daily today remove-match) | |||||
| (700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 2300) | |||||
| "......" "----------------"))) | |||||
| ) | |||||
| (use-package! org-super-agenda | |||||
| :after org-agenda | |||||
| :init | |||||
| ;; for some reason org-agenda evil bindings were being weird with j and k | |||||
| (map! :map org-agenda-keymap "j" #'org-agenda-next-line) | |||||
| (map! :map org-agenda-mode-map "j" #'org-agenda-next-line) | |||||
| (map! :map org-super-agenda-header-map "j" #'org-agenda-next-line) | |||||
| (map! :map org-agenda-keymap "k" #'org-agenda-previous-line) | |||||
| (map! :map org-agenda-mode-map "k" #'org-agenda-previous-line) | |||||
| (map! :map org-super-agenda-header-map "k" #'org-agenda-previous-line) | |||||
| (map! :map org-super-agenda-header-map "k" #'org-agenda-previous-line) | |||||
| (map! :map org-super-agenda-header-map "k" #'org-agenda-previous-line) | |||||
| (setq org-agenda-custom-commands '( | |||||
| ("r" "Main View" | |||||
| ((agenda "" ((org-agenda-span 'day) | |||||
| (org-agenda-start-day "+0d") | |||||
| (org-agenda-overriding-header "") | |||||
| (org-super-agenda-groups | |||||
| '((:name "Today" | |||||
| :time-grid t | |||||
| :date today | |||||
| :order 1 | |||||
| :scheduled today | |||||
| :todo "TODAY"))))) | |||||
| (alltodo "" ((org-agenda-overriding-header "") | |||||
| (org-super-agenda-groups | |||||
| '( | |||||
| (:discard (:habit)) | |||||
| (:todo "PROJ") | |||||
| (:todo "PROG") | |||||
| (:todo "NEXT") | |||||
| (:todo "WAIT") | |||||
| (:todo "RD") | |||||
| (:todo "RDING") | |||||
| (:todo "RDNOTE") | |||||
| (:name "Important" :priority "A") | |||||
| (:todo "TODO") | |||||
| (:todo "GOAL") | |||||
| (:discard (:todo "IDEA")) | |||||
| (:discard (:todo "RD")) | |||||
| (:discard (:todo "TMPDROP")) | |||||
| (:discard (:todo "SOMEDAY")) | |||||
| )))))) | |||||
| ("w" "Someday and Idea" | |||||
| ((alltodo "" ((org-agenda-overriding-header "") | |||||
| (org-super-agenda-groups | |||||
| '( | |||||
| (:todo "IDEA") | |||||
| (:todo "SOMEDAY") | |||||
| (:discard (:todo "PROJ")) | |||||
| (:discard (:todo "PROG")) | |||||
| (:discard (:todo "NEXT")) | |||||
| (:discard (:todo "WAIT")) | |||||
| (:discard (:todo "RDNOTE")) | |||||
| (:discard (:todo "RD")) | |||||
| (:discard (:todo "RDING")) | |||||
| (:discard (:todo "TODO")) | |||||
| (:discard (:todo "GOAL")) | |||||
| ) | |||||
| ))))))) | |||||
| :config | |||||
| (org-super-agenda-mode)) | |||||
| ;; Org Roam | |||||
| (use-package! org-roam | |||||
| :commands (org-roam-insert org-roam-find-file org-roam) | |||||
| :init | |||||
| (setq org-roam-directory (concat org-directory "roam")) | |||||
| (setq org-roam-buffer-width 0.2) | |||||
| (map! :leader | |||||
| :prefix "n" | |||||
| :desc "Org-Roam-Insert" "i" #'org-roam-insert | |||||
| :desc "Org-Roam-Find" "/" #'org-roam-find-file | |||||
| :desc "Org-Roam-Buffer" "r" #'org-roam) | |||||
| ) | |||||
| ;; Attempt to remove lag | |||||
| (setq key-chord-two-keys-delay 0.7) | |||||
| (add-hook! 'org-mode-hook (company-mode -1)) | |||||
| (add-hook! 'org-capture-mode-hook (company-mode -1)) | |||||
| (after! org (load! "org-conf.el")) | |||||
| (setq baby-blue '("#d2ecff" "#d2ecff" "brightblue")) | |||||
| ;; Better window management | |||||
| (map! :map evil-window-map | |||||
| "SPC" #'rotate-layout | |||||
| ;; Navigation | |||||
| "<left>" #'evil-window-left | |||||
| "<down>" #'evil-window-down | |||||
| "<up>" #'evil-window-up | |||||
| "<right>" #'evil-window-right | |||||
| ;; Swapping windows | |||||
| "C-<left>" #'+evil/window-move-left | |||||
| "C-<down>" #'+evil/window-move-down | |||||
| "C-<up>" #'+evil/window-move-up | |||||
| "C-<right>" #'+evil/window-move-right) | |||||
| (after! company | |||||
| (setq company-idle-delay 0.2 | |||||
| company-minimum-prefix-length 2)) | |||||
| (after! evil-escape (evil-escape-mode -1)) | |||||
| (after! evil (setq evil-ex-substitute-global t)) ; I like my s/../.. to by global by default | |||||
| (setq emojify-emoji-set "twemoji-v2") | |||||
| (setq-default history-length 1000) | |||||
| (setq-default prescient-history-length 1000) | |||||
| (set-company-backend! | |||||
| '(text-mode | |||||
| markdown-mode | |||||
| gfm-mode) | |||||
| '(:seperate | |||||
| company-ispell | |||||
| company-files | |||||
| company-yasnippet)) | |||||
| (setq | (setq | ||||
| doom-theme 'doom-challenger-deep | |||||
| doom-font (font-spec :family "CaskaydiaCove Nerd Font Mono" :size 16 :weight 'regular) | |||||
| default-directory "~" | |||||
| dart-format-on-save t | |||||
| web-mode-markup-indent-offset 2 | |||||
| web-mode-code-indent-offset 2 | |||||
| web-mode-css-indent-offset 2 | |||||
| mac-command-modifier 'meta | |||||
| js-indent-level 2 | |||||
| typescript-indent-level 2 | |||||
| json-reformat:indent-width 2 | |||||
| prettier-js-args '("--single-quote") | |||||
| projectile-project-search-path '("~/Projects/") | |||||
| dired-dwim-target t | |||||
| org-ellipsis " ▾ " | |||||
| org-bullets-bullet-list '("·") | |||||
| org-tags-column -80 | |||||
| org-agenda-files (ignore-errors (directory-files +org-dir t "\\.org$" t)) | |||||
| org-log-done 'time | |||||
| css-indent-offset 2 | |||||
| org-refile-targets (quote ((nil :maxlevel . 1))) | |||||
| org-capture-templates '(("x" "Note" entry | |||||
| (file+olp+datetree "journal.org") | |||||
| "**** [ ] %U %?" :prepend t :kill-buffer t) | |||||
| ("t" "Task" entry | |||||
| (file+headline "tasks.org" "Inbox") | |||||
| "* [ ] %?\n%i" :prepend t :kill-buffer t)) | |||||
| +doom-dashboard-banner-file (expand-file-name "logo.png" doom-private-dir) | |||||
| +org-capture-todo-file "tasks.org" | |||||
| org-super-agenda-groups '((:name "Today" | |||||
| :time-grid t | |||||
| :scheduled today) | |||||
| (:name "Due today" | |||||
| :deadline today) | |||||
| (:name "Important" | |||||
| :priority "A") | |||||
| (:name "Overdue" | |||||
| :deadline past) | |||||
| (:name "Due soon" | |||||
| :deadline future) | |||||
| (:name "Big Outcomes" | |||||
| :tag "bo"))) | |||||
| (add-hook! reason-mode | |||||
| (add-hook 'before-save-hook #'refmt-before-save nil t)) | |||||
| (add-hook! | |||||
| js2-mode 'prettier-js-mode | |||||
| (add-hook 'before-save-hook #'refmt-before-save nil t)) | |||||
| default-directory "~" | |||||
| web-mode-markup-indent-offset 4 | |||||
| ispell-dictionary "en-custom" | |||||
| web-mode-code-indent-offset 4 | |||||
| web-mode-css-indent-offset 4 | |||||
| js-indent-level 4 | |||||
| json-reformat:indent-width 4 | |||||
| prettier-js-args '("--single-quote") | |||||
| projectile-project-search-path '("~/Projects/") | |||||
| dired-dwim-target t | |||||
| nand-hdl-directory "~/Projects/nand2tetris" | |||||
| css-indent-offset 2) | |||||
| (setq auth-sources | |||||
| '((:source "~/.config/emacs/.authinfo.gpg"))) | |||||
| (defun insert-current-date () (interactive) | (defun insert-current-date () (interactive) | ||||
| (insert (shell-command-to-string "echo -n $(date +%Y-%m-%d)"))) | |||||
| (insert (shell-command-to-string "echo -n $(date +%Y-%m-%d)"))) | |||||
| ;; We expect the encoding to be LF UTF-8, so only show the modeline when this is not the case | |||||
| (defun doom-modeline-conditional-buffer-encoding () | |||||
| (setq-local doom-modeline-buffer-encoding | |||||
| (unless (and (memq (plist-get (coding-system-plist buffer-file-coding-system) :category) | |||||
| '(coding-category-undecided coding-category-utf-8)) | |||||
| (not (memq (coding-system-eol-type buffer-file-coding-system) '(1 2)))) | |||||
| t))) | |||||
| (add-hook 'after-change-major-mode-hook #'doom-modeline-conditional-buffer-encoding) | |||||
| (map! :ne "M-/" #'comment-or-uncomment-region) | (map! :ne "M-/" #'comment-or-uncomment-region) | ||||
| (map! :ne "SPC / r" #'deadgrep) | (map! :ne "SPC / r" #'deadgrep) | ||||
| (map! :ne "SPC n b" #'org-brain-visualize) | (map! :ne "SPC n b" #'org-brain-visualize) | ||||
| (map! :ne "SPC i d" #'insert-current-date) | (map! :ne "SPC i d" #'insert-current-date) | ||||
| ;; (def-package! parinfer ; to configure it | |||||
| ;; :bind (("C-," . parinfer-toggle-mode) | |||||
| ;; ("<tab>" . parinfer-smart-tab:dwim-right) | |||||
| ;; ("S-<tab>" . parinfer-smart-tab:dwim-left)) | |||||
| ;; :hook ((clojure-mode emacs-lisp-mode common-lisp-mode lisp-mode) . parinfer-mode) | |||||
| ;; :config (setq parinfer-extensions '(defaults pretty-parens evil paredit))) | |||||
| (after! org | |||||
| (set-face-attribute 'org-link nil | |||||
| :weight 'normal | |||||
| :background nil) | |||||
| (set-face-attribute 'org-code nil | |||||
| :foreground "#a9a1e1" | |||||
| :background nil) | |||||
| (set-face-attribute 'org-date nil | |||||
| :foreground "#5B6268" | |||||
| :background nil) | |||||
| (set-face-attribute 'org-level-1 nil | |||||
| :foreground "steelblue2" | |||||
| :background nil | |||||
| :height 1.2 | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-level-2 nil | |||||
| :foreground "slategray2" | |||||
| :background nil | |||||
| :height 1.0 | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-level-3 nil | |||||
| :foreground "SkyBlue2" | |||||
| :background nil | |||||
| :height 1.0 | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-level-4 nil | |||||
| :foreground "DodgerBlue2" | |||||
| :background nil | |||||
| :height 1.0 | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-level-5 nil | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-level-6 nil | |||||
| :weight 'normal) | |||||
| (set-face-attribute 'org-document-title nil | |||||
| :foreground "SlateGray1" | |||||
| :background nil | |||||
| :height 1.75 | |||||
| :weight 'bold) | |||||
| (setq org-fancy-priorities-list '("⚡" "⬆" "⬇" "☕"))) | |||||
| (after! web-mode | |||||
| (add-to-list 'auto-mode-alist '("\\.njk\\'" . web-mode))) | |||||
| (defun +data-hideshow-forward-sexp (arg) | |||||
| (let ((start (current-indentation))) | |||||
| (forward-line) | |||||
| (unless (= start (current-indentation)) | |||||
| (require 'evil-indent-plus) | |||||
| (let ((range (evil-indent-plus--same-indent-range))) | |||||
| (goto-char (cadr range)) | |||||
| (end-of-line))))) | |||||
| (add-to-list 'hs-special-modes-alist '(yaml-mode "\\s-*\\_<\\(?:[^:]+\\)\\_>" "" "#" +data-hideshow-forward-sexp nil)) | |||||
| (setq org-directory "~/Documents/org/") | |||||
| ;; zoom in/out like we do everywhere else. | |||||
| (global-set-key (kbd "C-=") 'text-scale-increase) | |||||
| (global-set-key (kbd "C--") 'text-scale-decrease) | |||||
| (global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease) | |||||
| (global-set-key (kbd "<C-wheel-up>") 'text-scale-increase) | |||||
| (setq +magit-hub-features t) | (setq +magit-hub-features t) | ||||
| (setq calc-angle-mode 'rad ; radians are rad | |||||
| calc-symbolic-mode t) ; keeps expressions like \sqrt{2} irrational for as long as possible | |||||
| (use-package! calctex | |||||
| :commands calctex-mode | |||||
| :init | |||||
| (add-hook 'calc-mode-hook #'calctex-mode) | |||||
| :config | |||||
| (setq calctex-additional-latex-packages " | |||||
| \\usepackage[usenames]{xcolor} | |||||
| \\usepackage{soul} | |||||
| \\usepackage{adjustbox} | |||||
| \\usepackage{amsmath} | |||||
| \\usepackage{amssymb} | |||||
| \\usepackage{siunitx} | |||||
| \\usepackage{cancel} | |||||
| \\usepackage{mathtools} | |||||
| \\usepackage{mathalpha} | |||||
| \\usepackage{xparse} | |||||
| \\usepackage{arevmath}" | |||||
| calctex-additional-latex-macros | |||||
| (concat calctex-additional-latex-macros | |||||
| "\n\\let\\evalto\\Rightarrow")) | |||||
| (defadvice! no-messaging-a (orig-fn &rest args) | |||||
| :around #'calctex-default-dispatching-render-process | |||||
| (let ((inhibit-message t) message-log-max) | |||||
| (apply orig-fn args))) | |||||
| ;; Fix hardcoded dvichop path (whyyyyyyy) | |||||
| (let ((vendor-folder (concat (file-truename doom-local-dir) | |||||
| "straight/" | |||||
| (format "build-%s" emacs-version) | |||||
| "/calctex/vendor/"))) | |||||
| (setq calctex-dvichop-sty (concat vendor-folder "texd/dvichop") | |||||
| calctex-dvichop-bin (concat vendor-folder "texd/dvichop"))) | |||||
| (unless (file-exists-p calctex-dvichop-bin) | |||||
| (message "CalcTeX: Building dvichop binary") | |||||
| (let ((default-directory (file-name-directory calctex-dvichop-bin))) | |||||
| (call-process "make" nil nil nil)))) | |||||
| (defun greedily-do-daemon-setup () | |||||
| (require 'org) | |||||
| (when (require 'elfeed nil t) | |||||
| (run-at-time nil (* 8 60 60) #'elfeed-update))) | |||||
| ;; Open new clients in the dashboard | |||||
| (when (daemonp) | |||||
| (add-hook 'emacs-startup-hook #'greedily-do-daemon-setup) | |||||
| (add-hook! 'server-after-make-frame-hook (switch-to-buffer +doom-dashboard-name))) | |||||
| (set-popup-rule! "^\\*Org Agenda" :side 'bottom :size 0.90 :select t :ttl nil) | (set-popup-rule! "^\\*Org Agenda" :side 'bottom :size 0.90 :select t :ttl nil) | ||||
| (set-popup-rule! "^CAPTURE.*\\.org$" :side 'bottom :size 0.90 :select t :ttl nil) | |||||
| (set-popup-rule! "^\\*org-brain" :side 'right :size 1.00 :select t :ttl nil) | (set-popup-rule! "^\\*org-brain" :side 'right :size 1.00 :select t :ttl nil) | ||||
| (defun my-open-calendar () | |||||
| (sp-local-pair | |||||
| '(org-mode) | |||||
| "<<" ">>" | |||||
| :actions '(insert)) | |||||
| (setq +zen-text-scale 0.8) | |||||
| (use-package! lexic | |||||
| :commands lexic-search lexic-list-dictionary | |||||
| :config | |||||
| (map! :map lexic-mode-map | |||||
| :n "q" #'lexic-return-from-lexic | |||||
| :nv "RET" #'lexic-search-word-at-point | |||||
| :n "a" #'outline-show-all | |||||
| :n "h" (cmd! (outline-hide-sublevels 3)) | |||||
| :n "o" #'lexic-toggle-entry | |||||
| :n "n" #'lexic-next-entry | |||||
| :n "N" (cmd! (lexic-next-entry t)) | |||||
| :n "p" #'lexic-previous-entry | |||||
| :n "P" (cmd! (lexic-previous-entry t)) | |||||
| :n "E" (cmd! (lexic-return-from-lexic) ; expand | |||||
| (switch-to-buffer (lexic-get-buffer))) | |||||
| :n "M" (cmd! (lexic-return-from-lexic) ; minimise | |||||
| (lexic-goto-lexic)) | |||||
| :n "C-p" #'lexic-search-history-backwards | |||||
| :n "C-n" #'lexic-search-history-forwards | |||||
| :n "/" (cmd! (call-interactively #'lexic-search)))) | |||||
| (defadvice! +lookup/dictionary-definition-lexic (identifier &optional arg) | |||||
| :override #'+lookup/dictionary-definition | |||||
| (interactive | |||||
| (list (or (doom-thing-at-point-or-region 'word) | |||||
| (read-string "Look up in dictionary: ")) | |||||
| current-prefix-arg)) | |||||
| (lexic-search identifier nil nil t)) | |||||
| ;; Hooks | |||||
| (add-hook 'nand-hdl-mode-hook 'yas-minor-mode) | |||||
| (defun after-org-mode-load () | |||||
| (interactive) | (interactive) | ||||
| (cfw:open-calendar-buffer | |||||
| :contents-sources | |||||
| (list | |||||
| (cfw:org-create-source "Green") ; org-agenda source | |||||
| ))) | |||||
| (setq olivetti-body-width 0.8) | |||||
| (olivetti-mode) | |||||
| ) | |||||
| (add-hook! 'org-mode-hook 'after-org-mode-load) | |||||
| ;; Auto-Insert | |||||
| (autoload 'yas-expand-snippet "yasnippet") | |||||
| (defun my-autoinsert-yas-expand() | |||||
| "Replace text in yasnippet template." | |||||
| (yas-expand-snippet (buffer-string) (point-min) (point-max))) | |||||
| (setq-default auto-insert-directory "~/.config/doom/templates") | |||||
| (auto-insert-mode 1) ;;; Adds hook to find-files-hook | |||||
| (setq-default auto-insert-query nil) ;;; If you don't want to be prompted before insertion | |||||
| (define-auto-insert "\\.el$" ["template.el" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.c$" ["template.c" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.cpp$" ["template.cpp" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.h$" ["template.h" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.cc$" ["template.cpp" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.tex$" ["template.tex" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.org$" ["template.org" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.py$" ["template.py" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.java$" ["template.java" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.sh$" ["template.sh" my-autoinsert-yas-expand]) | |||||
| (define-auto-insert "\\.html$" ["template.html" my-autoinsert-yas-expand]) | |||||
| (setq yas-snippet-dirs | |||||
| '("~/.config/doom/snippets")) | |||||
| ;; Appearance | |||||
| (delq! t custom-theme-load-path) ;; Don't prompt on startup | |||||
| (setq doom-theme 'doom-material-ocean) | |||||
| (setq | |||||
| doom-big-font (font-spec :family "CasaydiaCove Nerd Font" :size 22) | |||||
| doom-font (font-spec :family "CaskaydiaCove Nerd Font" :size 16) | |||||
| doom-variable-pitch-font (font-spec :family "Overpass" :size 16) | |||||
| doom-unicode-font (font-spec :family "JuliaMono") | |||||
| doom-serif-font (font-spec :family "IBM Plex Mono" :weight 'light)) | |||||
| (setq +doom-dashboard-banner-file (expand-file-name "logo.png" doom-private-dir)) | |||||
+ 46
- 0
.config/doom/custom.el
View File
| @ -0,0 +1,46 @@ | |||||
| (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. | |||||
| '(ansi-color-names-vector | |||||
| ["#1E1C31" "#FF8080" "#95FFA4" "#FFE9AA" "#91DDFF" "#C991E1" "#AAFFE4" "#CBE3E7"]) | |||||
| '(custom-safe-themes | |||||
| '("01d5e0971bfe4b70669ba03f632c68ac7e5b9e0bc5eaf760a780d88ca271dae2" default)) | |||||
| '(fci-rule-color "#858FA5") | |||||
| '(jdee-db-active-breakpoint-face-colors (cons "#100E23" "#906CFF")) | |||||
| '(jdee-db-requested-breakpoint-face-colors (cons "#100E23" "#95FFA4")) | |||||
| '(jdee-db-spec-breakpoint-face-colors (cons "#100E23" "#565575")) | |||||
| '(objed-cursor-color "#FF8080") | |||||
| '(pdf-view-midnight-colors (cons "#CBE3E7" "#1E1C31")) | |||||
| '(rustic-ansi-faces | |||||
| ["#1E1C31" "#FF8080" "#95FFA4" "#FFE9AA" "#91DDFF" "#C991E1" "#AAFFE4" "#CBE3E7"]) | |||||
| '(vc-annotate-background "#1E1C31") | |||||
| '(vc-annotate-color-map | |||||
| (list | |||||
| (cons 20 "#95FFA4") | |||||
| (cons 40 "#b8f7a6") | |||||
| (cons 60 "#dbf0a8") | |||||
| (cons 80 "#FFE9AA") | |||||
| (cons 100 "#ffd799") | |||||
| (cons 120 "#ffc488") | |||||
| (cons 140 "#FFB378") | |||||
| (cons 160 "#eda79b") | |||||
| (cons 180 "#db9cbd") | |||||
| (cons 200 "#C991E1") | |||||
| (cons 220 "#db8bc0") | |||||
| (cons 240 "#ed85a0") | |||||
| (cons 260 "#FF8080") | |||||
| (cons 280 "#d4757d") | |||||
| (cons 300 "#aa6a7a") | |||||
| (cons 320 "#805f77") | |||||
| (cons 340 "#858FA5") | |||||
| (cons 360 "#858FA5"))) | |||||
| '(vc-annotate-very-old-color nil)) | |||||
| (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. | |||||
| ) | |||||
| (put 'projectile-ripgrep 'disabled nil) | |||||
+ 48
- 29
.config/doom/init.el
View File
+ 913
- 0
.config/doom/lisp/bison-mode.el
View File
| @ -0,0 +1,913 @@ | |||||
| ;;; bison-mode.el --- Major mode for editing bison, yacc and lex files. | |||||
| ;; Copyright (C) 1998 Eric Beuscher | |||||
| ;; | |||||
| ;; Author: Eric Beuscher <beuscher@eecs.tulane.edu> | |||||
| ;; Created: 2 Feb 1998 | |||||
| ;; Version: 0.2 | |||||
| ;; Keywords: bison-mode, yacc-mode | |||||
| ;; This program is free software; you can redistribute it and/or modify | |||||
| ;; it under the terms of the GNU General Public License as published by | |||||
| ;; the Free Software Foundation; either version 2 of the License, or | |||||
| ;; (at your option) any later version. | |||||
| ;; This program is distributed in the hope that it will be useful, | |||||
| ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |||||
| ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||||
| ;; GNU General Public License for more details. | |||||
| ;;; Commentary: | |||||
| ;;;; I wrote this since I saw one mode for yacc files out there roaming the | |||||
| ;;;; world. I was daunted by the fact the it was written in 1990, and Emacs | |||||
| ;;;; has evolved so much since then (this I assume based on its evolution since | |||||
| ;;;; i started using it). So I figured if i wanted one, I should make it | |||||
| ;;;; myself. Please excuse idiosyncrasies, as this was my first major mode | |||||
| ;;;; of this kind. The indentation code may be a bit weird, I am not sure, | |||||
| ;;;; it was my first go at doing Emacs indentation, so I look at how other | |||||
| ;;;; modes did it, but then basically did what I thought was right | |||||
| ;;;; I hope this is useful to other hackers, and happy Bison/Yacc hacking | |||||
| ;;;; If you have ideas/suggestions/problems with this code, I can be reached at | |||||
| ;;;; beuscher@eecs.tulane.edu | |||||
| ;;;; Eric --- Sat Mar 7 1:40:20 CDT 1998 | |||||
| ;;;; Bison Sections: | |||||
| ;;;; there are five sections to a bison file (if you include the area above the | |||||
| ;;;; C declarations section. most everything in this file either does | |||||
| ;;;; actions based on which section you are deemed to be in, or based on an | |||||
| ;;;; assumption that the function will only be called from certain sections. | |||||
| ;;;; the function `bison--section-p' is the section parser | |||||
| ;;;; Indentation: | |||||
| ;;;; indentations are done based on the section of code you are in. there is | |||||
| ;;;; a procedure `bison--within-braced-c-expression-p' that checks for being in | |||||
| ;;;; C code. if you are within c-code, indentations should occur based on | |||||
| ;;;; how you have your C indentation set up. i am pretty sure this is the | |||||
| ;;;; case. | |||||
| ;;;; there are four variables, which control bison indentation within either | |||||
| ;;;; the bison declarations section or the bison grammar section | |||||
| ;;;; `bison-rule-separator-column' | |||||
| ;;;; `bison-rule-separator-column' | |||||
| ;;;; `bison-decl-type-column' | |||||
| ;;;; `bison-decl-token-column' | |||||
| ;;;; flaw: indentation works on a per-line basis, unless within braced C sexp, | |||||
| ;;;; i should fix this someday | |||||
| ;;;; and to make matters worse, i never took out c-indent-region, so that is | |||||
| ;;;; still the state of the `indent-region-function' variable | |||||
| ;;;; Electricity: | |||||
| ;;;; by default, there are electric -colon, -pipe, -open-brace, -close-brace, | |||||
| ;;;; -semicolon, -percent, -less-than, -greater-than | |||||
| ;;;; the indentation caused by these work closely with the 4 indentation | |||||
| ;;;; variables mentioned above. | |||||
| ;;;; any of these can be turned off individually by setting the appropriate | |||||
| ;;;; `bison-electric-...' variable. or all of them can be turned off by | |||||
| ;;;; setting `bison-all-electricity-off' | |||||
| ;;;; todo: should make available a way to use C-electricity if in C sexps | |||||
| ;;; Code: | |||||
| (require 'cc-mode) | |||||
| ;;;###autoload | |||||
| (add-to-list 'auto-mode-alist '("\\.y\\'" . bison-mode)) | |||||
| ;;;###autoload | |||||
| (add-to-list 'auto-mode-alist '("\\.l\\'" . flex-mode)) | |||||
| ;;;###autoload | |||||
| (add-to-list 'auto-mode-alist '("\\.jison\\'" . jison-mode)) | |||||
| ;; *************** internal vars *************** | |||||
| (defvar bison--declarers '("%union" "%token" "%type" | |||||
| "%left" "%right" "%nonassoc") | |||||
| "commands which can declare a token or state type") | |||||
| (defvar bison--word-constituent-re "\\(\\sw\\|_\\)") | |||||
| (defvar bison--production-re | |||||
| (concat "^" bison--word-constituent-re "+:")) | |||||
| (defvar bison--pre-c-decls-section 0 | |||||
| "section before c-declarations-section, if that section exists") | |||||
| (defvar bison--c-decls-section 1 | |||||
| "section denoted by %{ and $} for c-declarations at the top of a bison file") | |||||
| (defvar bison--bison-decls-section 2 | |||||
| "section before the rules section") | |||||
| (defvar bison--grammar-rules-section 3 | |||||
| "section delimited by %%'s where productions and rules are enumerated") | |||||
| (defvar bison--c-code-section 4 | |||||
| "section after the second %% where c-code can be placed") | |||||
| (defvar bison--c-decls-section-opener "%{") | |||||
| (defvar bison--c-decls-section-closer "%}") | |||||
| (defvar bison--grammar-rules-section-delimeter "%%") | |||||
| ;; *************** user-definable vars *************** | |||||
| (defvar bison-rule-separator-column 8 | |||||
| "column for rule and production separators \"|\" and \";\"") | |||||
| (defvar bison-rule-enumeration-column 16 | |||||
| "column for beginning enumeration of a production's rules") | |||||
| (defvar bison-decl-type-column 8 | |||||
| "columnn in which tokens' and states' types should be when declared") | |||||
| (defvar bison-decl-token-column 24 | |||||
| "column in which tokens and states are listed when declared, | |||||
| as with %token, %type, ...") | |||||
| (defvar bison-all-electricity-off nil | |||||
| "non-nil means all electric keys will be disabled, | |||||
| nil means that a bison-electric-* key will be on or off based on the individual | |||||
| key's electric variable") | |||||
| ;;; i know lisp has the dual name spaces, but i find it more aesthetically | |||||
| ;;; pleasing to not take advantage of that | |||||
| (defvar bison-electric-colon-v t | |||||
| "non-nil means use an electric colon") | |||||
| (defvar bison-electric-pipe-v t | |||||
| "non-nil means use an electric pipe") | |||||
| (defvar bison-electric-open-brace-v t | |||||
| "non-nil means use an electric open-brace") | |||||
| (defvar bison-electric-close-brace-v t | |||||
| "non-nil means use an electric close-brace") | |||||
| (defvar bison-electric-semicolon-v t | |||||
| "non-nil means use an electric semicolon") | |||||
| (defvar bison-electric-percent-v t | |||||
| "non-nil means use an electric percent") | |||||
| (defvar bison-electric-less-than-v t | |||||
| "non-nil means use an electric less-than") | |||||
| (defvar bison-electric-greater-than-v t | |||||
| "non-nil means use an electric greater-than") | |||||
| (defconst bison-font-lock-keywords | |||||
| (append | |||||
| (list | |||||
| (cons (concat "^\\(" (regexp-opt bison--declarers) "\\)") | |||||
| '(1 font-lock-keyword-face)) | |||||
| ) | |||||
| c-font-lock-keywords) | |||||
| "Default expressions to highlight in Bison mode") | |||||
| ;; *************** utilities *************** | |||||
| (defun just-no-space () | |||||
| "Delete all spaces and tabs around point, leaving no spaces." | |||||
| (interactive "*") | |||||
| (skip-chars-backward " \t") | |||||
| (delete-region (point) (progn (skip-chars-forward " \t") (point))) | |||||
| t) | |||||
| (defun previous-white-space-p () | |||||
| "return t if there is whitespace between the beginning of the line and the | |||||
| current (point)" | |||||
| (save-excursion | |||||
| (let ((current-point (point))) | |||||
| (beginning-of-line) | |||||
| (if (re-search-forward "\\s " current-point t) | |||||
| t | |||||
| nil)))) | |||||
| (defun previous-non-ws-p () | |||||
| "return t if there are non-whitespace characters between beginning of line | |||||
| and \(point\)" | |||||
| (save-excursion | |||||
| (let ((current-point (point))) | |||||
| (beginning-of-line) | |||||
| (re-search-forward "[^ \t]" current-point t) | |||||
| ))) | |||||
| (defun following-non-ws-p () | |||||
| "return t if there are non-whitespace characters on the line" | |||||
| (save-excursion | |||||
| (let ((current-point (point))) | |||||
| (end-of-line) | |||||
| (re-search-backward "[^ \t]+" current-point t) | |||||
| ))) | |||||
| (defun line-of-whitespace-p () | |||||
| "return t if the line consists of nothiing but whitespace, nil otherwise" | |||||
| (save-excursion | |||||
| (let ((eol (progn (end-of-line) (point)))) | |||||
| (beginning-of-line) ;; should already be there anyway | |||||
| (not (re-search-forward "[^ \t\n]" eol t))))) | |||||
| ;; *************** bison-mode *************** | |||||
| ;;;###autoload | |||||
| (define-derived-mode bison-mode c-mode "Bison" | |||||
| "Major mode for editing bison/yacc files." | |||||
| ;; try to set the indentation correctly | |||||
| (setq c-basic-offset 4) | |||||
| (c-set-offset 'knr-argdecl-intro 0) | |||||
| ;; remove auto and hungry anything | |||||
| (c-toggle-auto-hungry-state -1) | |||||
| (c-toggle-auto-newline -1) | |||||
| (c-toggle-hungry-state -1) | |||||
| (use-local-map bison-mode-map) | |||||
| (define-key bison-mode-map ":" 'bison-electric-colon) | |||||
| (define-key bison-mode-map "|" 'bison-electric-pipe) | |||||
| (define-key bison-mode-map "{" 'bison-electric-open-brace) | |||||
| (define-key bison-mode-map "}" 'bison-electric-close-brace) | |||||
| (define-key bison-mode-map ";" 'bison-electric-semicolon) | |||||
| (define-key bison-mode-map "%" 'bison-electric-percent) | |||||
| (define-key bison-mode-map "<" 'bison-electric-less-than) | |||||
| (define-key bison-mode-map ">" 'bison-electric-greater-than) | |||||
| (define-key bison-mode-map [tab] 'bison-indent-line) | |||||
| (make-local-variable 'indent-line-function) | |||||
| (setq indent-line-function 'bison-indent-new-line) | |||||
| (make-local-variable 'comment-start) | |||||
| (make-local-variable 'comment-end) | |||||
| (setq comment-start "/*" | |||||
| comment-end "*/") | |||||
| (make-local-variable 'font-lock-keywords) | |||||
| (setq font-lock-keywords nil) | |||||
| (set (make-local-variable 'font-lock-defaults) '(bison-font-lock-keywords))) | |||||
| ;; *************** section parsers *************** | |||||
| (defun bison--section-p () | |||||
| "Return the section that user is currently in" | |||||
| (save-excursion | |||||
| (let ((bound (point))) | |||||
| (goto-char (point-min)) | |||||
| (bison--section-p-helper bound)))) | |||||
| (defun bison--section-p-helper (bound) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--c-decls-section-opener) | |||||
| bound t) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--c-decls-section-closer) | |||||
| bound t) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| bound t) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| bound t) | |||||
| bison--c-code-section | |||||
| bison--grammar-rules-section) | |||||
| bison--bison-decls-section) | |||||
| bison--c-decls-section) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| bound t) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| bound t) | |||||
| bison--c-code-section | |||||
| bison--grammar-rules-section) | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--c-decls-section-opener) | |||||
| nil t) | |||||
| bison--pre-c-decls-section | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| nil t) | |||||
| bison--bison-decls-section | |||||
| bison--pre-c-decls-section))))) | |||||
| ;; *************** syntax parsers *************** | |||||
| (defun bison--production-p () | |||||
| "return t if the \(point\) rests immediately after a production" | |||||
| (save-excursion | |||||
| (let ((current-point (point))) | |||||
| (beginning-of-line) | |||||
| (let ((position (re-search-forward | |||||
| bison--production-re current-point t))) | |||||
| (and position | |||||
| (not (previous-white-space-p)) | |||||
| (= position current-point)))))) | |||||
| (defun bison--find-production-opener () | |||||
| "return and goto the point of the nearest production opener above \(point\)" | |||||
| (re-search-backward bison--production-re nil t)) | |||||
| (defun bison--find-next-production () | |||||
| "return the position of the beginning of the next production, | |||||
| or nil if there isnt one" | |||||
| (save-excursion | |||||
| (if (re-search-forward bison--production-re nil t) | |||||
| (progn | |||||
| (beginning-of-line) | |||||
| (point)) | |||||
| nil))) | |||||
| (defun bison--find-grammar-end () | |||||
| "return the position of the end of the grammar rules (assuming we are within | |||||
| the grammar rules section), or nil if there isnt one" | |||||
| (save-excursion | |||||
| (if (re-search-forward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| nil t) | |||||
| (progn | |||||
| (beginning-of-line) | |||||
| (point)) | |||||
| nil))) | |||||
| (defun bison--find-grammar-begin () | |||||
| "return the position of the beginning of the grammar rules (assuming we are | |||||
| within the grammar rules section), or nil if there isnt one" | |||||
| (save-excursion | |||||
| (if (re-search-backward | |||||
| (concat "^" bison--grammar-rules-section-delimeter) | |||||
| nil t) | |||||
| (point) | |||||
| nil))) | |||||
| (defun bison--within-started-production-p () | |||||
| "is used by bison-electric-* functions to determine actions | |||||
| return t if within a production, nil if not | |||||
| a point is within a production if there is some non whitespace text before | |||||
| either the beginnings of another production or the end of the grammar rules" | |||||
| (save-excursion | |||||
| (let ((bound (cond ((bison--find-next-production)) | |||||
| ((bison--find-grammar-end)) | |||||
| (t nil)))) | |||||
| (if bound | |||||
| (let ((sval (re-search-forward | |||||
| (concat "\\(\\s \\|" ;; whitespace or | |||||
| ;; comments | |||||
| (regexp-quote comment-start) | |||||
| "\\(.\\|\n\\)*" ;; comment body | |||||
| (regexp-quote comment-end) | |||||
| "\\)+") ;; end or | |||||
| bound t))) | |||||
| (if sval | |||||
| (not (= sval bound)) | |||||
| nil)) | |||||
| nil)))) | |||||
| (defun bison--within-some-sexp-p (starter ender) | |||||
| "return t if the \(point\) is within the sexp marked by the re's STARTER and | |||||
| ENDER" | |||||
| (save-excursion | |||||
| (let ((current-point (point))) | |||||
| (if (re-search-backward starter nil t) ;; find nearest starter | |||||
| ;; look for ender, if found, then not within sexp | |||||
| (progn | |||||
| (goto-char (match-end 0)) | |||||
| (not (re-search-forward ender current-point t))))))) | |||||
| (defun bison--within-c-comment-p () | |||||
| "return t if the point is within a c comment delimited by \"/*\" \"*/\"" | |||||
| (bison--within-some-sexp-p (regexp-quote comment-start) | |||||
| (regexp-quote comment-end))) | |||||
| (defun bison--within-string-p (&optional point) | |||||
| " | |||||
| start from the beginning of the buffer and toggle state as un-escaped \"'s are | |||||
| found." | |||||
| (let ((point (or point (point))) | |||||
| (in-p nil)) | |||||
| (save-excursion | |||||
| (goto-char (point-min)) | |||||
| (while (re-search-forward "[^\\]\"" point t) | |||||
| (setq in-p (not in-p))) | |||||
| in-p))) | |||||
| ;;; bison--within-braced-c-expression-p | |||||
| ;;; new and improved, no more recursion, does not break when literal strings | |||||
| ;;; contain un-matched braces | |||||
| (defun bison--within-braced-c-expression-p (section) | |||||
| "return t if the point is within an sexp delimited by braces \({,}\) | |||||
| " | |||||
| (save-excursion | |||||
| (bison--within-braced-c-expression-p-h section (point)))) | |||||
| (defun bison--within-braced-c-expression-p-h (section low-pt) | |||||
| " | |||||
| Notes: | |||||
| save excursion is done higher up, so i dont concern myself here. | |||||
| " | |||||
| (cond ((= section bison--pre-c-decls-section) nil) | |||||
| ((= section bison--c-decls-section) | |||||
| (let ((opener (save-excursion (search-backward "%{")))) | |||||
| (bison--within-braced-c-expression-p-h-h opener low-pt))) | |||||
| ((= section bison--bison-decls-section) | |||||
| (let ((opener (save-excursion | |||||
| (or (search-backward "%}" nil t) | |||||
| (point-min))))) | |||||
| (bison--within-braced-c-expression-p-h-h opener low-pt))) | |||||
| ((= section bison--grammar-rules-section) | |||||
| (let ((opener (save-excursion (bison--find-production-opener)))) | |||||
| (if opener | |||||
| (bison--within-braced-c-expression-p-h-h opener low-pt) | |||||
| nil))) | |||||
| ((= section bison--c-code-section) | |||||
| t))) | |||||
| (defun bison--within-braced-c-expression-p-h-h (high-pt low-pt) | |||||
| " | |||||
| Notes: | |||||
| HIGH-PT goes toward (point-min), LOW-PT goes toward (point-max) | |||||
| save excursion is done higher up, so i dont concern myself here. | |||||
| " | |||||
| (let ((pt (point))) | |||||
| (let ((success nil) (count 1) (done nil)) | |||||
| ;; loop until open brace found, that is not in comment or string literal | |||||
| (while (and (not done) | |||||
| (re-search-backward "[^%]{" high-pt t count)) ;find nearest | |||||
| ;starter | |||||
| (goto-char (match-end 0)) | |||||
| (if (or (bison--within-c-comment-p) | |||||
| (bison--within-string-p)) | |||||
| (setq count (+ count 1)) | |||||
| (progn | |||||
| (setq success t) | |||||
| (setq done t)))) | |||||
| (if success | |||||
| (let ((end-pt | |||||
| (condition-case nil | |||||
| (progn | |||||
| (backward-char) | |||||
| (forward-sexp) | |||||
| (point)) | |||||
| (error nil)))) | |||||
| (if end-pt | |||||
| (if (> end-pt low-pt) | |||||
| t ; then in braced-c-exp | |||||
| nil) | |||||
| t)) ; if no sexp close brace, then w/in | |||||
| nil)))) | |||||
| (defun bison--bison-decl-opener-p (bol eol) | |||||
| "return t if the current line is a bison declaration starter | |||||
| \(i.e. has a %type, %token, %right, ...\)" | |||||
| (save-excursion | |||||
| (goto-char bol) | |||||
| (re-search-forward | |||||
| (concat "^" (regexp-opt (copy-sequence bison--declarers))) eol t))) | |||||
| (defun bison--production-opener-p (bol eol) | |||||
| "return t if the current line is a line that introduces a new production" | |||||
| (save-excursion | |||||
| (goto-char bol) | |||||
| (re-search-forward bison--production-re eol t))) | |||||
| (defun bison--find-bison-semicolon () | |||||
| "return the position of next semicolon not within braces, nil otherwise" | |||||
| (save-excursion | |||||
| (if (search-forward ";" nil t) | |||||
| (if (not (bison--within-braced-c-expression-p (bison--section-p))) | |||||
| (point) | |||||
| (bison--find-bison-semicolon)) | |||||
| nil))) | |||||
| (defun bison--within-production-body-p (section) | |||||
| "return t if the \(point\) is within the body of a production | |||||
| this procedure will fail if it is in a production header" | |||||
| (save-excursion | |||||
| (if (= section bison--grammar-rules-section) | |||||
| (let ((current-point (point))) | |||||
| (if (re-search-backward bison--production-re nil t) | |||||
| t | |||||
| nil)) | |||||
| nil))) | |||||
| (defun bison--production-alternative-p (bol eol section) | |||||
| "return t if the current line contains a \"|\" used to designate a rule | |||||
| alternative" | |||||
| (save-excursion | |||||
| (goto-char bol) | |||||
| (if (search-forward "|" eol t) | |||||
| (not (bison--within-braced-c-expression-p section)) | |||||
| nil))) | |||||
| ;; *************** indent functions *************** | |||||
| (defun bison--handle-indent-c-sexp (section indent-column bol) | |||||
| (let* ((o-brace (re-search-backward "[^%]{" bol t)) | |||||
| ) | |||||
| (if o-brace | |||||
| (if (save-excursion | |||||
| (goto-char o-brace) | |||||
| (bison--within-braced-c-expression-p section)) | |||||
| (c-indent-line) | |||||
| (if (= (current-indentation) o-brace) ;; if o-brace is first char | |||||
| (if (not (= o-brace indent-column)) ;; but not in right spot | |||||
| (progn | |||||
| (back-to-indentation) | |||||
| (just-no-space) | |||||
| (indent-to-column indent-column)) | |||||
| ;; else all is good | |||||
| ) | |||||
| ;; else, non-ws before o-brace, leave it alone | |||||
| )) | |||||
| (c-indent-line)))) | |||||
| (defun bison-indent-new-line (&optional c-sexp) | |||||
| "Indent a fresh line of bison code | |||||
| assumes indenting a new line, i.e. at column 0 | |||||
| " | |||||
| (interactive) | |||||
| (let* ((section (bison--section-p)) | |||||
| (c-sexp (or c-sexp (bison--within-braced-c-expression-p section))) | |||||
| ) | |||||
| (cond | |||||
| (c-sexp | |||||
| (cond | |||||
| ((= section bison--grammar-rules-section) | |||||
| (c-indent-line | |||||
| (save-excursion | |||||
| (forward-line -1) | |||||
| (let ((bol (save-excursion (beginning-of-line) (point))) | |||||
| (eol (save-excursion (end-of-line) (point)))) | |||||
| (if (bison--production-opener-p bol eol) | |||||
| (list | |||||
| (cons 'defun-block-intro | |||||
| (progn | |||||
| (re-search-forward bison--production-re) ; SIGERR | |||||
| (- (re-search-forward "[^ \t]") ; SIGERR | |||||
| 1)))) | |||||
| nil))))) | |||||
| (t (c-indent-line)))) | |||||
| ((= section bison--pre-c-decls-section) | |||||
| (c-indent-line)) | |||||
| ((= section bison--bison-decls-section) | |||||
| (indent-to-column bison-decl-token-column)) | |||||
| ((= section bison--grammar-rules-section) | |||||
| (indent-to-column | |||||
| (save-excursion | |||||
| (let* ((bound (or (save-excursion (bison--find-production-opener)) | |||||
| (bison--find-grammar-begin))) | |||||
| (prev-semi (search-backward ";" bound t)) | |||||
| ) | |||||
| (if prev-semi | |||||
| (if (bison--within-braced-c-expression-p section) ; CRACK | |||||
| bison-rule-enumeration-column | |||||
| 0) | |||||
| (if (save-excursion (bison--find-production-opener)) | |||||
| bison-rule-enumeration-column | |||||
| 0)))))) | |||||
| ((= section bison--c-code-section)) ;;leave-alone | |||||
| ))) | |||||
| (defun bison-indent-line () | |||||
| "Indent a line of bison code." | |||||
| (interactive) | |||||
| (let* ((pos (- (point-max) (point))) | |||||
| (reset-pt (function (lambda () | |||||
| (if (> (- (point-max) pos) (point)) | |||||
| (goto-char (- (point-max) pos)))))) | |||||
| (bol (save-excursion (beginning-of-line) (point))) | |||||
| (eol (save-excursion (end-of-line) (point))) | |||||
| ) | |||||
| (let* ((section (bison--section-p)) | |||||
| (c-sexp (bison--within-braced-c-expression-p section)) | |||||
| (ws-line (line-of-whitespace-p)) | |||||
| ) | |||||
| (cond | |||||
| ;; if you are a line of whitespace, let indent-new-line take care of it | |||||
| (ws-line | |||||
| (bison-indent-new-line c-sexp)) | |||||
| ((= section bison--pre-c-decls-section) | |||||
| ;; leave things alone | |||||
| ) | |||||
| ((= section bison--c-decls-section) | |||||
| (if c-sexp | |||||
| (bison--handle-indent-c-sexp section 0 bol) | |||||
| (if (not (= (current-indentation) 0)) | |||||
| (progn | |||||
| (back-to-indentation) | |||||
| (just-no-space) | |||||
| (funcall reset-pt))))) | |||||
| ((= section bison--bison-decls-section) | |||||
| (let ((opener (bison--bison-decl-opener-p bol eol))) | |||||
| (cond | |||||
| (opener | |||||
| (goto-char opener) | |||||
| (skip-chars-forward " \t" eol) | |||||
| (if (looking-at "{") | |||||
| (save-excursion | |||||
| (if (following-non-ws-p) | |||||
| (progn | |||||
| (forward-char 1) | |||||
| (just-no-space) | |||||
| (newline) | |||||
| (bison-indent-new-line t)))) | |||||
| (let ((complete-type t)) | |||||
| (if (looking-at "<") | |||||
| (progn | |||||
| (setq complete-type nil) | |||||
| (if (not (= (current-column) bison-decl-type-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-decl-type-column)) | |||||
| (and (re-search-forward | |||||
| (concat "<" bison--word-constituent-re "+>") | |||||
| eol t) | |||||
| (setq complete-type t))))) | |||||
| (and complete-type | |||||
| (skip-chars-forward " \t" eol) | |||||
| (looking-at | |||||
| (concat "\\(" bison--word-constituent-re "\\|'\\)")) | |||||
| (if (not (= (current-column) bison-decl-token-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-decl-token-column)))))) | |||||
| (funcall reset-pt)) | |||||
| (c-sexp | |||||
| (bison--handle-indent-c-sexp section 0 bol)) | |||||
| (t | |||||
| (back-to-indentation) | |||||
| ;; only tab in names, leave comments alone | |||||
| (cond (;; put word-constiuents in bison-decl-token-column | |||||
| (looking-at bison--word-constituent-re) | |||||
| (if (not (= (current-column) bison-decl-token-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-decl-token-column)))) | |||||
| ;; put/keep close-brace in the 0 column | |||||
| ((looking-at "}") | |||||
| (if (not (= (current-column) 0)) | |||||
| (just-no-space))) | |||||
| ;; leave comments alone | |||||
| ((looking-at (regexp-quote comment-start)) nil) | |||||
| ;; else do nothing | |||||
| ) | |||||
| (funcall reset-pt))))) | |||||
| ((= section bison--grammar-rules-section) | |||||
| (cond | |||||
| ((bison--production-opener-p bol eol) | |||||
| (beginning-of-line) | |||||
| (re-search-forward bison--production-re);; SIGERR | |||||
| (if (following-non-ws-p) | |||||
| (if (> (current-column) bison-rule-enumeration-column) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (newline) | |||||
| (indent-to-column bison-rule-enumeration-column)) | |||||
| (save-excursion | |||||
| (re-search-forward bison--word-constituent-re);; SIGERR | |||||
| (let ((col (current-column))) | |||||
| (cond ((> col (+ 1 bison-rule-enumeration-column)) | |||||
| (forward-char -1) | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-enumeration-column)) | |||||
| ((< col (+ 1 bison-rule-enumeration-column)) | |||||
| (forward-char -1) | |||||
| (indent-to-column | |||||
| bison-rule-enumeration-column))))))) | |||||
| (funcall reset-pt)) | |||||
| ((bison--production-alternative-p bol eol section) | |||||
| (back-to-indentation);; should put point on "|" | |||||
| (if (not (= (current-column) bison-rule-separator-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-separator-column))) | |||||
| (forward-char 1) | |||||
| (if (following-non-ws-p) | |||||
| (save-excursion | |||||
| (re-search-forward bison--word-constituent-re);; SIGERR | |||||
| (let ((col (current-column))) | |||||
| (cond ((> col (+ 1 bison-rule-enumeration-column)) | |||||
| (forward-char -1) | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-enumeration-column)) | |||||
| ((< col (+ 1 bison-rule-enumeration-column)) | |||||
| (forward-char -1) | |||||
| (indent-to-column | |||||
| bison-rule-enumeration-column)))))) | |||||
| (funcall reset-pt)) | |||||
| (c-sexp | |||||
| (bison--handle-indent-c-sexp | |||||
| section bison-rule-enumeration-column bol) | |||||
| (funcall reset-pt)) | |||||
| ((bison--within-production-body-p section) | |||||
| (back-to-indentation) | |||||
| (if (not (= (current-column) bison-rule-enumeration-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column | |||||
| bison-rule-enumeration-column))) | |||||
| (funcall reset-pt)) | |||||
| (t | |||||
| (let ((cur-ind (current-indentation))) | |||||
| (if (eq (save-excursion (search-backward "}" bol t)) | |||||
| cur-ind) | |||||
| (if (not (= cur-ind bison-rule-enumeration-column)) | |||||
| (progn | |||||
| (back-to-indentation) | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-enumeration-column) | |||||
| (funcall reset-pt))) | |||||
| ;; else leave alone | |||||
| ))))) | |||||
| ((= section bison--c-code-section) | |||||
| (c-indent-line)) | |||||
| )))) | |||||
| ;; *************** electric-functions *************** | |||||
| (defun bison-electric-colon (arg) | |||||
| "If the colon <:> delineates a production, | |||||
| then insert a semicolon on the next line in the BISON-RULE-SEPARATOR-COLUMN, | |||||
| put the cursor in the BISON-RULE-ENUMERATION-COLUMN for the beginning | |||||
| of the rule | |||||
| else just run self-insert-command | |||||
| A colon delineates a production by the fact that it is immediately preceded by | |||||
| a word(alphanumerics or '_''s), and there is no previous white space. | |||||
| " | |||||
| (interactive "P") | |||||
| (self-insert-command (prefix-numeric-value arg)) | |||||
| (if (and bison-electric-colon-v | |||||
| (not bison-all-electricity-off)) | |||||
| (if (and (= bison--grammar-rules-section (bison--section-p)) | |||||
| (bison--production-p) | |||||
| (not (bison--within-started-production-p))) | |||||
| (progn | |||||
| (save-excursion ; put in a closing semicolon | |||||
| (newline) | |||||
| (indent-to-column bison-rule-separator-column) | |||||
| (insert ";")) | |||||
| (save-excursion ; remove opening whitespace | |||||
| (if (re-search-backward | |||||
| "\\s " | |||||
| (save-excursion (beginning-of-line) (point)) | |||||
| t) | |||||
| (just-no-space))) | |||||
| (if (not (< (current-column) bison-rule-enumeration-column)) | |||||
| (newline)) | |||||
| (indent-to-column bison-rule-enumeration-column))))) | |||||
| (defun bison-electric-pipe (arg) | |||||
| "If the pipe <|> is used as a rule separator within a production, | |||||
| then move it into BISON-RULE-SEPARATOR-COLUMN | |||||
| indent to BISON-RULE-ENUMERATION-COLUMN on the same line | |||||
| else just run self-insert-command | |||||
| " | |||||
| (interactive "P") | |||||
| (if (and bison-electric-pipe-v | |||||
| (not bison-all-electricity-off) | |||||
| (= bison--grammar-rules-section (bison--section-p)) | |||||
| (line-of-whitespace-p) | |||||
| ) | |||||
| (progn | |||||
| (beginning-of-line) | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-separator-column) | |||||
| (self-insert-command (prefix-numeric-value arg)) | |||||
| (indent-to-column bison-rule-enumeration-column) | |||||
| ) | |||||
| (self-insert-command (prefix-numeric-value arg)))) | |||||
| (defun bison-electric-open-brace (arg) | |||||
| "used for the opening brace of a C action definition for production rules, | |||||
| if there is only whitespace before \(point\), then put open-brace in | |||||
| bison-rule-enumeration-column" | |||||
| (interactive "P") | |||||
| (if (and bison-electric-open-brace-v | |||||
| (not bison-all-electricity-off)) | |||||
| (let ((section (bison--section-p))) | |||||
| (cond ((and (= section bison--grammar-rules-section) | |||||
| (not (bison--within-braced-c-expression-p section)) | |||||
| (not (previous-non-ws-p))) | |||||
| (if (not (= (current-column) bison-rule-enumeration-column)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-rule-enumeration-column)))) | |||||
| ((and (= section bison--bison-decls-section) | |||||
| (not (bison--within-braced-c-expression-p section)) | |||||
| (not (previous-non-ws-p))) | |||||
| (if (not (= (current-column) 0)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column 0))))))) | |||||
| (self-insert-command (prefix-numeric-value arg))) | |||||
| (defun bison-electric-close-brace (arg) | |||||
| "If the close-brace \"}\" is used as the c-declarations section closer | |||||
| in \"%}\", then make sure the \"%}\" indents to the beginning of the line" | |||||
| (interactive "P") | |||||
| (self-insert-command (prefix-numeric-value arg)) | |||||
| (if (and bison-electric-close-brace-v | |||||
| (not bison-all-electricity-off)) | |||||
| (cond ((search-backward "%}" (- (point) 2) t) | |||||
| (if (= (bison--section-p) bison--c-decls-section) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (forward-char 2)) ; for "%}" | |||||
| (forward-char 1))) | |||||
| ))) | |||||
| (defun bison-electric-semicolon (arg) | |||||
| "if the semicolon is used to end a production, then place it in | |||||
| bison-rule-separator-column | |||||
| a semicolon is deemed to be used for ending a production if it is not found | |||||
| within braces | |||||
| this is just self-insert-command as i have yet to write the actual | |||||
| bison-electric-semicolon function yet | |||||
| " | |||||
| (interactive "P") | |||||
| (self-insert-command (prefix-numeric-value arg))) | |||||
| (defun bison-electric-percent (arg) | |||||
| "If the percent is a declarer in the bison declaration's section, | |||||
| then put it in the 0 column." | |||||
| (interactive "P") | |||||
| (if (and bison-electric-percent-v | |||||
| (not bison-all-electricity-off)) | |||||
| (let ((section (bison--section-p))) | |||||
| (if (and (= section bison--bison-decls-section) | |||||
| (not (bison--within-braced-c-expression-p section)) | |||||
| (not (previous-non-ws-p)) | |||||
| (not (= (current-column) 0))) | |||||
| (just-no-space)))) | |||||
| (self-insert-command (prefix-numeric-value arg))) | |||||
| (defun bison-electric-less-than (arg) | |||||
| "If the less-than is a type declarer opener for tokens in the bison | |||||
| declaration section, then put it in the bison-decl-type-column column." | |||||
| (interactive "P") | |||||
| (if (and bison-electric-less-than-v | |||||
| (not bison-all-electricity-off)) | |||||
| (if (and (= (bison--section-p) bison--bison-decls-section) | |||||
| (bison--bison-decl-opener-p | |||||
| (save-excursion (beginning-of-line) (point)) | |||||
| (point))) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-decl-type-column)))) | |||||
| (self-insert-command (prefix-numeric-value arg))) | |||||
| (defun bison-electric-greater-than (arg) | |||||
| "If the greater-than is a type declarer closer for tokens in the bison | |||||
| declaration section, then indent to bison-decl-token-column." | |||||
| (interactive "P") | |||||
| (self-insert-command (prefix-numeric-value arg)) | |||||
| (if (and bison-electric-greater-than-v | |||||
| (not bison-all-electricity-off)) | |||||
| (let ((current-pt (point)) | |||||
| (bol (save-excursion (beginning-of-line) (point)))) | |||||
| (if (and (= (bison--section-p) bison--bison-decls-section) | |||||
| (bison--bison-decl-opener-p bol (point))) | |||||
| (if (search-backward "<" bol t) | |||||
| (if (re-search-forward | |||||
| (concat "<" bison--word-constituent-re "+>") | |||||
| current-pt t) | |||||
| (if (not (following-non-ws-p)) | |||||
| (progn | |||||
| (just-no-space) | |||||
| (indent-to-column bison-decl-token-column))))))))) | |||||
| ;;;###autoload | |||||
| (define-derived-mode jison-mode bison-mode "jison" | |||||
| "Major mode for editing jison files.") | |||||
| ;;;###autoload | |||||
| (define-derived-mode flex-mode bison-mode "flex" | |||||
| "Major mode for editing flex files. (bison-mode by any other name)") | |||||
| (provide 'bison-mode) | |||||
| (provide 'jison-mode) | |||||
| (provide 'flex-mode) | |||||
| ;;; bison-mode.el ends here | |||||
+ 38
- 1
.config/doom/packages.el
View File
+ 13
- 0
.config/doom/templates/template.c
View File
| @ -0,0 +1,13 @@ | |||||
| /* | |||||
| * `(buffer-name)` | |||||
| * | |||||
| * Created by `(user-full-name)` on `(format-time-string "%d/%m/%Y")`. | |||||
| * Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
| */ | |||||
| #include <stdio.h> | |||||
| int main(int argc, char *argv[]) { | |||||
| } | |||||
+ 13
- 0
.config/doom/templates/template.cpp
View File
| @ -0,0 +1,13 @@ | |||||
| /* | |||||
| * `(buffer-name)` | |||||
| * | |||||
| * Created by `user-full-name` on `(format-time-string "%d/%m/%Y")`. | |||||
| * Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
| */ | |||||
| #include <iostream> | |||||
| int main(int argc, char *argv[]) { | |||||
| } | |||||
+ 35
- 0
.config/doom/templates/template.el
View File
| @ -0,0 +1,35 @@ | |||||
| ;;; `(buffer-name)` --- ${1:Description} | |||||
| ;; Author: `user-full-name` `user-mail-address` | |||||
| ;; Keywords: $2 | |||||
| ;; URL: | |||||
| ;; Copyright (C) `(format-time-string ""%Y"")`, `user-full-name`, all rights reserved. | |||||
| ;; This program is free software; you can redistribute it and/or modify | |||||
| ;; it under the terms of the GNU General Public License as published by | |||||
| ;; the Free Software Foundation, either version 3 of the License, or | |||||
| ;; (at your option) any later version. | |||||
| ;; This program is distributed in the hope that it will be useful, | |||||
| ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |||||
| ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||||
| ;; GNU General Public License for more details. | |||||
| ;; You should have received a copy of the GNU General Public License | |||||
| ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |||||
| ;;; Commentary: | |||||
| ;; | |||||
| ;;; Code: | |||||
| $0 | |||||
| (provide '`(substring (buffer-name) 0 (- (length (buffer-name)) 3))`) | |||||
| ;; Local Variables: | |||||
| ;; coding: utf-8 | |||||
| ;; End: | |||||
| ;;; `(buffer-name)` ends here. | |||||
+ 12
- 0
.config/doom/templates/template.h
View File
| @ -0,0 +1,12 @@ | |||||
| /* | |||||
| * `(buffer-name)` | |||||
| * | |||||
| * Created by `(user-full-name)` on `(format-time-string "%d/%m/%Y")`. | |||||
| * Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
| */ | |||||
| #ifndef `(replace-regexp-in-string (regexp-quote ".") "_" (buffer-name) nil 'literal))` | |||||
| #define `(replace-regexp-in-string (regexp-quote ".") "_" (buffer-name) nil 'literal))` | |||||
| #endif /* `(replace-regexp-in-string (regexp-quote .) _ buffer-name nil 'literal))` */ | |||||
.local/share/vim/templates/skeleton.html → .config/doom/templates/template.html
View File
+ 12
- 0
.config/doom/templates/template.java
View File
| @ -0,0 +1,12 @@ | |||||
| /* | |||||
| * `(buffer-name)` | |||||
| * | |||||
| * Created by `(user-full-name)` on `(format-time-string "%d/%m/%Y")`. | |||||
| * Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
| */ | |||||
| class Untitled { | |||||
| public static void main(String[] args) { | |||||
| } | |||||
| } | |||||
+ 13
- 0
.config/doom/templates/template.org
View File
| @ -0,0 +1,13 @@ | |||||
| # -*- coding:utf-8 -*- | |||||
| #+LANGUAGE: en | |||||
| #+TITLE: ${1:`(file-name-nondirectory (buffer-file-name))`} | |||||
| #+AUTHOR: `user-full-name` | |||||
| #+EMAIL: `user-mail-address` | |||||
| #+DATE: `(format-time-string "%Y-%m-%d %a" )` | |||||
| #+DESCRIPTION:$1 | |||||
| #+KEYWORDS: $2 | |||||
| #+TAGS:$3 | |||||
| #+FILETAGS: $4 | |||||
| #+OPTIONS: H:2 num:nil toc:t \n:t @:t ::t |:t ^:nil -:t f:t *:t <:t | |||||
| #+OPTIONS: TeX:t LaTeX:t skip:nil d:nil todo:t pri:nil | |||||
| #+LATEX_HEADER: \usepackage{fontspec} | |||||
+ 14
- 0
.config/doom/templates/template.py
View File
| @ -0,0 +1,14 @@ | |||||
| #!/bin/python | |||||
| # | |||||
| # `(buffer-name)` | |||||
| # | |||||
| # Created by `(user-full-name)` on `(format-time-string "%d/%m/%Y")`. | |||||
| # Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
| # | |||||
| def main(): | |||||
| print("hello world") | |||||
| if __name__ == "__main__": | |||||
| main() | |||||
+ 7
- 0
.config/doom/templates/template.sh
View File
| @ -0,0 +1,7 @@ | |||||
| #!/bin/sh | |||||
| # `(buffer-name)` | |||||
| # | |||||
| # Created by `(user-full-name)` on `(format-time-string "%d/%m/%Y")`. | |||||
| # Copyright `user-mail-address`. `(format-time-string "%Y")`. All rights reserved. | |||||
.local/share/vim/templates/skeleton.tex → .config/doom/templates/template.tex
View File
+ 126
- 112
.config/doom/themes/doom-material-ocean-theme.el
View File
+ 1
- 0
.config/mutt/muttrc
View File
+ 0
- 2
.config/nextcloud/nextcloud
View File
+ 0
- 5
.config/nvim/plugin/plugins.vim
View File
+ 8
- 7
.config/vim/vimrc
View File
+ 8
- 0
.config/zsh/.zshrc
View File
+ 8
- 0
.config/zsh/aliases
View File
+ 22
- 0
.local/bin/backup
View File
+ 1
- 0
.local/bin/calconsync
View File
+ 13
- 9
.local/bin/check-updates
View File
+ 14
- 0
.local/bin/dmenu-emoji
View File
| @ -0,0 +1,14 @@ | |||||
| #!/bin/sh | |||||
| chosen=$(cut -d ';' -f1 ~/.local/share/emoji | dmenu -i -l 10 | sed "s/ .*//") | |||||
| [ -z "$chosen" ] && exit | |||||
| if [ -n "$1" ]; then | |||||
| xdotool type "$chosen" | |||||
| else | |||||
| printf "$chosen" | xclip -selection clipboard | |||||
| printf %s "$chosen" | xdotool type --clearmodifiers --file - | |||||
| notify-send -a "Character copied to clipboard" "'$chosen' copied to clipboard." & | |||||
| fi | |||||
+ 2
- 0
.local/bin/dmenu-logout
View File
+ 9
- 4
.local/bin/dmenu-refresh
View File
+ 107
- 0
.local/bin/dmenu-web
View File
| @ -0,0 +1,107 @@ | |||||
| #!/bin/sh | |||||
| # title: dmenu_websearch <http://efe.kim/dmenu_websearch.html> | |||||
| # license: CC0 | |||||
| # author: Sunur Efe Vural <efe@efe.kim> | |||||
| # version: Mar 22, 2019 | |||||
| # dependencies: dmenu, xdotool, hexdump, xprop, setxkbmap, coreutils. | |||||
| # A browser-independent address bar with bookmark support. When the | |||||
| # cursor is on a web browser it acts as the address bar of that browser. | |||||
| engine='https://anon.sx/search?q=%s' | |||||
| bookmarks="$HOME/.local/share/bookmarks" | |||||
| gotourl() { | |||||
| if [ "$nbrowser" = surf ] | |||||
| then | |||||
| xprop -id "$winid" -f _SURF_GO 8s -set _SURF_GO "$choice" | |||||
| elif [ -n "$winid" ] && [ -z "$nbrowser" ] | |||||
| then | |||||
| #change layout to us cuz xdotool spasms with non-latin layouts | |||||
| layout=$(setxkbmap -query | awk '/^layout:/{ print $2 }') | |||||
| setxkbmap -layout us | |||||
| xdotool key --clearmodifiers "$shortcut"\ | |||||
| type --clearmodifiers --delay 2 "$choice" | |||||
| xdotool key --clearmodifiers Return | |||||
| setxkbmap -layout "$layout" | |||||
| elif [ -n "$nbrowser" ] | |||||
| then | |||||
| $nbrowser "$choice" | |||||
| else $BROWSER "$choice" | |||||
| fi | |||||
| } | |||||
| searchweb() { | |||||
| #convert search query to percent encoding and insert it into url | |||||
| choice=$(echo "$choice" | hexdump -v -e '/1 " %02x"') | |||||
| choice=$(echo "$engine" | sed "s/%s/${choice% 0a}/;s/[[:space:]]/%/g") | |||||
| gotourl | |||||
| } | |||||
| xprop -root | grep '^_NET_ACTIVE_WINDOW' && { | |||||
| winid=$(xprop -root _NET_ACTIVE_WINDOW | sed 's/.*[[:space:]]//') | |||||
| class=$(xprop -id "$winid" WM_CLASS | awk -F'\"' '{ print $(NF - 1) }') | |||||
| case "$class" in | |||||
| Firefox) nbrowser='firefox' ;; | |||||
| #Firefox) shortcut='ctrl+l' ;; # alternative method, uses xdotool | |||||
| IceCat) nbrowser='icecat' ;; | |||||
| Chromium) nbrowser='chromium' ;; | |||||
| Chrome) nbrowser='chrome' ;; | |||||
| Opera) nbrowser='opera' ;; | |||||
| Vivaldi) nbrowser='vivaldi' ;; # not tested | |||||
| Brave) nbrowser='brave' ;; # not tested | |||||
| Conkeror) nbrowser='conkeror' ;; # not tested | |||||
| Palemoon) nbrowser='palemoon' ;; # not tested | |||||
| Iceweasel) nbrowser='iceweasel' ;; # not tested | |||||
| qutebrowser) nbrowser='qutebrowser' ;; | |||||
| Midori) nbrowser='midori' ;; # not that good | |||||
| Luakit) nbrowser='luakit' ;; # uses the last window instance | |||||
| Uzbl|Vimb) shortcut='o' ;; | |||||
| Links) shortcut='g' ;; | |||||
| Netsurf*|Epiphany|Dillo|Konqueror|Arora) shortcut='ctrl+l' ;; | |||||
| Surf) nbrowser='surf' ; uricur=$(xprop -id "$winid" _SURF_URI |\ | |||||
| awk -F'\"' '{ print $( NF - 1 ) }') ;; | |||||
| *) pid=$(xprop -id "$winid" _NET_WM_PID | awk '{ print $3 }') | |||||
| while pgrep -oP "$pid" >/dev/null | |||||
| do | |||||
| pid=$(pgrep -oP "$pid") | |||||
| done | |||||
| pname=$(awk '/^Name\:/{ print $NF }' /proc/"$pid"/status) || | |||||
| winid="" ;; | |||||
| esac | |||||
| [ -n "$pname" ] && case "$pname" in | |||||
| w3m) shortcut="U" ;; | |||||
| lynx|elinks|links) shortcut="g" ;; | |||||
| *) winid="" ;; | |||||
| esac | |||||
| } | |||||
| tmpfile=$(mktemp /tmp/dmenu_websearch.XXXXXX) | |||||
| trap 'rm "$tmpfile"' 0 1 15 | |||||
| printf '%s\n%s\n' "$uricur" "$1" > "$tmpfile" | |||||
| cat "$bookmarks" >> "$tmpfile" | |||||
| sed -i -E '/^(#|$)/d' "$tmpfile" | |||||
| choice=$(dmenu -i -p "Go:" -w "$winid" < "$tmpfile") || exit 1 | |||||
| # Detect links without protocol (This is WIP) | |||||
| protocol='^(https?|ftps?|mailto|about|file):///?' | |||||
| checkurl() { | |||||
| grep -Fx "$choice" "$tmpfile" && | |||||
| choice=$(echo "$choice" | awk '{ print $1 }') && return 0 | |||||
| [ ${#choice} -lt 4 ] && return 1 | |||||
| echo "$choice" | grep -Z ' ' && return 1 | |||||
| echo "$choice" | grep -EiZ "$protocol" && return 0 | |||||
| echo "$choice" | grep -FZ '..' && return 1 | |||||
| prepath=$(echo "$choice" | sed 's/(\/|#|\?).*//') | |||||
| echo "$prepath" | grep -FvZ '.' && return 1 | |||||
| echo "$prepath" | grep -EZ '^([[:alnum:]~_:-]+\.?){1,3}' && return 0 | |||||
| } | |||||
| if checkurl | |||||
| then | |||||
| echo "$choice" | grep -EivZ "$protocol" && | |||||
| choice="http://$choice" | |||||
| gotourl | |||||
| else searchweb | |||||
| fi | |||||
+ 318
- 0
.local/bin/dmenu-xrandr
View File
| @ -0,0 +1,318 @@ | |||||
| #!/usr/bin/zsh | |||||
| # | |||||
| # Setup outputs with xrandr as a backend and dmenu as a frontend | |||||
| # | |||||
| # external commands: cat, cut, dmenu, grep, sed, xrandr | |||||
| # Released under GPLv2 | |||||
| # | |||||
| # TODO: add dpi support | |||||
| typeset XRANDR_TXT # readonly; stdout of running xrandr without any options | |||||
| typeset -A OUTPUT_CONFIGURED # key=connected output name | |||||
| typeset -a DISCONNECT_OUTPUTS | |||||
| typeset OPT_MODE='auto' | |||||
| typeset OPT_ROTATION='normal' | |||||
| typeset -ir EXIT_CLEAN=7 | |||||
| typeset -ir ERR_BAD_ARGS=257 | |||||
| typeset -ir ERR_BAD_SELECTION=258 | |||||
| typeset -ir ERR_NO_OPTIONS=259 | |||||
| if ! command -v cat &>/dev/null; then | |||||
| echo 'coreutils seem to be missing. You'\''re gonna have a bad time.' >&2 | |||||
| exit 255 | |||||
| elif ! command -v grep &>/dev/null; then | |||||
| echo 'grep seems to be missing. You'\''re gonna have a bad time.' >&2 | |||||
| exit 255 | |||||
| elif ! command -v xrandr &>/dev/null; then | |||||
| echo 'Ran xrandr-dmenu without xrandr? You'\''re gonna have a bad time.' >&2 | |||||
| exit 255 | |||||
| elif ! command -v dmenu &>/dev/null; then | |||||
| echo 'Ran xrandr-dmenu without dmenu? You'\''re gonna have a bad time.' >&2 | |||||
| exit 255 | |||||
| elif ! xset q &>/dev/null; then | |||||
| echo 'Woah there, cowboy! You need to run this from inside X!' >&2 | |||||
| exit 1 | |||||
| fi | |||||
| XRANDR_TXT="$(xrandr)" || exit $? | |||||
| function () { | |||||
| typeset opt | |||||
| typeset output | |||||
| typeset help_msg="usage: xrandr-dmenu [options] | |||||
| Setup X outputs position, mode, etc | |||||
| Input 'exit' or press 'ESC' at any point to cancel. | |||||
| Options: | |||||
| -m Select mode for outputs | |||||
| -M Use current mode for outputs | |||||
| -r Select rotation for outputs | |||||
| -R Use current rotation for outputs" | |||||
| while getopts mMrRh opt; do | |||||
| case "${opt}" in | |||||
| ('m') OPT_MODE='change' ;; | |||||
| ('M') OPT_MODE='no_change' ;; | |||||
| ('r') OPT_ROTATION='change' ;; | |||||
| ('R') OPT_ROTATION='no_change' ;; | |||||
| ('h') | |||||
| echo "${help_msg}" | |||||
| exit 0 | |||||
| ;; | |||||
| ('?') | |||||
| echo "${help_msg}" | |||||
| exit 1 | |||||
| ;; | |||||
| esac | |||||
| done | |||||
| for output in $(grep ' connected' <<< "${XRANDR_TXT}" | cut -d ' ' -f 1); do | |||||
| OUTPUT_CONFIGURED[${output}]='false' | |||||
| done | |||||
| for output ($(grep ' disconnected' <<< "${XRANDR_TXT}" | cut -d ' ' -f 1)) { | |||||
| DISCONNECTED_OUTPUTS+=("${output}") | |||||
| } | |||||
| } "$@" | |||||
| typeset -r XRANDR_TXT | |||||
| typeset -r OPT_MODE | |||||
| typeset -r OPT_ROTATION | |||||
| typeset -r DISCONNECTED_OUTPUTS | |||||
| function main() { | |||||
| typeset prompt | |||||
| typeset menu | |||||
| typeset output | |||||
| typeset mode | |||||
| typeset rotation | |||||
| typeset position | |||||
| typeset xrandr_cmd | |||||
| # set primary output | |||||
| prompt='Select primary output:' | |||||
| output="$(menu_select "${prompt}" ${(k)=OUTPUT_CONFIGURED})" || bail $? | |||||
| position='--primary' | |||||
| mode="$(select_mode ${output})" || bail $? | |||||
| rotation="$(select_rotation ${output})" || bail $? | |||||
| OUTPUT_CONFIGURED[${output}]='true' | |||||
| xrandr_cmd="xrandr --output ${output} ${position} ${rotation} ${mode}" | |||||
| # set additional outputs | |||||
| prompt='Select next output:' | |||||
| while ! all_outputs_configured; do | |||||
| menu="$(list_unconfigured_outputs)" | |||||
| output="$(menu_select ${prompt} ${=menu})" || bail $? | |||||
| position="$(select_position ${output})" || bail $? | |||||
| if [[ "${position}" != '--off' ]]; then | |||||
| mode="$(select_mode ${output})" || bail $? | |||||
| rotation="$(select_rotation ${output})" || bail $? | |||||
| fi | |||||
| OUTPUT_CONFIGURED[${output}]='true' | |||||
| xrandr_cmd+=" --output ${output} ${position} ${rotation} ${mode}" | |||||
| done | |||||
| # forcibly '--off' disconnected outputs | |||||
| for output in ${DISCONNECTED_OUTPUTS}; do | |||||
| xrandr_cmd+=" --output ${output} --off" | |||||
| done | |||||
| # do the deed | |||||
| if ! ${=xrandr_cmd}; then | |||||
| echo "Failed to execute xrandr command:\n${xrandr_cmd}" | |||||
| bail 255 | |||||
| fi | |||||
| } | |||||
| ################################################################################ | |||||
| # Uses dmenu to select the position of a given output relative to an already | |||||
| # configured output. --same-as and --off are considered a position. | |||||
| # Prints in the form of xrandr option (eg, '--right-of DP1') to stdout | |||||
| # Global variables: | |||||
| # ERR_BAD_ARG | |||||
| # Arguments: | |||||
| # $1=name of output to configure | |||||
| # Returns: | |||||
| # ERR_BAD_ARG for no $1 | |||||
| ################################################################################ | |||||
| function select_position() { | |||||
| [[ -z $1 ]] && return "${ERR_BAD_ARG}" | |||||
| typeset output | |||||
| typeset prompt | |||||
| typeset -a menu | |||||
| typeset anchor | |||||
| typeset position | |||||
| typeset selection | |||||
| output="$1" | |||||
| prompt="Select position of ${output}:" | |||||
| for anchor in $(list_configured_outputs); do | |||||
| for position in 'left of' 'right of' 'above' 'below' 'same as'; do | |||||
| menu+=("${position} ${anchor}") | |||||
| done | |||||
| done | |||||
| menu+=('off') | |||||
| selection="$(menu_select "${prompt}" ${menu})" || return $? | |||||
| case "${selection[(w)1]}" in | |||||
| (left|right|same) echo "--${selection/ /-}" ;; | |||||
| (above|below|mirror|off) echo "--${selection}" ;; | |||||
| esac | |||||
| } | |||||
| ################################################################################ | |||||
| # Uses dmenu to display the detected mode options for a given output and lets | |||||
| # the user select a mode to use. Prints choice in xrandr option format | |||||
| # (eg, '--mode 800x600' or '--auto') to stdout | |||||
| # Global variables: | |||||
| # XRANDR_TXT | |||||
| # OPT_MODE | |||||
| # ERR_BAD_ARGS | |||||
| # Arguments: | |||||
| # $1 - name of which output we are working with | |||||
| # Returns: | |||||
| # ERR_BAD_ARGS | |||||
| ################################################################################ | |||||
| function select_mode() { | |||||
| [[ -z $1 ]] && return "${ERR_BAD_ARGS}" | |||||
| typeset output | |||||
| typeset prompt | |||||
| typeset menu | |||||
| typeset selection | |||||
| output="$1" | |||||
| prompt="Select mode for ${output}:" | |||||
| if [[ "${OPT_MODE}" == 'auto' ]]; then | |||||
| echo '--auto' | |||||
| elif [[ "${OPT_MODE}" == 'no_change' ]]; then | |||||
| echo '' | |||||
| else | |||||
| # TODO: make this not ugly. A better sed should negate the need for cut/grep | |||||
| menu="$(echo \"${XRANDR_TXT}\" \ | |||||
| | sed -n '/^'${output}' /,/^[^ ]/ s/ * //p' \ | |||||
| | cut -d ' ' -f 1 \ | |||||
| | grep x \ | |||||
| | cat <(echo auto) -)" | |||||
| selection="$(menu_select "${prompt}" ${=menu})" || return $? | |||||
| if [[ 'auto' == "${selection}" ]]; then | |||||
| echo '--auto' | |||||
| else | |||||
| echo "--mode ${selection}" | |||||
| fi | |||||
| fi | |||||
| } | |||||
| ################################################################################ | |||||
| # Uses dmenu to select the rotation of a given output. Prints the selection in | |||||
| # xrandr option format (eg '--rotate inverted') to stdout | |||||
| # Global variables: | |||||
| # OPT_ROTATION | |||||
| # ERR_BAD_ARGS | |||||
| # Arguments: | |||||
| # $1 - name of which output we are working with | |||||
| # Returns: | |||||
| # ERR_BAD_ARGS | |||||
| ################################################################################ | |||||
| function select_rotation() { | |||||
| [[ -z $1 ]] && return "${ERR_BAD_ARGS}" | |||||
| typeset menu | |||||
| typeset prompt | |||||
| prompt="Select rotation of $1:" | |||||
| menu=('normal' 'inverted' 'left' 'right') | |||||
| if [[ "${OPT_ROTATION}" == 'normal' ]]; then | |||||
| echo '--rotate normal' | |||||
| elif [[ "${OPT_ROTATION}" == 'no_change' ]]; then | |||||
| echo '' | |||||
| else | |||||
| echo -n "--rotate ${selection}" | |||||
| menu_select "${prompt}" ${menu} || return $? | |||||
| fi | |||||
| } | |||||
| ################################################################################ | |||||
| # Uses dmenu to select an option. Undisplayed 'exit' option or pressing 'ESC' | |||||
| # will return code ${EXIT_CLEAN} to trigger an abort to the script. Validates to | |||||
| # make sure the selection is an option. If there is only 1 option, it will | |||||
| # automatically choose it. Prints selection to stdout | |||||
| # Global variables: | |||||
| # none | |||||
| # Arguments: | |||||
| # $1=prompt | |||||
| # $2+=menu items | |||||
| # Returns: | |||||
| # ERR_BAD_ARGS=bad arguments | |||||
| # EXIT_CLEAN=user requested exit | |||||
| ################################################################################ | |||||
| function menu_select() { | |||||
| [[ -z "$2" ]] && return ${ERR_BAD_ARGS} | |||||
| typeset selection | |||||
| typeset prompt | |||||
| typeset -a menu | |||||
| prompt="$1" | |||||
| shift | |||||
| menu=($*) | |||||
| if [[ ${#menu} == 1 ]]; then | |||||
| echo "${menu}" | |||||
| else | |||||
| while [[ -z "${menu[(r)${selection}]}" ]]; do | |||||
| echo "${(F)menu}" | dmenu -p "${prompt}" | read selection | |||||
| [[ "${(L)selection}" == 'exit' ]] || [[ -z "${selection}" ]] \ | |||||
| && return ${EXIT_CLEAN} | |||||
| done | |||||
| echo "${selection}" | |||||
| fi | |||||
| } | |||||
| function list_configured_outputs() { | |||||
| typeset -a list | |||||
| typeset output | |||||
| for output in ${(k)OUTPUT_CONFIGURED}; do | |||||
| ${OUTPUT_CONFIGURED[$output]} && list+=("${output}") | |||||
| done | |||||
| echo "${(F)list}" | |||||
| } | |||||
| function list_unconfigured_outputs() { | |||||
| typeset -a list | |||||
| typeset output | |||||
| for output in ${(k)OUTPUT_CONFIGURED}; do | |||||
| ${OUTPUT_CONFIGURED[$output]} || list+=("${output}") | |||||
| done | |||||
| echo "${(F)list}" | |||||
| } | |||||
| function all_outputs_configured() { | |||||
| typeset config | |||||
| for config in ${OUTPUT_CONFIGURED}; do | |||||
| $config || return 257 | |||||
| done | |||||
| return 0 | |||||
| } | |||||
| function bail() { | |||||
| [[ "$1" == ${EXIT_CLEAN} ]] && exit 0 || exit "$1" | |||||
| } | |||||
| main | |||||
| ################################################################################ | |||||
| # vim filetype=zsh autoindent expandtab shiftwidth=2 tabstop=2 | |||||
| # End | |||||
| # | |||||
+ 10
- 4
.local/bin/dmenu_run_history
View File
+ 0
- 11
.local/bin/dmenu_surf
View File
| @ -1,11 +0,0 @@ | |||||
| #!/bin/sh | |||||
| lines=12 | |||||
| blacklist='google' | |||||
| selection=$(echo "" | dmenu -p "Enter URL") | |||||
| if [ ! -z "$selection" ] | |||||
| then | |||||
| $BROWSER $selection | |||||
| fi | |||||
+ 8
- 1
.local/bin/doom
View File
+ 62
- 0
.local/bin/e
View File
| @ -0,0 +1,62 @@ | |||||
| #!/bin/bash | |||||
| force_tty=false | |||||
| force_wait=false | |||||
| stdin_mode="" | |||||
| args=() | |||||
| while :; do | |||||
| case "$1" in | |||||
| -t | -nw | --tty) | |||||
| force_tty=true | |||||
| shift ;; | |||||
| -w | --wait) | |||||
| force_wait=true | |||||
| shift ;; | |||||
| -m | --mode) | |||||
| stdin_mode=" ($2-mode)" | |||||
| shift 2 ;; | |||||
| -h | --help) | |||||
| echo -e "\033[1mUsage: e [-t] [-m MODE] [OPTIONS] FILE [-]\033[0m | |||||
| Emacs client convenience wrapper. | |||||
| \033[1mOptions:\033[0m | |||||
| \033[0;34m-h, --help\033[0m Show this message | |||||
| \033[0;34m-t, -nw, --tty\033[0m Force terminal mode | |||||
| \033[0;34m-w, --wait\033[0m Don't supply \033[0;34m--no-wait\033[0m to graphical emacsclient | |||||
| \033[0;34m-\033[0m Take \033[0;33mstdin\033[0m (when last argument) | |||||
| \033[0;34m-m MODE, --mode MODE\033[0m Mode to open \033[0;33mstdin\033[0m with | |||||
| Run \033[0;32memacsclient --help\033[0m to see help for the emacsclient." | |||||
| exit 0 ;; | |||||
| --*=*) | |||||
| set -- "$@" "${1%%=*}" "${1#*=}" | |||||
| shift ;; | |||||
| *) | |||||
| if [ "$#" = 0 ]; then | |||||
| break; fi | |||||
| args+=("$1") | |||||
| shift ;; | |||||
| esac | |||||
| done | |||||
| if [ ! "${#args[*]}" = 0 ] && [ "${args[-1]}" = "-" ]; then | |||||
| unset 'args[-1]' | |||||
| TMP="$(mktemp /tmp/emacsstdin-XXX)" | |||||
| cat > "$TMP" | |||||
| args+=(--eval "(let ((b (generate-new-buffer \"*stdin*\"))) (switch-to-buffer b) (insert-file-contents \"$TMP\") (delete-file \"$TMP\")${stdin_mode})") | |||||
| fi | |||||
| if [ -z "$DISPLAY" ] || $force_tty; then | |||||
| if [ "$TERM" = "st-256color" ]; then | |||||
| TERM=xterm-256color emacsclient --tty -create-frame --alternate-editor="nvim" "${args[@]}" | |||||
| else | |||||
| emacsclient --tty -create-frame --alternate-editor="nvim" "${args[@]}" | |||||
| fi | |||||
| else | |||||
| if ! $force_wait; then | |||||
| args+=(--no-wait); fi | |||||
| emacsclient -create-frame --alternate-editor="nvim" "${args[@]}" | |||||
| fi | |||||
+ 0
- 53
.local/bin/menu-surfraw
View File
| @ -1,53 +0,0 @@ | |||||
| #!/bin/sh | |||||
| # Menu Surfraw: https://github.com/TomboFry/menu-surfraw | |||||
| # Modified version of https://github.com/onespaceman/menu-calc to display | |||||
| # available elvi to use in surfraw then get the search term afterwards and open | |||||
| # it in your browser of choice. | |||||
| # Edit here to change what browser you open links in | |||||
| usage() { | |||||
| echo "Usage: $0 [OPTIONS] [ELVIS [SEARCHTERM]] | |||||
| OPTIONS: | |||||
| -h, --help Displays this message | |||||
| ELVIS: | |||||
| This is the same as surfraw, any Elvi you have installed. Can be left | |||||
| blank, as you will be prompted for this in dmenu/rofi. | |||||
| SEARCHTERM: | |||||
| Again, the same as surfraw, the term you are searching for. Can also be | |||||
| left blank as you will be prompted for this in dmenu/rofi." | |||||
| exit | |||||
| } | |||||
| case $1 in | |||||
| "-h"|"--help") usage ;; | |||||
| esac | |||||
| # Path to menu application | |||||
| if [[ -n $(command -v dmenu) ]]; then | |||||
| menu="$(command -v dmenu )" | |||||
| elif [[ -n $(command -v rofi) ]]; then | |||||
| menu="$(command -v rofi)" | |||||
| else | |||||
| echo "Rofi or dmenu not found, exiting." | |||||
| exit | |||||
| fi | |||||
| answerA=$(echo "$1") | |||||
| answerB=$(echo "${@:2}") | |||||
| # Change what to display in rofi/dmenu | |||||
| # If both the first prompt and second prompt are not empty, it will finally open | |||||
| # the search in surfraw | |||||
| action=$(echo "" | $menu -p "$answerA ") | |||||
| if [ "$action" = "" ]; then | |||||
| exit | |||||
| fi | |||||
| surfraw -browser=$BROWSER $answerA $action | |||||
+ 3
- 0
.local/share/dwm/autostart.sh
View File
+ 0
- 3810
.local/share/nerdfont_icons
File diff suppressed because it is too large
View File
+ 0
- 14
.local/share/vim/templates/skeleton.c
View File
| @ -1,14 +0,0 @@ | |||||
| /* | |||||
| * [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| * [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| * | |||||
| * Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%m/%d/%y')[:END_EVAL:]. | |||||
| * Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| */ | |||||
| #include <stdio.h> | |||||
| int main(int argc, char *argv[]) { | |||||
| } | |||||
+ 0
- 14
.local/share/vim/templates/skeleton.cpp
View File
| @ -1,14 +0,0 @@ | |||||
| /* | |||||
| * [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| * [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| * | |||||
| * Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%m/%d/%y')[:END_EVAL:]. | |||||
| * Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| */ | |||||
| #include <iostream> | |||||
| int main(int argc, char *argv[]) { | |||||
| } | |||||
+ 0
- 13
.local/share/vim/templates/skeleton.h
View File
| @ -1,13 +0,0 @@ | |||||
| // | |||||
| // [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| // [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| // | |||||
| // Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%m/%d/%y')[:END_EVAL:]. | |||||
| // Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| // | |||||
| #ifndef [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] | |||||
| #define [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] | |||||
| #endif /* [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] */ | |||||
+ 0
- 13
.local/share/vim/templates/skeleton.hpp
View File
| @ -1,13 +0,0 @@ | |||||
| // | |||||
| // [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| // [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| // | |||||
| // Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%m/%d/%y')[:END_EVAL:]. | |||||
| // Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| // | |||||
| #ifndef [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] | |||||
| #define [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] | |||||
| #endif /* [:VIM_EVAL:]substitute(expand('%:t'),'\.',"_","")[:END_EVAL:] */ | |||||
+ 0
- 13
.local/share/vim/templates/skeleton.java
View File
| @ -1,13 +0,0 @@ | |||||
| home/home/ | |||||
| home/home/ [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| home/home/ [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| home/home/ | |||||
| home/home/ Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%mhome/%dhome/%y')[:END_EVAL:]. | |||||
| home/home/ Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| home/home/ | |||||
| class Untitled { | |||||
| public static void main(String[] args) { | |||||
| } | |||||
| } | |||||
+ 0
- 15
.local/share/vim/templates/skeleton.py
View File
| @ -1,15 +0,0 @@ | |||||
| #!/bin/python | |||||
| # | |||||
| # [:VIM_EVAL:]expand('%:t')[:END_EVAL:] | |||||
| # [:VIM_EVAL:]expand('%:p:h:t')[:END_EVAL:] | |||||
| # | |||||
| # Created by Yigit Colakoglu on [:VIM_EVAL:]strftime('%m/%d/%y')[:END_EVAL:]. | |||||
| # Copyright [:VIM_EVAL:]strftime('%Y')[:END_EVAL:]. Yigit Colakoglu. All rights reserved. | |||||
| # | |||||
| def main(): | |||||
| print("hello world") | |||||
| if __name__ == "__main__": | |||||
| main() | |||||
+ 0
- 2
.local/share/vim/templates/skeleton.sh
View File
| @ -1,2 +0,0 @@ | |||||
| #!/bin/sh | |||||