This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; org-capture-demo.el --- Org capture demo configuration. | |
;;; Commentary: | |
;;; Author: Suvrat Apte | |
;;; Created on: 03 May 2020 | |
;;; Copyright (c) 2019 Suvrat Apte <[email protected]> | |
;; This file is not part of GNU Emacs. | |
;;; License: |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Do not show the startup screen. | |
(setq inhibit-startup-message t) | |
;; Disable tool bar, menu bar, scroll bar. | |
(tool-bar-mode -1) | |
(menu-bar-mode -1) | |
(scroll-bar-mode -1) | |
;; Highlight current line. | |
(global-hl-line-mode t) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun insert-comment-with-description (comment-syntax comment) | |
"Inserts a comment with '―' (Unicode character: U+2015) on each side." | |
(let* ((comment-length (length comment)) | |
(current-column-pos (current-column)) | |
(space-on-each-side (/ (- fill-column | |
current-column-pos | |
comment-length | |
(length comment-syntax) | |
;; Single space on each side of comment | |
(if (> comment-length 0) 2 0) |