lkn
/
syscfg
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org stuff and default font

This commit is contained in:
Levi Neely 2024-09-26 21:19:00 +02:00
parent a6b1206cf9
commit 47c8386726
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
emacs/custom.el
View File

@ -38,15 +38,17 @@
'(elfeed-feeds '(elfeed-feeds
'("https://www.thenation.com/feed/?post_type=article" "https://feeds2.feedburner.com/google/RzFQ" "https://api.substack.com/feed/podcast/365422.rss" "https://stallman.org/rss/rss.xml" "https://danielpocock.com/feed.atom")) '("https://www.thenation.com/feed/?post_type=article" "https://feeds2.feedburner.com/google/RzFQ" "https://api.substack.com/feed/podcast/365422.rss" "https://stallman.org/rss/rss.xml" "https://danielpocock.com/feed.atom"))
'(mc/always-run-for-all t) '(mc/always-run-for-all t)
'(menu-bar-mode nil)
'(safe-local-variable-values '(safe-local-variable-values
'((flycheck-disabled-checkers emacs-lisp-checkdoc emacs-lisp))) '((flycheck-disabled-checkers emacs-lisp-checkdoc emacs-lisp)))
'(tab-width 2)) '(tab-width 2)
'(tool-bar-mode nil))
(custom-set-faces (custom-set-faces
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(default ((t (:weight regular :height 150 :width normal :foundry " " :family "Go Mono" :slant normal))))) '(default ((t (:weight regular :height 120 :width normal :foundry "CF " :family "Space Mono" :slant normal)))))
(provide 'custom) (provide 'custom)

6
emacs/module/module-org.el
View File

@ -9,6 +9,8 @@
(require 'module-pkg) (require 'module-pkg)
(pkg/require 'org) (pkg/require 'org)
(pkg/require 'ox-clip) (pkg/require 'ox-clip)
(pkg/require 'org-board)
(pkg/require 'org-index)
(require 'org) (require 'org)
(require 'org-agenda) (require 'org-agenda)
@ -37,10 +39,10 @@
(get-text-property 0 'org-hd-marker item))) (get-text-property 0 'org-hd-marker item)))
(line (when marker (line (when marker
(org-with-point-at marker (org-with-point-at marker
(buffer-substring (line-beginning-position) (line-end-position))))) (buffer-substring (line-beginning-position) (line-end-position)))))
(todo-keyword (when marker (todo-keyword (when marker
(org-with-point-at marker (org-with-point-at marker
(org-get-todo-state)))) (org-get-todo-state))))
(truncated-line (when line (truncated-line (when line
(replace-regexp-in-string "^\\[#[A-Z]\\] " "" line)))) (replace-regexp-in-string "^\\[#[A-Z]\\] " "" line))))
(if truncated-line (if truncated-line