ROCKTAKEY

(require 'cl-lib)                       ; `cl-letf', `cl-flet'
(require 'cl)                           ; `flet'

(defun func1 ()
  "`original'というシンボルを返すだけの関数。"
  'original)

(defun print-func1 ()
  "`func1'を呼び出したときの返り値を表示する関数。"
  (message "%s" (func1)))

ROCKTAKEY

(use-modules
 (guix packages)
 ((guix licenses)  #:prefix license:)
 (guix git-download)
 (guix download)
 (guix build-system gnu)
 (guix build-system cmake)
 (gnu packages commencement)
 (gnu packages hurd)
 (gnu packages icu4c)

ROCKTAKEY

(defun my:elscreen-text ()
    ""
    (let ((screen-list (sort (elscreen-get-screen-list) '<))
          (screen-to-name-alist (elscreen-get-screen-to-name-alist))
          (current-screen (elscreen-get-current-screen))
          (half-space (propertize
                       " "
                       'display '(space :width 0.5)))
          (tab-separator (propertize
                          " "

ROCKTAKEY

(defun my-org-netlify (str)
  (concat
   (save-restriction
     (widen)
     (save-excursion
       (while (ignore-errors (org-up-element) t))
       (let* ((entry (org-element-at-point)))
         (org-element-property :EXPORT_FILE_NAME entry))))
   "/" str))

ROCKTAKEY

(require 'cl-lib)

(defun each-benchmark (repetitions function-list &optional args)
  ""
  (cl-loop
   with a
   for func in function-list
   do (setq a (benchmark-run repetitions
                (apply func args)))
   collect (cons func (car a))))

ROCKTAKEY

git clone https://github.com/MaskRay/ccls/ --recursive
cd ccls
cmake -H. -BRelease -DCMAKE_BUILD_TYPE=Release -G "MSYS Makefiles" -DCMAKE_CXX_FLAGS=-D__STDC_FORMAT_MACROS
cmake --build Release