Skip to content

Instantly share code, notes, and snippets.

Ryohei Ueda garaemon

Block or report user

Report or block garaemon

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
garaemon / emacs-gc.el
Last active Aug 3, 2019
emacsのGCのしきい値を増やし, 入力がないときにGCを走らせる
View emacs-gc.el
;; Increase threshold to fire garbage collection
(setq gc-cons-threshold 1073741824)
(setq garbage-collection-messages t)
;; Run GC every 60 seconds if emacs is idle.
(run-with-idle-timer 60.0 t #'garbage-collect)
garaemon /
Created Mar 8, 2019
Checkout default branch for all the repositories under catkin workspace
wstool foreach "bash -c 'git symbolic-ref refs/remotes/origin/HEAD | sed s@^refs/remotes/origin/@@ | xargs git checkout'"
garaemon / helm-ros.el
Last active Feb 10, 2019
catkin packages helm source
View helm-ros.el
(let ((cmake-prefix-path (getenv "CMAKE_PREFIX_PATH")))
(when cmake-prefix-path
(setq helm-source-catkin-root
(format "%s/../src" (car (split-string cmake-prefix-path ":"))))))
(defun helm-catkin-packages-list ()
(let ((string-output (shell-command-to-string (format "find %s -name package.xml -exec dirname {} \\\;" helm-source-catkin-root))))
(let ((dirs (split-string string-output "\n")))
garaemon / catkin.el
Created Feb 9, 2019
Run catkin build in emacs
View catkin.el
;; Based on
(require 'ansi-color)
(defun endless/colorize-compilation ()
"Colorize from `compilation-filter-start' to `point'."
(let ((inhibit-read-only t))
compilation-filter-start (point))))
(add-hook 'compilation-filter-hook
garaemon /
Created Feb 7, 2019
Notify pull requests closed today on ros/rosdistro to slack
from datetime import datetime, timedelta
import slackweb
from github import Github
REPO = 'ros/rosdistro'
g = Github()
repo = g.get_repo('ros/rosdistro')
pulls = repo.get_pulls(state='closed', sort='created', direction='desc')
View robot_settingsjaxon_red.diff
diff --git a/VSProjects/TransHost/TransHost/robot_settingsjaxon_red.fs b/VSProjects/TransHost/TransHost/robot_settingsjaxon_red.fs
index a271e38..10c1cf8 100755
--- a/VSProjects/TransHost/TransHost/robot_settingsjaxon_red.fs
+++ b/VSProjects/TransHost/TransHost/robot_settingsjaxon_red.fs
@@ -36,13 +36,17 @@ let waist_default_motor_param =
let dgain48 = -10*16
-let leg_default_motor_param =
- let default_maxcurrent = 50us // 50 * 1.38105 = 69.1 [A]
View tracking.yaml
layout: vertical
legend_font_size: 12
- title: geometry_msgs/TwistStamped
type: line
topic: [/particle_filter_tracker/output/velocity, /particle_filter_tracker/output/velocity, /particle_filter_tracker/output/velocity]
field: [twist/linear/x, twist/linear/y, twist/linear/z]
label: ["$v_x$", "$v_y$", "$v_z$"]
- title: std_msgs/Float32
View test-zmp.l
(defun calc-zmp-diff-from-two-poses
(key-pose-av-list key-pose-rc-list key-pose-tm-list
&key (dt 0.005) (debug-view nil) (robot *robot*))
(pprint `(calc-zmp-diff-from-two-poses ,key-pose-av-list
,(mapcar #'(lambda (c)
`(make-coords :pos ,(send c :worldpos)
:rot ,(send c :worldrot)))
(let* ((data (pos-list-interpolation
Package Type
VSProjects source
actionlib apt
actionlib_msgs apt
actionlib_tutorials apt
allocators apt
amcl source
angles apt
app_manager source
View zmp.l
(require "package://hrpsys_ros_bridge_tutorials/euslisp/jaxon-interface.l")
(require "package://hrpsys_ros_bridge_tutorials/euslisp/hrp2jsknt-interface.l")
(setq *robot* (instance jaxon-robot :init))
(setq *robot2* (instance jaxon-robot :init))
(setq *robot* (instance hrp2jsknt-robot :init))
(setq *robot2* (instance hrp2jsknt-robot :init))
(setq *av0* (send *robot* :reset-pose))
(setq *av1* (send *robot* :reset-manip-pose))
(setq *duration* 1.0) ;sec
(load "~/prog/euslib/demo/nozawa/motion/eval-motion-samples.l")
You can’t perform that action at this time.